webbrowser 自动滚动到底部

zhang123shan 2008-04-27 06:02:08

如何让webbrowser 自动滚动到底部和禁止右键!
因为RICHTEXTBOX我搞不定就用WEBBROWSER了

...全文

599 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

大光呢 2010-10-20

打赏
举报

mshtml.HTMLDocument doc1 = (mshtml.HTMLDocument)this.webBrowser1.Document.DomDocument;
doc.parentWindow.scrollBy(0, 要滚动的高度);
这招是可以用，但是怎么会自动回到原位置呢？
滚动条向下到最下，然后马上有回到最上去了。

cbm6666 2008-04-28

打赏
举报

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com/"
End Sub

Private Sub Command1_Click()
WebBrowser1.Document.parentWindow.scrollTo 0, WebBrowser1.Document.body.scrollHeight
'WebBrowser1.Document.parentWindow.scrollTo 100, 100
End Sub

'屏蔽WebBroser右键的代码,使用下面两个API
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

留个邮箱我发给你.

lyserver 2008-04-28

打赏
举报

要使用HTMLDocument数据类型（实质是IHTMLDocument接口），先引用“Microsoft HTML Object Library“。

lyserver 2008-04-28

打赏
举报

以下是完整的代码，实现了右键屏蔽和滚动条滚到底部的功能

'------------------------------------------------------
' 程序名称:WebBrowserDemo
' 功能:屏蔽鼠标右键,控制滚动条位置
' 作者:lyserver
'------------------------------------------------------
Option Explicit

Dim WithEvents m_pDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "http://www.google.cn"
End Sub

Private Function m_pDoc_oncontextmenu() As Boolean
'屏蔽鼠标右键
m_pDoc_oncontextmenu = False
End Function

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Item As Object
Dim strHTML As String

'设置滚动条到底部
WebBrowser1.Document.parentWindow.Scroll 0, WebBrowser1.Document.Body.scrollHeight

'设置Document,将事件引入窗口的消息泵,实现鼠标右键的屏蔽
Set m_pDoc = WebBrowser1.Document
End Sub

zhang123shan 2008-04-28