- 浏览: 14099 次
最新评论
使用 WebBrowser 控件如何防止某些网页强行最大化
2009年08月27日
其他 VB 文章 VB 小程序
58.使用 WebBrowser 控件如何防止某些网页强行最大化
有些网页很讨厌,强行最大化充满了整个窗口,与工具栏等控件重叠在一起,或遮住了自己设置的控件。如何避免这种情况呢?我是这样做的:
在 WebBrowser1 的 DownloadComplete 事件中检测网页元素总个数,如果元素总个数发生了变化,第一次调用 Form_Resize 将控件宽度设置为比正常宽度稍少一点,然后再次调用 Form_Resize 将控件宽度设置为正常状态。
有关代码如下:
dim nCount As Long,nSmall as Boolean
Private Sub WebBrowser1_DownloadComplete() Dim S As Long
On Error Resume Next
S = WebBrowser1.Document.All.length
If nCount = S Then exit sub
nCount = S
ctSmall = True: Call Form_Resize '将控件宽度缩小一点
ctSmall = False: Call Form_Resize '将控件宽度调整为正常状态
end subPrivate Sub Form_Resize()
Dim L As Long, T As Long, H As Long, W As Long
T=300
W = Me.ScaleWidth: H = Me.ScaleHeight - T
If ctSmall Then W = W - 30 '比正常宽度少 2 个像素
If H > 0 And W > 0 Then WebBrowser1.Move L, T, W, H
End Sub
另外,在显示新网页时,也就是调用 Navigate 方法前,应将变量 nCount 位为 0,如下所示:
nCount = 0
WebBrowser1.Navigate nURL
这样做的缺点是,网页加载时,宽度有一个缩小又变回正常状态的过程。
不过,这种变化并不明显。
其他 VB 文章 VB 小程序
发表评论
-
评论 (
2012-01-20 12:03 554评论 ( 2011年10月04日 初中英语教学予中考 ... -
安师大附中2012届高三第一
2012-01-20 12:03 747安师大附中2012届高三第 ... -
2012届高三语文每日一练
2012-01-20 12:03 11082012届高三语文每日一练 ... -
Button图片按钮
2012-01-19 16:53 798Button图片按钮 2011年11 ... -
VB中实现系统托盘图标实例
2012-01-19 16:53 1085VB中实现系统托盘图标实例 2011年04月19日 新建 ... -
SubClassWindow,SubClassDlgItem
2012-01-19 16:53 779SubClassWindow,SubClassDlgItem ... -
钩子程序解释说明都要注意小心钩子哦
2012-01-19 16:53 381钩子程序解释说明都要 ... -
windows消息机制
2012-01-19 16:53 512windows消息机制 2011年04月21日 一 W ... -
Do it
2012-01-17 06:36 571Do it 2011年12月10日 网站开发工程师 申请 ... -
汽车英语词汇 (2012了 大家抓紧学习)
2012-01-17 06:36 670汽车英语词汇 (2012了 大家抓紧学习) 2012年0 ... -
win7电脑配置
2012-01-17 06:36 966win7电脑配置 2011年12月30日 ------- ... -
AS3 编程易犯盲点――绝对对您有帮助,新手们都来看看吧
2012-01-17 06:35 646AS3 编程易犯盲点――绝对对您有帮助,新手们都来看看吧 2 ... -
webbrowser模拟确定窗口对话框
2012-01-16 05:18 1223webbrowser模拟确定窗口对 ... -
使用Webbrowser的一点心得体会
2012-01-16 05:18 978使用Webbrowser的一点心得体会 2009年06月29 ... -
WebBrowser控件使用详解
2012-01-16 05:18 649WebBrowser控件使用详解 2010年09月29日 ... -
WebBrowser控件使用代理服务器(vb.net)
2012-01-16 05:18 1748WebBrowser控件使用代理服务器(vb.net) 20 ...
相关推荐
WebBrowser控件使用详解,WebBrowser控件使用详解
输入一个网址,通过WPF使用WebBrowser控件定时访问刷新网页
Excel2007 VBA使用WebBrowser控件登录12306网站,推荐IE8,IE9也可以登录,但后继不能查询车票,是脑残的12306的问题。 程序涉及计时器、表单提交、页面加载完成判定、页面文字判断等多个方面。 代码来自网上若干人...
4,双击按钮添加代码,调用WebBrowser控件的Navigate方法实现显示不同网页 private void button1_Click(object sender, EventArgs e) { webBrowser1.Navigate("网址"); } 5,实现点链接而不弹窗,右击...
vb6_Webbrowser控件使用技巧 1、获得浏览器信息: Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow ...
使用WebBrowser控件打印页面demo,通过修改demo中的几行代码就可以使用
WebBrowser控件技巧集
这是一个通过webbrowser打开百度并控制搜索内容的MFC小项目。其它网页控制大同小异,可以做为参考。VS2015项目。
案例文档里面有使用教程——《基于MFC与第三方类CWebPage的百度地图API开发范例.pdf》,可依照教程步骤进行操作。源码在“GeoDemo”文件夹里面。
博客演示代码,演示了IE WebBrowser控件的基本使用,包括静态创建、动态创建和事件响应。
MFC的WebBrowser控件 C++与JavaScript之间数据交互传递
asp.net 使用WebBrowser控件浏览网页源码! 很值得下载看看!资源免费,大家分享!!
可以编译通过,但程序运行崩溃,可是找不出问题在哪里,上传源码,大家有兴趣可以看看
WebBrowser控件网上资料大全 本人为学习制作vb浏览器,在网上收集的文章及代码!
用一个基本窗口MFC程序实现WebBrowser控件对指定网页页面的加载、展示、点击事件响应,以及实现对鼠标在页面中点击标签事件的捕获,并且返回标签的超链接。
有网页: http://www.portinfo.net.cn/spinfo/premanifest.php
WebBrowser控件之所有强大,一方面是由于控件本身提从了一系列的方法,包括打开网页,获取网页信息,操作网页(如前进后通等),拦截网页事件,另一方面则是提供了与网页相调用的机制。即以下2点: 1:让HTML页面的...
平台:visual Studio 2017...描述:使用WebBrowser控件,做成一个简易的浏览器,可以进行最基础的网页浏览操作。通过此案例,可以学到基础的WebBrowser的操作,之后就可以在自己所做的程序中嵌入一些网站,丰富软件内容
使用WebBrowser控件作为容器打开Word文档