如何用VB的WebBrowser设计打开一个网页后自动滚动到指定位置
用WebBrowser控件设计的一个程序(打开一个网页),如何让程序运行后自动让webbrowser的滚动条滚动到指定位置?在网上找了很多方法都不行,请在你【调试能运行后...
用WebBrowser控件设计的一个程序(打开一个网页),如何让程序运行后自动让webbrowser的滚动条滚动到指定位置?
在网上找了很多方法都不行,请在你【调试能运行后】把能用的代码发给我,谢谢!或者能用的其他方法也行 展开
在网上找了很多方法都不行,请在你【调试能运行后】把能用的代码发给我,谢谢!或者能用的其他方法也行 展开
展开全部
代码如下:
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2009-01-11
展开全部
你把你找到的代码 贴出来我帮你改改。
要滚动还不简单。问题是滚到哪?
把控件缩小成只看得到一行内容~然后滚到由指定内容的那一行~~
要滚动还不简单。问题是滚到哪?
把控件缩小成只看得到一行内容~然后滚到由指定内容的那一行~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
其实也很简单。用Windows API发送滚动消息就可以了
好像是PostMessage吧,你试试
好像是PostMessage吧,你试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询