检查滚动条是否可以在Web浏览器中聚焦/滚动

Question

是否可以检查是否可以滚动网页浏览器的滚动条？

Answer 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