100分求教，VB6中WebBrowser控件遇到的两个问题，请高手进来，分不够再追加，帮UP有分，版主也请进来……

[bimajia6]

以下问题希望回答者通过代码实现发上来，非常谢谢

问题1:
WebBrowser控件显示的页面内容很长时，浏览到下面时，如何点击一个按钮让其显示最上面，就是top的意思，如果刷新当前页面是可以实现不过这个方法不好，会影响到别的功能。

WebBrowser1.Document.body.Scroll = "top"

上面的代码理论应该可以实现，但WebBrowser1.Document后面根本“.”不出来，不知道是不是还要声明什么，请用过的详细指教。

问题2:
点击WebBrowser1中的网页链接，弹出很多IE窗口，但我只想要第一个显示的，而且希望它能在WebBrowser控件中显示不单独弹出IE，并且把其他后来出现的窗口都屏蔽掉，我在网上查的结果是：按照从后至前的顺序把弹出的页面都屏蔽掉，只留第一个，思路我是有了，可是要怎么才能实现，请高手给做个例子。


请版主帮各忙，上面这个问题困扰小弟很久了，麻烦帮解决下，谢谢了。

[VBToy]

'这样试一试
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub

• 打赏
• 举报

回复 赞

[zzz22333]

VBToy(无证编程) ( ) 信誉：100 Blog 2007-02-27 13:52:15 得分: 0


'这样试一试
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

这个我知道，但是我要的不是那样的，cancel只能阻止所有弹出的页面

• 打赏
• 举报

回复 赞

[清晨曦月]

WebBrowser1.Document后面根本“.”不出来这是正常现象......或许和是COM对象有关..你可以去参考JAVA(或JS)的DOCUMENT对象帮助...里面的属性,事件,方法在VB里都是被支持的。
不单独弹出..比较不难....
拦截NEWWINDOW2事件即可...各位楼上的方法是不行的,直接Cancel = True就出不来窗口了...
具体实现方法如下:哈哈,前几天刚一哥们在QQ上问过我..

以下是代码:
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object

WebBrowser1.Navigate "http://www.163.com"
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

(这段代码摘自微软网站的知识问答)
参考:
http://blog.csdn.net/zcsor/archive/2007/01/19/1488048.aspx

• 打赏
• 举报

回复 赞

[清晨曦月]

以上代码是实现了在同一窗口打开,你可以测试一下,163里面你点一般的连接都是新窗口的.测试时加入一个WebBrowser控件.
实际上,我给你说啊,你完全可以不这样做,你可以直接在NewWindow2里取消所有窗口的弹出,然后判断将要打开的窗口的URL,如果是,则导航到就能够实现你要的功能了......具体怎么做LZ自己想吧,
有不对的还请大家指正.

言尽于此......

• 打赏
• 举报

回复 赞

[li_net]

正在学习，帮顶！

• 打赏
• 举报

回复 赞

[zzz22333]

zcsor(偶业余的斗胆写点blog(IE表单自动填写相关内容更新ing) ( ) 信誉：100 Blog 2007-02-27 16:10:35 得分: 0


以上代码是实现了在同一窗口打开,你可以测试一下,163里面你点一般的连接都是新窗口的.测试时加入一个WebBrowser控件.
实际上,我给你说啊,你完全可以不这样做,你可以直接在NewWindow2里取消所有窗口的弹出,然后判断将要打开的窗口的URL,如果是,则导航到就能够实现你要的功能了......具体怎么做LZ自己想吧,
有不对的还请大家指正.

言尽于此......

-----------------------------------------------------------------------------
已经实现了，谢谢，不过还有问题想请教，如果你还能看这个帖子请加QQ：36552941或者MSN：[e-mail]

• 打赏
• 举报

回复 赞

[zzz22333]

现在结贴

• 打赏
• 举报

回复 赞

[guyehanxinlei]

友情UP

• 打赏
• 举报

回复 赞

[清晨曦月]

.........你可以加我QQ 47493585

• 打赏
• 举报

回复 赞

[zzz22333]

自己顶，直到问题解决，高手都没上班呢啊

• 打赏
• 举报

回复 赞

[VBToy]

第一个问题，在按钮的事件中：
WebBrowser1.Document.body.Scrolltop = 0

• 打赏
• 举报

回复 赞

[VBToy]

第二个问题不是很明白。是不是一个页面只让点击一个链接？其它链接无效？

• 打赏
• 举报

回复 赞

[feiyun0112]

newwindow事件

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

• 打赏
• 举报

回复 赞

[beal_p]

好像意思是说， 只要第一个页面，其他的都屏蔽掉

• 打赏
• 举报

回复 赞

[蒋晟]

http://support.microsoft.com/kb/184876

• 打赏
• 举报

回复 赞

[zzz22333]

beal_p() ( ) 信誉：100 Blog 2007-02-27 09:11:29 得分: 0


好像意思是说， 只要第一个页面，其他的都屏蔽掉


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
是这个意思


就是说点击链接的时候先弹出想要的页面，然后弹出类似广告的页面，同样显示在WebBrowser控件中，如果不屏蔽掉的话广告页面就把要显示的给挡住了。WebBrowser控件默认显示最后出现的页面。

以下是功能：

点击页面链接，我只想保留名字为“WebMenu”的页面，弹出的页面依次为：

WebMenu
页面1
页面2
页面3
……

请教怎么实现？

• 打赏
• 举报

回复 赞

[xiaolei1982]

无法帮助你解决，只好帮顶啦

• 打赏
• 举报

回复 赞

[zzz22333]

第一个问题解决

• 打赏
• 举报

回复 赞

[VBToy]

弹出的广告页面应该是由新页面中的脚本如javascript弹出的吧？

• 打赏
• 举报

回复 赞

[zzz22333]

VBToy(无证编程) ( ) 信誉：100 Blog 2007-02-27 10:20:46 得分: 0


弹出的广告页面应该是由新页面中的脚本如javascript弹出的吧？

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

我想应该是，因为每次我作的例子都是拿任意的网站比如：http://www.qq.com

• 打赏
• 举报

回复 赞