WebBrowser的问题

Question

在一个窗体里有2个WebBrowser控体WebBrowser1、WebBrowser2
我想点WebBrowser1上的链接然后在WebBrowser2上打开新链接！
还有WebBrowser1上我想加载本地的一个网页，但是不知道相对路径的写法！
请各位高手指点一下！谢谢！

Answer 1

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)Cancel=True
WebBrowser2.Navigate2 URLEnd Sub大概就是这样。

Answer 2

a.htm 放在exe运行的目录
如果在调试环境 请放到 X:\Program Files\Microsoft Visual Studio\VB98
a.htm<a href="W2http://www.google.com">W2:google</a><br>
<a href="W2http://www.qq.com">W2:qq</a><br>
<a href="http://www.google.com">google</a><br>
<a href="http://www.qq.com">qq</a><br>
from1Private Sub Command1_Click()
Me.WebBrowser1.Navigate2 App.Path & "\a.htm"
End SubPrivate 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)
If UCase(Left(URL, 2)) = UCase("W2") Then
    WebBrowser2.Navigate2 Right(URL, Len(URL) - 2)
    Cancel = True
End If
End Sub