好吧问答库 > 如何用VB的WebBrowser设计打开一个网页后自动滚动到指定位置

如何用VB的WebBrowser设计打开一个网页后自动滚动到指定位置

2024年11月06日 19:21

有4个网友回答

网友（1）：

WebBrowser1.Document.parentwindow.scrollby 200, 200

WebBrowser1.Frames("Main").scrollTop=100

下面的是帧页面中的，用上面的
最好加到 DOCUMENT complete 里面

网友（2）：

代码如下：
1.原来的窗口
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub

2.新窗口
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NFrm As New Form1
NFrm.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = NFrm.WebBrowser1.Object
NFrm.Visible = True
End Sub

网友（3）：

你把你找到的代码贴出来我帮你改改。
要滚动还不简单。问题是滚到哪？
把控件缩小成只看得到一行内容~然后滚到由指定内容的那一行~~

网友（4）：

其实也很简单。用Windows API发送滚动消息就可以了
好像是PostMessage吧，你试试