VOTools for Visual Objects  
and Vulcan.NET  

bBrowser => Tips & Tricks => How to scroll without scrollbars    




 from bBrowser
1.4
  bBrowser 1.4 (Limited)
yes
 

How to scroll without scrollbars

In order to scroll vertical or horizontal without scrollbars, special events must be sent with the MS-Windows API function SendMessage() to the bBrowser. The function SendMessage() is defined as follows:

 
SendMessage( hWnd
iMessage
iWParam
iLParam
AS PTR,;
AS DWORD,;
AS DWORD,;
AS LONG) AS LONG
   
 
hWnd Handle of bBrowser control
iMessage
Vertical scroll: WM_VSCROLL
Horizontal scroll: WM_HSCROLL
iWParam
Vertical scroll:
SB_LINEUP Scrolls one line up.
SB_LINEDOWN Scrolls one line down.
SB_PAGEUP Scrolls one page up.
SB_PAGEDOWN Scrolls one page down.
Horizontal scroll:
SB_LINELEFT Scrolls one column left.
SB_LINERIGHT Scrolls one column right.
SB_PAGELEFT Scrolls one page left.
SB_PAGERIGHT Scrolls one page right.
iLParam This parameter must be 0.


The following code fragment defines 4 methods, in order to sroll one page or line up or down in the bBrowser.

 

METHOD PageUp() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_VSCROLL,;
              MakeWParam(SB_PAGEUP, 0),;
              0)

METHOD PageDown() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_VSCROLL,;
              MakeWParam(SB_PAGEDOWN, 0),;
              0)

METHOD LineUp() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_VSCROLL,;
              MakeWParam(SB_LINEUP, 0),;
              0)

METHOD LineDown() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_VSCROLL,;
              MakeWParam(SB_LINEDOWN, 0),;
              0)



The following code fragment defines 4 methods, in order to sroll one page or column left or right in the bBrowser.

 

METHOD PageLeft() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_HSCROLL,;
              MakeWParam(SB_PAGELEFT, 0),;
              0)

METHOD PageRight() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_HSCROLL,;
              MakeWParam(SB_PAGERIGHT, 0),;
              0)

METHOD LineUp() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_HSCROLL,;
              MakeWParam(SB_LINELEFT, 0),;
              0)

METHOD LineDown() CLASS myDataWindow
  SendMessage(self:oDCBrowser:Handle(),;
              WM_HSCROLL,;
              MakeWParam(SB_LINERIGHT, 0),;
              0)

Copyright © 2003-2015 BEFO GmbH