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)
|
|