WebBrowser control not responding to SetScroll API

G

Guest

hi, im trying to use APIs to set the scroll position of a WebBrowser control,
but it wont do anything, yet a textbox will....heres the code


' Scrollbar direction
'
Const SBS_HORZ = 0
Const SBS_VERT = 1


' Windows Messages
'
Const WM_VSCROLL = &H115
Const WM_HSCROLL = &H114
Const SB_THUMBPOSITION = 4

Private Declare Function GetScrollPos Lib "user32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal nBar As Integer) As Integer

Private Declare Function SetScrollPos Lib "user32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal nBar As Integer, _
ByVal nPos As Integer, _
ByVal bRedraw As Boolean) As Integer

Private Declare Function PostMessageA Lib "user32.dll" ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) As Boolean


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim hwnd As IntPtr = Me.WebBrowser1.Handle

Dim pos As Integer = GetScrollPos(hwnd, SBS_VERT) + 5

If (SetScrollPos(hwnd, SBS_VERT, pos, True) <> -1) Then

PostMessageA(hwnd, WM_VSCROLL, pos, Nothing)

Else

MsgBox("Can't set info (Err: " & GetLastWin32Error() & ")")

End If

End Sub
 
H

Herfried K. Wagner [MVP]

iwdu15 said:
hi, im trying to use APIs to set the scroll position of a WebBrowser
control,
but it wont do anything, yet a textbox will....heres the code

Maybe the scrollbars are part of the default frame and not the control's
scrollbars.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top