VB高手快来帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/26 14:25:31
如何添加代码，完成动作：WebBrowser1中，可浏览网页，当点击WebBrowser1中的链接时，再次打开自己这个窗口，并在新窗口的WebBrowser的控件中，先是新的网页。
要求：效果和IE6.0一样

我记得应该要用NewWindow2事件吧。。。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
WebBrowser1.Navigate2 Combo1.Text
Else
Exit Sub
End If
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True

End Sub

Public iURL As String

Private Sub Form_Load()
If Len(iURL) = 0 Then iURL = "http://zhidao.baidu.com/question/44630114.html"
WebBrowser1.Navigate iURL
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel