2013-04-10 68 views

回答

1

你可以尝试做一个屏幕高度的请求,并与文档的高度进行交叉检查。由于只有当文档的高度/宽度大于屏幕宽度时才能启用滚动条,您可以使用此选项来检查滚动条是否可以滚动。

您可以使用此为您的屏幕高度:

My.Computer.Screen.Bounds

这对您的浏览器打开的网页高度:

Dim docWidth as Integer 
Dim docHeight as Integer 

docHeight = WebBrowser1.Document.Body.ScrollRectangle.Height 
docWidth = WebBrowser1.Document.Body.ScrollRectangle.Width