Question

vb制作浏览器怎样不弹出ie窗口（回答正确会加分）

vb调用webbrowser做浏览器
new_window2事件时设置时也没用，
怎么让他浏览超连接师部自动跳出IE浏览器来浏览呢？？
就是不让浏览器自动跳到ie浏览器

Answer 1

我教你。。
1、新建工程，在窗体里面添加一个textbox控件和commandbutton控件，textbox的text属性设置为空，commandbutton的caption设置为转到。
2、添加一个webbrowser控件。。由于webbrowser是自定义控件。。所以需要自行添加。。
3、添加代码：
private
sub
command1_click()
webbrowser1.navigate
text1.text
end
sub
private
sub
form_load()
webbrowser1.gohome
end
sub
private
sub
webbrowser1_downloadbegin()
me.caption
=
"正在连接..."
end
sub
private
sub
webbrowser1_downloadcomplete()
me.caption
=
webbrowser1.locationname
text1.text
=
webbrowser1.locationurl
end
sub
这是个最简单的浏览器代码。。

Answer 2

Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub

Private Sub Command1_Click()
WebBrowser1.Navigate "www.163.com"
End Sub

说明：我刚得到的答案，回答者： mosquitokobe - 首席运营官 十三级 5-22 22:29，非常棒，已经解决了我的问题。

Answer 3

Private Sub Browser_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Browser.NewWindow
Dim newUrl = WebBrowser1.StatusText
        WebBrowser1.Navigate(newUrl) '加载新的网址
        e.Cancel = True '使外部浏览器无法捕获此事件
        end sub