VB WebBrowser滚动条总在最上方
1个回答
展开全部
'你在WebBrowser1_DocumentComplete内插入以下代码即可！
'====代码部分====
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Doc, kd As Long
Set Doc = WebBrowser1.Document
Doc.ParentWindow.Scroll 0, 0
Set Doc = Nothing
End Sub
'====代码部分====
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Doc, kd As Long
Set Doc = WebBrowser1.Document
Doc.ParentWindow.Scroll 0, 0
Set Doc = Nothing
End Sub
来自：求助得到的回答
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
