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