1.form1Option ExplicitPublic Sub Some_Procedure()
MsgBox "你点击了按钮."
End SubFunction ContentMenu() As Boolean
'PopupMenu a
ContentMenu = False
End FunctionPrivate Sub Form_Load()
'下载空页面
WebBrowser2.Navigate2 "about:blank"
End SubPrivate Sub WebBrowser2_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代码写入浏览器
WebBrowser2.Document.body.innerHTML = sHTML '将事件响应类连接到页面的按钮btnMyButton上
Set cfForward = New clsForward
cfForward.Set_Destination Me, "Some_Procedure"
WebBrowser2.Document.All("btnMyButton").onclick = cfForward '屏蔽上下文菜单
Dim cContentMenu As New clsForward
cContentMenu.Set_Destination Me, "ContentMenu"
WebBrowser2.Document.body.oncontextmenu = cContentMenu
End Sub2.clsForwardOption 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
MsgBox "你点击了按钮."
End SubFunction ContentMenu() As Boolean
'PopupMenu a
ContentMenu = False
End FunctionPrivate Sub Form_Load()
'下载空页面
WebBrowser2.Navigate2 "about:blank"
End SubPrivate Sub WebBrowser2_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代码写入浏览器
WebBrowser2.Document.body.innerHTML = sHTML '将事件响应类连接到页面的按钮btnMyButton上
Set cfForward = New clsForward
cfForward.Set_Destination Me, "Some_Procedure"
WebBrowser2.Document.All("btnMyButton").onclick = cfForward '屏蔽上下文菜单
Dim cContentMenu As New clsForward
cContentMenu.Set_Destination Me, "ContentMenu"
WebBrowser2.Document.body.oncontextmenu = cContentMenu
End Sub2.clsForwardOption 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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货