网页功能: 加入收藏 设为首页 网站搜索  
监控网页中元素的事件
发表日期:2003-07-10作者:TechnoFantasy[] 出处:  

对编写脚本熟悉的读者都知道页面中可以添加脚本响应元素的事件,例如超链接的OnClick事件,图片的OnMouseMove事件,我们也可以使VB程序响应这些事件。下面是一个VB响应页面中按钮的Click事件的代码:

首先建立一个新工程,在Form1中加入一个Webbrowser控件,然后在Form1中加入以下代码:

Option Explicit

Public Sub Some_Procedure()

MsgBox "你点击了按钮."

End Sub

Private Sub Form_Load()

'下载空页面

WebBrowser1.Navigate2 "about:blank"

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

'建立事件响应类

Dim cfForward As clsForward

'定义在浏览器中显示的HTML代码,其中包含一个按钮btnMyButton

Dim sHTML As String

sHTML = "<P>This is some text.</P>"

sHTML = sHTML & "<P>And here is a button.</P>"

sHTML = sHTML & "<BUTTON ID=btnMyButton>"

sHTML = sHTML & "Click this button.</BUTTON>"

'将HTML代码写入浏览器

WebBrowser1.Document.body.innerHTML = sHTML

'将事件响应类连接到页面的按钮btnMyButton上

Set cfForward = New clsForward

cfForward.Set_Destination Me, "Some_Procedure"

WebBrowser1.Document.All("btnMyButton").onclick = cfForward

End Sub

向工程中添加一个Class Module,Class Module的Name属性设定为clsForward,在clsForward中添加以下代码:

Option Explicit

Dim oObject As Object

Dim sMethod As String

Dim bInstantiated As Boolean

Private Sub Class_Initialize()

bInstantiated = False

End Sub

Public Sub Set_Destination(oInObject As Object, sInMethod As String)

Set oObject = oInObject

sMethod = sInMethod

bInstantiated = True

End Sub

Public Sub My_Default_Method()

If bInstantiated Then

CallByName oObject, sMethod, VbMethod

End If

End Sub

运行程序,点击Webbrowser中的“Click this button”按钮。程序就会弹出消息框提示“你点击了按钮.”

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 监控网页中元素的事件
本类热点文章
  用MSComm控件实现来电显示
  WOL(Wake on Lan)程序的源代码
  用VB调试串口通讯
  用PocketPCPhone替代AT指令的手机SMS服务
  保存页面为MHT的代码
  用VB动态获取所有网络邻居的名称及其IP..
  于Winsock控件制作的一个“服务器,N客..
  VB实现远程共享显示及声音
  Windows下访问共享的解决方案
  VB实现的MSN信息群发软件
  如何检测是否已连接到Internet?
  VB学习:MX记录获取组件
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00354