- 浏览: 11665 次
最新评论
VB代码VB小程序: 捕获 WebBrowser控件的鼠标和键盘事件
2011年04月16日
当前位置:首页 > VB 小程序 > VB 捕获 WebBrowser控件的鼠标和键盘事件
83.VB 捕获 WebBrowser控件的鼠标和键盘事件
利用 Document 的 event 对象,可以捕获 WebBrowser 众多的鼠标和键盘事件的状态,如鼠标坐标、按下了键盘哪个键,以及键盘 Ctrl、Alt、Shift 键的状态、当前网页元素的ID、索引等等。
程序运行截图如下:
' ' '以下窗体代码在 VB6 调试通过
'在“工程/部件”的控件对话框中勾选:Microsoft Internet Controls
'在“工程/引用”对话框中勾选:Microsoft HTML Object Library
'然后再窗体放置控件:WebBrowser1
'程序运行后,在网页上移动、单击鼠标,或按下键盘某个键,注意窗体标题栏给出的信息
'本人原创,转载请注明来源:http://hi.baidu.com/100bd/blog/item/8c280b6cb6e9e3ed43169495.html
Private WithEvents ctDoc As MSHTML.HTMLDocument
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank" '设置为空白页,否则 ctDoc = WebBrowser1.Document 会无效
Set ctDoc = WebBrowser1.Document
WebBrowser1.Navigate "http://www.baidu.com/"
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub ctDoc_onmousemove()
EventsHTML
End Sub
Private Sub ctDoc_onmousedown()
EventsHTML
End Sub
Private Sub ctDoc_onmouseup()
EventsHTML
End Sub
Private Function ctDoc_onkeypress() As Boolean
EventsHTML
End Function
Private Sub ctDoc_onkeydown()
EventsHTML
End Sub
Private Sub ctDoc_onkeyup()
EventsHTML
End Sub
Private Sub EventsHTML()
Dim nEvent As String, X As Long, Y As Long
X = ctDoc.parentWindow.event.clientX '鼠标 x 坐标位置(像素)
Y = ctDoc.parentWindow.event.clientY '鼠标 y 坐标位置(像素)
nEvent = ctDoc.parentWindow.event.Type '事件名称,如:MouseDown、MouseMove、MouseUp、KeyPress 等
nEvent = nEvent & ":" & X & "," & Y
nEvent = nEvent & " Button=" & ctDoc.parentWindow.event.button '按下了鼠标那个键
nEvent = nEvent & " keyCode=" & ctDoc.parentWindow.event.keyCode '键盘编码
' nEvent = nEvent & " Ctrl=" & ctDoc.parentWindow.event.ctrlKey '键盘 Ctrl 键的状态
' nEvent = nEvent & " Alt=" & ctDoc.parentWindow.event.altKey '键盘 Alt 键的状态
' nEvent = nEvent & " Shift=" & ctDoc.parentWindow.event.shiftKey '键盘 Shift 键的状态
On Error Resume Next
nEvent = nEvent & " 元素=" & ctDoc.parentWindow.event.srcElement.tagName
nEvent = nEvent & " 索引=" & ctDoc.parentWindow.event.srcElement.sourceIndex
nEvent = nEvent & " ID=" & ctDoc.parentWindow.event.srcElement.id
Me.Caption = nEvent
End Sub
'本人原创,转载请注明来源:http://hi.baidu.com/100bd/blog/item/8c280b6cb6e9e3ed43169495.html
当前位置:首页 > VB 小程序 > VB 捕获 WebBrowser控件的鼠标和键盘事件
发表评论
-
[热门][转载]2012年下考酡语一轮温习必建一Unit 2 English
2012-01-20 12:02 573[热门][转载]2012年下考酡语一轮温习必建一Unit 2 ... -
螺丝规格定义与认识
2012-01-20 12:02 538螺丝规格定义与认识 2010年01月28日 论坛首页 & ... -
安徽省皖中省级示范三校08-09学年高二下学期期中考试
2012-01-20 12:02 682安徽省皖中省级示范三 ... -
消息处理函数
2012-01-19 16:53 465消息处理函数 2010年07 ... -
调用API函数
2012-01-19 16:53 554调用API函数 2010年11月26 ... -
从VC6到VC9移植代码问题总结收藏
2012-01-19 16:52 407从VC6到VC9移植代码问题 ... -
窗口和消息
2012-01-19 16:52 419窗口和消息 2011年06月27 ... -
vs2008使用点滴
2012-01-19 16:52 1033vs2008使用点滴 2011年02 ... -
Linux cp命令详解
2012-01-17 06:35 554Linux cp命令详解 2012年01月06日 源:h ... -
最新高配电脑
2012-01-17 06:35 431最新高配电脑 2012年01月09日 电脑型号 技嘉 ... -
协议适配器错误的解决方法
2012-01-17 06:35 559协议适配器错误的解决方法 2011年12月16日 Cas ... -
my.ini(my.cnf)与mysql优化指南
2012-01-17 06:35 861my.ini(my.cnf)与mysql优化指南 2011年 ... -
VB的webbrowser点击网页上的按钮链接问题
2012-01-16 05:16 1288VB的webbrowser点击网页上的按钮链接问题 2010 ... -
关于升级了IE后 VB6.0中添加webBrowser控件的问题
2012-01-16 05:16 858关于升级了IE后 VB6.0中添加webBrowser控件的问 ... -
VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
2012-01-16 05:16 767VB自动登陆网络站点详解(二):Inet控件与WebBrows ... -
如何用vb获取指定网页的验证码啊?(可以用webbrowser)
2012-01-16 05:16 575如何用vb获取指定网页的验证码啊?(可以用webbrowser ...
相关推荐
vb6_Webbrowser控件使用技巧 1、获得浏览器信息: Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow ...
WebBrowser控件使用详解,WebBrowser控件使用详解
用一个基本窗口MFC程序实现WebBrowser控件对指定网页页面的加载、展示、点击事件响应,以及实现对鼠标在页面中点击标签事件的捕获,并且返回标签的超链接。
用一个基本窗口MFC程序实现WebBrowser控件对指定网页页面的加载、展示、点击事件响应,以及实现对鼠标在页面中点击标签事件的捕获,并且返回标签的超链接。 在VS2010环境下编译通过。
1,在项目中引用程序集拓展中的Microsoft.mshtml后,可以在公共控件中找到WebBrowser控件。 2,在窗体中加入三个按钮,然后添加WebBrowser控件,右键控件选属性,设置相应的属性。 3,设置WebBrowser控件的属性 ...
Excel2007 VBA使用WebBrowser控件登录12306网站,推荐IE8,IE9也可以登录,但后继不能查询车票,是脑残的12306的问题。 程序涉及计时器、表单提交、页面加载完成判定、页面文字判断等多个方面。 代码来自网上若干人...
使用WebBrowser控件作为容器打开Word文档
WebBrowser控件技巧集
平台:visual Studio 2017 语言 :C++MFC 控件 :WebBrowser 描述:使用WebBrowser控件,做成一个简易的...通过此案例,可以学到基础的WebBrowser的操作,之后就可以在自己所做的程序中嵌入一些网站,丰富软件内容
VB控件WEBBROWSER基本及进阶技巧合集.doc
WebBrowser控件网上资料大全 本人为学习制作vb浏览器,在网上收集的文章及代码!
博客演示代码,演示了IE WebBrowser控件的基本使用,包括静态创建、动态创建和事件响应。
输入一个网址,通过WPF使用WebBrowser控件定时访问刷新网页
VB6.0实现,可以记录浏览历史、添加和管理收藏集,设置浏览器的界面语言等,是本人深入研究vb的WebBrowser控件进行浏览器开发的结晶。天狼星个人作品,版权所有,仅供参考学习。
MFC的WebBrowser控件 C++与JavaScript之间数据交互传递
天气预报的vbCode 显示各省天气预报,主要练习webbrowser控件处理源代码功能
源码是个MFC程序,加载了一个WebBrowser控件,并实现了C++与JavaScript之间数据交互传递。分成两个模块,分别展示数据传递的两个方向。
VB在webbrowser控件中使用Document.body.innerhtml获取网页框架内的网页代码
asp.net 使用WebBrowser控件浏览网页源码! 很值得下载看看!资源免费,大家分享!!