加个过程就可以你的窗体中新开: Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim NewWindow As frmMain Set NewWindow = New frmMain NewWindow.WebBrowser1.RegisterAsBrowser = True Set ppDisp = NewWindow.WebBrowser1.object NewWindow.Visible = True End Sub 把上面的frmMain改成你的窗体名本回答被网友采纳
第2个回答 2012-09-01
控制webbrowser不弹出IE窗口的方法是在控件的NewWindow2事件里面添加如下代码:
Set ppDisp = WebBrowserTemp.Object ' WebBrowserTemp为自己在窗体中另外添加的Webbrowser控件