
Control scroll bars in a frame in the WebBrowser control
My problem :
I have a webBrowser control on my form and I want to move the scroll bars.
It function when I load a page without frames. But if I want to move the
srcoll bars in a particular frame, it doesn't function!
My code :
Dim htmDoc As HTMLDocument
Dim htmBody As HTMLBody
...
Set htmDoc = WebBrowserClient.Document
Set htmBody = htmDoc.body
...
While (trouve = False And (Not (htmBody.children(i) Is Nothing)))
If (htmBody.children(i).Name = "Down" And
htmBody.children(i).tagName = "FRAME") Then
'Find the frame to move
htmBody.children(i).scrolling = "yes"
htmBody.children(i).scrollTop = 0
trouve = True
i = i + 1
End If
i = i + 1
Wend
I wait for your advices
Thanks!
Mlanie