在vb中，如何做多页面浏览器（用webbrowser）

建立个VB标准exe工程
引用WebBrowser控件默认名即可
再加入个文本控件，以便输入url地址，默认命名就可以了
再加入个按钮
比如让你做的这个窗口在打开时显示主页加入以下代码在Form Load事件中
Private Sub Form_Load()
WebBrowser1GoHome
End Sub
比如在你想在文本框内输入网址，然后点击按钮就可以浏览你需要的网页，双击这个按钮在Button Click事件中加入以下代码：
Private Sub Button1_Click()
WebBrowser1Navigate Text1 [也可以这样写这行代码：WebBrowser1Navigate(Text1Text) ]
End Sub
这是个简单的浏览器，要想做一个完善点的，你得自己努力点去学了
那还要编什么？？在浏览器点菜单: 编辑-〉查找（在当前页面）输入你要查找的内容不就得了（或者按Ctrl+F）
如果这个浏览器是你自己编的想要添加当前页面的查找的功能。你得用函数了。建立个search函数，你可以对照数据结构上的查找匹配去建立这个函数

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = Form1WebBrowser2Object
End Sub
Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser1Navigate URL
Cancel = True
End Sub

如果你用的是VB2005的话,这个问题太简单了,先在窗体上放一个文本框,用于输入网址,再放一个按钮,再放一个WebBrowser控件,在按钮下写入如下代码即可:
WebBrowser1Navigate(Textbox1Text)
IE能浏览的网页你都能浏览!

WebBrowser控件有d窗的事件（NewWindow）的，你可以捕捉一下，然后就是自己处理怎么打开这个窗口咯！
简单说就是你看一下WebBrowser控件的Event事件里，应该有NewWindow事件，在里面补充你的代码就行了。
求采纳为满意回答。

不用控件,用代码
看以下的吧
后退 WebBrowser1GoBack
前进 WebBrowser1GoForward
主页 WebBrowser1Navigate ("主页地址")
刷新 WebBrowser1Refresh
搜索 WebBrowser1GoSearch
停止 WebBrowser1Stop
查找 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
复制 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
粘贴 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
选择全部 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
页面设置 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
打印预览 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
打印 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
属性 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
保存 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DODEFAULT
另存为 WebBrowser1SetFocus:WebBrowser1ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
源文件 WebBrowser1Navigate "View-Source:" & WebBrowser1LocationURL

这里涉及到一个问题，就是当页面中<a href="" target=_blank>的时候，如果你强制让页面在本页打开，会产生一些浏览问题。
自己写的浏览器真正要实现这样的功能，建议处理NewWindow、BeforeNavigate事件，NewWindow事件得到当前OPEN的URL，BeforeNavigate事件可以得到WIN传入的URL，然后处理下就可以了，可以用于类似傲游这样的本页面多开似的。
更改HKEY_CLASSES_ROOT\>建立个VB标准exe工程
引用WebBrowser控件默认名即可
再加入个文本控件，以便输入url地址，默认命名就可以了
再加入个按钮
比如让你做的这个窗口在打开时显示主页加入以下代码在Form Load事件中
Private Sub Form_Load()
WebBrowser1GoHome
End Sub
比如在你想在文本框内输入网址，然后点击按钮就可以浏览你需要的网页，双击这个按钮在Button Click事件中加入以下代码：
Private Sub Button1_Click()
WebBrowser1Navigate Text1 [也可以这样写这行代码：WebBrowser1Navigate(Text1Text) ]
End Sub
这是个简单的浏览器，要想做一个完善点的，你得自己努力点去学了
那还要编什么？？在浏览器点菜单: 编辑-〉查找（在当前页面）输入你要查找的内容不就得了（或者按Ctrl+F）
如果这个浏览器是你自己编的想要添加当前页面的查找的功能。你得用函数了。建立个search函数，你可以对照数据结构上的查找匹配去建立这个函数

---