我用WebBrowser1做了个简易的浏览器，但是一打开新窗口就用IE打开了，结果参数带不过去，有什么办法？

Question

??没有把参数带过去
ASP参数？

Answer 1

是啊，是ASP内置的sission等参数。

Answer 2

WebBrowser1.RegisterAsBrowser = True

Answer 3

WebBrowser1.RegisterAsBrowser = True
我在窗体载入时加了这条语句，
但没用啊。

Answer 4

在Form中加入webbrowser浏览页面，如果点击的链接在新窗口中打开就会在IE中打开，下面的代码会打开一个新的Form来显示新页面： Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() 
Set Web_V1 = WebBrowser1.Object 
WebBrowser1.Navigate2 "http://www.applevb.com/" 
End Sub Private Sub Form_Unload(Cancel As Integer) 
End 
End Sub Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean) 
Processed = True 
WebBrowser1.Navigate URL 
End Sub 

Answer 5

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim a As New Form1
Set ppDisp = a.WebBrowser1.Object
a.ShowEnd Sub

Answer 6

Private Sub Command1_Click()
    '浏览任何一个可以弹出菜单的窗口，下面的窗口将弹出窗口，地址为
    'http://www.ap.dell.com/html/ap/popup/cn/zh/cnbsd.htm
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate 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

Answer 7

严重同意在WebBrowser1_NewWindow2里处理