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>"
''''将事件响应类连接到页面的按钮btnMyButton上 Set cfForward = New clsForward cfForward.Set_Destination Me, "Some_Procedure" WebBrowser1.Document.All("btnMyButton").onclick = cfForward End Sub