窗体怎么与webBrowse控件里的Web页面交互,比较有难度.大分酬谢
窗体如何与webBrowse控件里的Web页面交互,比较有难度....大分酬谢
如: 在Web页面上点击一个链接, 在窗体上就弹出一个界面,并且显示相应的信息.
不知是否可行?
------解决方案--------------------
点击链接后会产生BeforeNavigate2事件,可以在该事件中进行处理,还可以利用url传递参数。将cancel=false,则可以阻止webbrowser的navigate。
------解决方案--------------------
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Debug.Print URL
If InStr(1, URL, "button:// ", vbTextCompare) > 0 Then
'分析协议的代码
Cancel = True
End If
End Sub
这样就成了
你的协议,定成这样:
button://xxxxxx
后面的xxxxxx就自己指定一下吧.
还需要写个分析指令的过程,不过这个应该比较简单,自己搞定吧....
------解决方案--------------------
BeforeNavigate2
NewWindow2之后也要用BeforeNavigate2获得网址
当然也可以实现用ICustomDoc挂接IDocHostUIHandler,把链接目标设置为javascript函数,通过window.external访问应用程序
------解决方案--------------------
不知道你什么系统,看看有没有NewWindow3,有就处理这个
------解决方案--------------------
介绍如何在代码中监控webbrowser中的按钮的OnClick等事件的文章:
http://blog.****.net/technofantasy/archive/2003/08/29/2964.aspx
如: 在Web页面上点击一个链接, 在窗体上就弹出一个界面,并且显示相应的信息.
不知是否可行?
------解决方案--------------------
点击链接后会产生BeforeNavigate2事件,可以在该事件中进行处理,还可以利用url传递参数。将cancel=false,则可以阻止webbrowser的navigate。
------解决方案--------------------
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Debug.Print URL
If InStr(1, URL, "button:// ", vbTextCompare) > 0 Then
'分析协议的代码
Cancel = True
End If
End Sub
这样就成了
你的协议,定成这样:
button://xxxxxx
后面的xxxxxx就自己指定一下吧.
还需要写个分析指令的过程,不过这个应该比较简单,自己搞定吧....
------解决方案--------------------
BeforeNavigate2
NewWindow2之后也要用BeforeNavigate2获得网址
当然也可以实现用ICustomDoc挂接IDocHostUIHandler,把链接目标设置为javascript函数,通过window.external访问应用程序
------解决方案--------------------
不知道你什么系统,看看有没有NewWindow3,有就处理这个
------解决方案--------------------
介绍如何在代码中监控webbrowser中的按钮的OnClick等事件的文章:
http://blog.****.net/technofantasy/archive/2003/08/29/2964.aspx