超文本链接框 不太好用,你可以尝试用webbrowser控件 用法和超文本浏览框类似,前提是你需安装有该控件!!
给你一段代码吧
webbrowser 有个WebBrowser_NewWindow2的事件
.版本 2
.支持库 shdocvw
.子程序 _WebBrowser_NewWindow2, , , 将本事件的“Cancel”参数设为“真”,即可阻止弹出窗口
.参数 ppDisp, 对象, 参考
.参数 Cancel, 逻辑型, 参考
' Cancel = 真
ppDisp = WebBrowser1.GetApplication ()
WebBrowser.可视 = 假
WebBrowser1.可视 = 真
补充: 呵呵~~~~~就是这个代码~~~我的是不会弹出IE窗口的(里边有点小窍门,自己想想,),不过提示框还是会弹出的!!
超文本链接框?我怎么没听过这个控件呢,是超文本浏览框还是超级链接框?
如果说是超文本浏览框的话,我到是做过类似的效果,代码:
.版本 2
.支持库 HtmlView
.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型
超文本浏览框1.跳转 (超文本浏览框1.状态条文本, , )
返回 (假)
用WebbrowserNPK原版控件。不过由于Webbrowser是英文版的,建议使用中文版的。
中文版Webbrowser:http://bbs.eyuyan.com/dispbbs.asp?BoardID=124&ID=196434&replyID=&skin=1
有2个方法:
第一个:启动窗口创建完毕
超文本浏览框.地址=“你想浏览的网页地址”
第二个:添加一个按钮组件,双击按钮,
按钮1被单击,
超文本浏览框.地址=“你想浏览的网页地址”
这样浏览的连接内容就在超文本浏览框中显示,不会另外弹出窗口。
不知道这是不是你想要的答案?