Question

vb6.0如何响应WebBrowser控件中的超链接

vb6.0如何响应WebBrowser控件中的超链接

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<a href='http://www.baidu.com'>百度</a>"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = URL
End Sub

这样可以再text1.text中显示连接，但页面会跳转到百度首页，我不想让页面跳转。
如果
WebBrowser1.Document.write "<a href='http://www.baidu.com' onclick="javascript:return false;>百度</a>"
这样页面不会跳转，但得不到URL地址。

我想点击超链接，vb响应处理一段程序，但页面不跳转

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = URL
End Sub

这句本身就是WebBrowser1加载完成时执行的，不跳转，WebBrowser1的url不显示，跳转就显示正常的url,不能既不跳转又显示吧 ，页面不会跳转，到哪找URL地址？

Answer 2

既然只是简单的进销存 你又非得设计好看的界面~那不如直接用网页编程的方式设计网页 用VB的webbrowser控件显示就好 内容也可以设计好看点 也能达到目的

Answer 3

不难 加我百度HI 我教你