Question

VB WebBrowser滚动条总在最下方

VB WebBrowser滚动条总在最下方？

用VB代码控制或HTML代码控制。
如何做到呢？

感觉 ljl88900 的方法更容易达到目的，但测试时滚动条下来又自动弹上去了,在键盘上按end键却是可以的，哪里有问题呢？

Answer 1

我说说HTML的吧，在CSS里定义：

<style type="text/css">
body,html{
overflow-y:hidden; /*这个是隐藏垂直滚动条*/
overflow-x:scroll; /*这个是始终显示水平滚动条*/
}
</style>

参考资料：

visible 默认。内容不会被修剪，会呈现在元素之外。
hidden 内容会被修剪，但是浏览器不会显示供查看内容的滚动条。
scroll 内容会被修剪，但是浏览器会显示滚动条以便查看其余的内容。
auto 如果内容被修剪，则浏览器会显示滚动条以便查看其余的内容。

附：
其实在触发DocumentComplete时，WebBrowser还没完整地创建Document中对象

Answer 2

'根据你反映的情况，修改如下：
'你在WebBrowser1_DocumentComplete内插入以下代码即可！
'====代码部分====

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Doc, kd As Long, gd As Long
Set Doc = WebBrowser1.Document
gd = Doc.Body.getAttribute("scrollHeight", 0)
kd = Doc.Body.getAttribute("scrollwidth", 0)
Doc.ParentWindow.Scroll 0, gd
Set Doc = Nothing
End Sub