VOTools for Visual Objects  
and Vulcan.NET  

bBrowser => Tipps & Tricks => Wie kann ohne Scrollbalken gescrollt werden?    




 ab bBrowser
1.4
  bBrowser 1.4 (Limited)
ja
 

Wie kann ohne Scrollbalken gescrollt werden?

Um im bBrowser auch ohne Scrollbalken vertikal bzw. horizontal scrollen zu können, müssen mit der MS-Windows API-Funktion SendMessage() entsprechende Events an den bBrowser gesendet werden. Die API-Funktion SendMessage() ist wie folgt definiert:

 
SendMessage( hWnd
iMessage
iWParam
iLParam
AS PTR,;
AS DWORD,;
AS DWORD,;
AS LONG) AS LONG
   
 
hWnd Handle von dem bBrowser-Control
iMessage
Vertikales Scrollen: WM_VSCROLL
Horizontales Scrollen: WM_HSCROLL
iWParam
Vertikales Scrollen:
SB_LINEUP Scrollt eine Zeile nach oben.
SB_LINEDOWN Scrollt eine Zeile nach unten.
SB_PAGEUP Scrollt eine Seite nach oben.
SB_PAGEDOWN Scrollt eine Seite nach unten.
Horizontales Scrollen:
SB_LINELEFT Scrollt eine Spalte nach links.
SB_LINERIGHT Scrollt eine Spalte nach rechts.
SB_PAGELEFT Scrollt eine Seite nach links.
SB_PAGERIGHT Scrollt eine Seite nach rechts.
iLParam Dieser Parameter ist immer 0.


Das folgende Codefragment definiert 4 Methoden, um in einem bBrowser eine Seite bzw. eine Zeile nach oben und unten zu scrollen.

 

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)



Das folgende Codefragment definiert 4 Methoden, um in einem bBrowser eine Seite bzw. eine Spalte nach links und rechts zu scrollen.

 

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