不要用超文本浏览框
但WebBrowser可以
WebBrowser的NewWindow3事件中，参数 bstrUrl 就是要打开的新窗口的地址
这时可以实现在本窗口跳转即可
-------------------------------------------
.版本 2
.支持库 spec
.支持库 WebBrowser
.子程序 _WebBrowser1_NewWindow3
.参数 ppDisp, 对象, 参考
.参数 Cancel, 逻辑型, 参考
.参数 dwFlags, 整数型
.参数 bstrUrlContext, 文本型
.参数 bstrUrl, 文本型
调试输出 (bstrUrl)
WebBrowser1.Navigate2 (bstrUrl, , , , )
Cancel ＝ 真
我这里给你给源码，。没有支持库的话上百度、
创建一个超文本浏览框1，在输入一下命令：
.版本 2
.支持库 HtmlView
.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型
超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本
返回 (假)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024