VB 2008 webbrowser 控件如何强制单一窗口

Question

请问如何时VB 程序中的 webbrowser 只在一个窗口中打开啊？

Answer 1

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()
    Set Web_V1 = WebBrowser1.Object
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 2

编译错误 
1：Type 'SHDocVwCtl.WebBrowser_V1' not defined
2:'Object' is not a member of 'System.Windows.Forms.WebBrowser'如何解决啊？我是VB新手

Answer 3

首先你添加部件webbrowser了吗？如果这个都没添加那真是不可思议

Answer 4

添加了啊，我已经可以在我的VB 程序里使用 webbrowser 控件打开网页了。

Answer 5

没注意，原来楼主说的是vb.net

Answer 6

我用的是 vb 2008 express edition？ 有什么不同么？

Answer 7

那请问，VB.net 应该怎样做呢？

Answer 8

找到答案了，能不能给自己加分呢？http://social.msdn.microsoft.com/forums/en-US/winforms/thread/eab43afa-df4d-4278-926a-b07d2d6ca9fd/按照如上链接的方法。当 newWindow Event的时候
    Private Sub wb_NewWindowExtended(ByVal sender As Object, ByVal e As Module1.WebBrowserNewWindowExtendedEventArgs)
        'This is a new event
        e.Cancel = True
        wb.Navigate(e.Url)
    End Sub

Answer 9

martinuk, 我把你的代码改成: Private Sub wb_NewWindowExtended(ByVal sender As Object, ByVal e As Module1.WebBrowserNewWindowExtendedEventArgs) 'This is a new event 
e.Cancel = True 
wb.Navigate(e.Url) 
End Sub运行后提示,用户定义类型未定义,是怎么回事呢?我把你的wb.改成WebBrowser1.,还有其它什么地方要改吗? E是指什么?

Answer 10

这个WithEvents是什么东东啊? 一直提示出错,这段代码要放在程序的哪个地方里?