2011年計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧總結(jié)(19)

　　WebBrowser1.Document.body.innerHTML = sHTML

　　'將事件響應(yīng)類連接到頁(yè)面的按鈕btnMyButton上

　　Set cfForward = New clsForward

　　cfForward.Set_Destination Me, "Some_Procedure"

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

　　End Sub

　　向工程中添加一個(gè)Class Module，Class Module的Name屬性設(shè)定為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

　　運(yùn)行程序，點(diǎn)擊Webbrowser中的“Click this button”按鈕。程序就會(huì)彈出消息框提示“你點(diǎn)擊了按鈕.”

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總