vb的webbroswer显示网页,点击网页按钮，如何执行vb程序

Question

vb的webbroswer显示网页,点击网页按钮，如何执行vb程序

Answer 1

http://topic.csdn.net/u/20070526/21/9f5ed02c-3ed3-4d21-a640-260371b5a501.html

Answer 2

Public Sub Some_Procedure()
MsgBox "你点击了按钮."
End SubPrivate Sub Form_Load()
'下载空页面
WebBrowser1.Navigate2 "c:\t.htm"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'建立事件响应类 Dim webdoc As HTMLDocument
Set webdoc = WebBrowser1.DocumentDim cfForward As clsForward'定义在浏览器中显示的HTML代码，其中包含一个按钮btnMyButton
'Dim sHTML As String
'sHTML = sHTML & "Click this button."'将HTML代码写入浏览器
'WebBrowser1.Document.body.innerHTML = sHTML'将事件响应类连接到页面的按钮btnMyButton上
Set cfForward = New clsForward
cfForward.Set_Destination Me, "Some_Procedure"
webdoc.All("btnSubmit").onclick = cfForwardEnd Sub
类
Option ExplicitDim oObject As Object
Dim sMethod As String
Dim bInstantiated As BooleanPrivate Sub Class_Initialize()
bInstantiated = False
End SubPublic Sub Set_Destination(oInObject As Object, sInMethod As String)
Set oObject = oInObject
sMethod = sInMethod
bInstantiated = True
End SubPublic Sub My_Default_Method()
If bInstantiated Then
CallByName oObject, sMethod, VbMethod
End If
End Sub 点 btnSubmit 按钮为什么不能调用  Some_Procedure？？？