滕州市建设网站,网站备案转服务器,app拉新项目,做预算查价格的网站是哪个好49. 捕获 WebBrowser 控件的鼠标事件VB 的网页浏览控件 WebBrowser 没有 MouseDown、MouseMove、MouseUp 等鼠标事件#xff0c;要在程序中捕获这些事件#xff0c;必须另想办法。本文使用注入 java 脚本的方法来捕获控件的鼠标事件。另一更为有效的方法#xff0c;可以捕获…49. 捕获 WebBrowser 控件的鼠标事件VB 的网页浏览控件 WebBrowser 没有 MouseDown、MouseMove、MouseUp 等鼠标事件要在程序中捕获这些事件必须另想办法。本文使用注入 java 脚本的方法来捕获控件的鼠标事件。另一更为有效的方法可以捕获 WebBrowser 众多的鼠标和键盘事件如鼠标坐标、按下了键盘哪个键以及键盘 Ctrl、Alt、Shift 键的状态、当前网页元素的ID、索引等等。参见另一文章VB 捕获 WebBrowser控件的鼠标和键盘事件以下代码在 VB6 调试通过勾选部件Microsoft Internet Controls在窗体放置控件WebBrowser1程序运行后在 WebBrowser1 内移动或按下鼠标注意观察窗口标题栏给出的信息本人原创转载请注明来源http://hi.baidu.com/100bd/blog/item/19795a80b2ba61d5bd3e1ee1.htmlPrivate Sub Form_Load()Me.Caption WebBrowser 鼠标事件例子WebBrowser1.Navigate about:blank 设置为空白页或某网页否则无法进行鼠标捕获 WebBrowser1.Navigate http://www.baidu.com 显示百度首页End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Me.Caption WebBrowser 鼠标事件例子End SubPrivate Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)Dim nStr As StringnStr URLIf Left(nStr, 8) mouse:// Then Exit Sub 让网页正常跳转Cancel True 让网页不要跳转Dim nMouse As String, x As Long, y As Long, S As LongnStr Mid(nStr, 9)S InStr(nStr, |)nMouse Left(nStr, S - 1): nStr Mid(nStr, S 1)S InStr(nStr, |)x Val(Left(nStr, S - 1)): y Val(Mid(nStr, S 1))Me.Caption nMouse x y 显示鼠标捕获的状态End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)On Error Resume NextDim js As String脚本用于捕获 鼠标按下js document.body.οnmοusedοwnfunction() vbCrLf _{location.hrefmouse://down|window.event.x |window.event.y;}WebBrowser1.Document.parentWindow.execScript js, javascript脚本用于捕获 鼠标移动js document.body.οnmοusemοvefunction() vbCrLf _{location.hrefmouse://move|window.event.x |window.event.y;}WebBrowser1.Document.parentWindow.execScript js, javascript脚本用于捕获 鼠标抬起js document.body.οnmοuseupfunction() vbCrLf _{location.hrefmouse://up|window.event.x |window.event.y;}WebBrowser1.Document.parentWindow.execScript js, javascriptEnd Sub本人原创转载请注明来源http://hi.baidu.com/100bd/blog/item/19795a80b2ba61d5bd3e1ee1.html另一更为有效的方法可以捕获 WebBrowser 众多的鼠标和键盘事件如鼠标坐标、按下了键盘哪个键以及键盘 Ctrl、Alt、Shift 键的状态、当前网页元素的ID、索引等等。参见另一文章VB 捕获 WebBrowser控件的鼠标和键盘事件
