vbMHWB控件同webbrowser一样,是Web控件,但功能比webbrowser更强大,下面将介绍vbMHWB的一部分属性和方法。
一、使用vbMHWB控件浏览网页
Dim i As Integer
vbWB1.AddBrowser i
vbWB1.Navigate i, "www.baidu.com"
vbWB1.DocumentDownloadControlFlags = WBDOCDOWNLOADCTLFLAG_NO_DLACTIVEXCTLS ‘禁止加载多媒体元素,包括图片、声音、动画、影视
从上可以看出, vbMHWB控件和webbrowser使用方法有些区别,不过核心代码不变。
二、 vbMHWB控件的一些属性
vbWB1.DocumentDownloadControlFlags =
1、WBDOCDOWNLOADCTLFLAG_DLIMAGES ’允许所有图片下载
2、WBDOCDOWNLOADCTLFLAG_BGSOUNDS ‘允许所有声音下载
3、WBDOCDOWNLOADCTLFLAG_VIDEOS ’允许所有视频下载
4、WBDOCDOWNLOADCTLFLAG_NO_SCRIPTS ‘禁止Script执行
5、WBDOCDOWNLOADCTLFLAG_NO_JAVA ’禁止Java执行
6、WBDOCDOWNLOADCTLFLAG_NO_RUNACTIVEXCTLS ‘禁止Activex 控件执行
7、WBDOCDOWNLOADCTLFLAG_NO_DLACTIVEXCTLS ’不下载Activex控件
8、WBDOCDOWNLOADCTLFLAG_NO_FRAMEDOWNLOAD ‘不下载框架
9、WBDOCDOWNLOADCTLFLAG_NO_BEHAVIORS ’不下载Behavoirs(偶不懂这是啥意思有啥用的)
静默属性:(相当于webBrowser的Silent属性)
vbWB1.Silent=True或False
文档属性:
vbWB1.DocumentHostUiFlags=
1、WBDOCHOSTUIFLAG_DIALOG:禁止选择网页文本(使用了该项,你将不能选择网页的文本)
2、WBDOCHOSTUIFLAG_NO3DBORDER:使用普通边界
事件:(添加该控件,选择该事件,会有相应的参数出现)
vbWB1_NavigateError
Cancel=False :禁止显示脚本错误提示
vbWB1_DocHostShowMessage
ShowMsgInternaly = False :禁止显示Http信息
一、使用vbMHWB控件浏览网页
Dim i As Integer
vbWB1.AddBrowser i
vbWB1.Navigate i, "www.baidu.com"
vbWB1.DocumentDownloadControlFlags = WBDOCDOWNLOADCTLFLAG_NO_DLACTIVEXCTLS ‘禁止加载多媒体元素,包括图片、声音、动画、影视
从上可以看出, vbMHWB控件和webbrowser使用方法有些区别,不过核心代码不变。
二、 vbMHWB控件的一些属性
vbWB1.DocumentDownloadControlFlags =
1、WBDOCDOWNLOADCTLFLAG_DLIMAGES ’允许所有图片下载
2、WBDOCDOWNLOADCTLFLAG_BGSOUNDS ‘允许所有声音下载
3、WBDOCDOWNLOADCTLFLAG_VIDEOS ’允许所有视频下载
4、WBDOCDOWNLOADCTLFLAG_NO_SCRIPTS ‘禁止Script执行
5、WBDOCDOWNLOADCTLFLAG_NO_JAVA ’禁止Java执行
6、WBDOCDOWNLOADCTLFLAG_NO_RUNACTIVEXCTLS ‘禁止Activex 控件执行
7、WBDOCDOWNLOADCTLFLAG_NO_DLACTIVEXCTLS ’不下载Activex控件
8、WBDOCDOWNLOADCTLFLAG_NO_FRAMEDOWNLOAD ‘不下载框架
9、WBDOCDOWNLOADCTLFLAG_NO_BEHAVIORS ’不下载Behavoirs(偶不懂这是啥意思有啥用的)
静默属性:(相当于webBrowser的Silent属性)
vbWB1.Silent=True或False
文档属性:
vbWB1.DocumentHostUiFlags=
1、WBDOCHOSTUIFLAG_DIALOG:禁止选择网页文本(使用了该项,你将不能选择网页的文本)
2、WBDOCHOSTUIFLAG_NO3DBORDER:使用普通边界
事件:(添加该控件,选择该事件,会有相应的参数出现)
vbWB1_NavigateError
Cancel=False :禁止显示脚本错误提示
vbWB1_DocHostShowMessage
ShowMsgInternaly = False :禁止显示Http信息