2011年计算机等考二级VB辅导知识技巧总结(19)

　　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”按钮。程序就会弹出消息框提示“你点击了按钮.”

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总