【vb精品源码栏目提醒】:网学会员在vb精品源码频道为大家收集整理了“VB Webbrowser控件使用方法 - 其它资料“提供大家参考,希望对大家有所帮助!
VB Webbrowser 控件使用方法 方法 说明 GoBack 相当于 IE 的“后退”按钮,使你在当前历史列表中后退一项 相当于 IE 的“前进”按钮,使你在当前历史列表中前进一项GoForward GoHome 相当于 IE 的“主页”按钮,连接用户默认的主页 相当于 IE 的“搜索”按钮,连接用户默认的搜索页面GoSearch Navigate 连接到指定的 URL Refresh 刷新当前页面 Refresh2 同上,只是可以指定刷新级别,所指定的刷新级别的值来自 RefreshConstants 枚举表, 该表定义在 ExDisp.h 中,可以指定的不同值如下: REFRESH_NORMAL 执行简单的刷新,不将 HTTP pragma: no-cache 头发送给服务器 REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新 REFRESH_CONTINUE 仅作内部使用。
MSDN 里写着 DO NOT 在 USE 请勿使用 REFRESH_COMPLETELY 将包含 pragma: no-cache 头的请求发 送到服务器 Stop 相当于 IE 的“停止”按钮,停止当前页面及其内容的载入 属性 说明 Application 如果该对象有效,则返回掌管 WebBrowser 控件的应用程 序实现的自动化对象IDispatch。
如果在宿主对象中自动化 对象无效,这个程序将返回 WebBrowser 控件的自动化对象 返回 WebBrowser 控件的父自动化对象,通常是一个容器, Parent 例如是宿主或 IE 窗口 返回 WebBrowser 控件容器的自动化对象。
通常该值与 Container Parent 属性返回的值相同 为活动的文档返回自动化对象。
如果 HTML 当前正被显示在 WebBrowser 中,则 Document Document 属性提供对 DHTML Object Model 的访问途 径 返回一个 Boolean 值, 表明 IE 是否是 WebBrowser 控件TopLevelContainer 顶层容器,是就返回 true Type 返回已被 WebBrowser 控件加载的对象的类型。
例如:如 果加载.doc 文件,就会返 回 Microsoft Word Document 返回或设置 WebBrowser 控件窗口的内部左边与容器窗口 Left 左边的距离 返回或设置 WebBrowser 控件窗口的内部左边与容器窗口 Top 顶边的距离 Width 返回或设置 WebBrowser 窗口的宽度,以像素为单位 Height 返回或设置 WebBrowser 窗口的高度,以像素为单位 返回一个字符串,该字符串包含着 WebBrowser 当前显示 的资源的名称,如果资源 LocationName 是网页就是网页的标题;如果是文件或文件夹,就是文件或文 件夹的名称 LocationURL 返回 WebBrowser 当前正在显示的资源的 URL Busy 返回一个 Boolean 值,说明 WebBrowser 当前是否正在 加载 URL,如果返回 true 就可以使用 stop 方法来撤销正在执行的访问操作WebBrowser 的事件 Private Events Description BeforeNavigate2 导航发生前激发,刷新时不激发 CommandStateChange 当命令的激活状态改变时激发。
它表明何时激 活或关闭 Back 和 Forward 菜单项或按钮 DocumentComplete 当整个文档完成是激发,刷新页面不激发 DownloadBegin 当某项下载操作已经开始后激发,刷新也可激 发此事件 DownloadComplete 当某项下载操作已经完成后激发,刷新也可激 发此事件 NavigateComplete2 导航完成后激发,刷新时不激发 NewWindow2 在创建新窗口以前激发 OnFullScreen 当 FullScreen 属性改变时激发。
该事件采 用 VARIENT_BOOL 的一个输 入参数来指示 IE 是全屏显示方式 VARIENT_TRUE还是普通显示方式 VARIENT_FALSE OnMenuBar 改变 MenuBar 的属性时激发,标示参数是 VARIENT_BOOL 类型的。
VARIANT_TRUE 是可见,VARIANT_ FALSE 是隐藏 OnQuit 无论是用户关闭浏览器还是开发者调用 Quit 方法,当 IE 退出时就会激发 OnStatusBar 与 OnMenuBar 调用方法相同,标示状态栏 是否可见。
OnToolBar 调用方法同上,标示工具栏是否可见。
OnVisible 控制窗口的可见或隐藏,也使用一个 VARIENT_BOOL 类型的参数 StatusTextChange 如果要改变状态栏中的文字,这个事件就会被 激发,但它并不理会程序是否有状态栏 TitleChange Title 有效或改变时激发新加内容:提交表单 form1:Private Sub Command1_ClickWebBrowser1.Document.Formsform1.submitEnd Sub将 form1 中的名为 u 的属性设为不可用:Private Sub Command2_ClickWebBrowser1.Document.Formsform1.u.setAttribute disabled disabledEnd Sub将 form1 中的名为 u 的 Text 框中的内容设为 abc:Private Sub Command2_ClickWebBrowser1.Document.Formsform1.u.setAttribute value abcEnd Sub1、获得浏览器信息:Private Sub Command1_ClickWebBrowser1.Navigate http://www.applevb.comEnd SubPrivate Sub Command2_ClickDim oWindowDim oNavSet oWindow WebBrowser1.Document.parentWindowSet oNav oWindow.navigatorDebug.Print oNav.userAgentSet oWindow NothingSet oNav NothingEnd Sub点击 Command1 浏览网页,点击 Command2 在立即窗口中输出浏览器信息。
2、弹出 Webbrowser 消息窗口Dim oWindowSet oWindow WebBrowser1.Document.parentWindowoWindow.confirm abcdVB 调用 webbrowser 技巧集 2向 Webbrowser 中写入 HTML 内容的几种方法首先在 Form_Load 中加入WebBrowser1.Navigate about:blank确保 Webbrowser1 可用方法 1:Dim s As StringDim stream As IStreams s s s s sshello worlds s ssWebBrowser1.Document.Write s方法 2:Dim oSet o WebBrowser1.Document.selection.createrangeDebug.Print oIf Not o Is Nothing Theno.pasteHTML 哈哈Set o NothingEnd If方法 3:’插入文本框Dim oSet o WebBrowser1.Document.selection.createrangeo.execCommand InsertTextArea False xxxvb 调用 Webbrowser 技巧集 31、页面滚动:Private Sub Command2_ClickWebBrowser1.Document.parentwindow.scrollby 0 30End SubPrivate Sub Form_LoadWebBrowser1.Navigate http://www.applevb.comEnd Sub点击 Command2 就可以使当前页面向下滚动 30 像素2、判断页面是否可以前进后退Private Sub Command1_ClickWebBrowser1.GoForwardEnd SubPrivate Sub Command2_ClickWebBrowser1.GoBackEnd SubPrivate Sub Form_LoadWebBrowser1.Navigate http://www.applevb.comEnd SubPrivate Sub WebBrowser1_CommandStateChangeByVal Command As LongByVal Enable As Boolean PageIf Command CSC_NAVIGATEBACK ThenCommand2.Enabled EnableEnd IfIf Command CSC_NAVIGATEFORWARD ThenCommand1.Enabled EnableEnd IfEnd SubVB 调用 webbrowser 技巧集 41、如何使网页不出现滚动条:Private Sub mnuScroll1_Click注意:必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll no 不显示滚动条的办法End SubPrivate Sub mnuScroll2_Click注意:必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll Auto 显示滚动条的办法End Sub2、如何获得网页中被选中部分的 HTML:Private Sub Command1_ClickDim objSelectionDim objTxtRangeSet objSelection WebBrowser1.Document.selectionIf Not objSelection Is Nothing ThenSet objTxtRange objSelection.createRangeIf Not objTxtRange Is Nothing ThenDebug.Print objTxtRange.htmlTextSet objTxtRange NothingEnd IfSet objSelection NothingEnd IfEnd SubPrivate Sub Form_LoadWebBrowser1.Navigate http://www.applevb.comEnd SubNavigate 方 法 的 语 法 格 式 为:WebBrowser 控 件 名.Navigate URLFlagsTargetFrameNamePostDataHeaders---- WebBrowser 控 件 支 持 的 主 要 方 法 有:GoBack — — — 回 退 到 上 一 屏。
GoForward — — — 进 入 到 下 一 屏。
GoHome — — — 回 家。
即 回 到 主 页。
Stop — — — 停 止 导 航。
Refresh — — — 刷 新。
Navigate — — — 导 航。
---- WebBrowser 控 件 所 响 应 的 事 件:---- BeforeNavigate 事 件 — — — 在 开 始 导 航 前 发 生。
一 般 在 此获 取 完 整 的 URL 字 符 串。
---- WebBrowser 控 件 最 主 要 的 参 数:---- URL — — — 获 得 导 航 用 的 标 准 URL 字 符 串。
例 如: 它 能将”www.MicroSoft.Com” 自 动 翻 译 为”http://www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 缩 写, 是 在 Internet 的 WWW 服 务 程 序上 用 于 指 定 信 息 位 置 的 表 示 方 法。
使用 WebBrowser 的 Navigator 或者 Navigator2 方法打开一个 asp 文档并且传递参数进去,但是 asp 文档无法获得参数,请教是什么原因?
vb 源码:Private Sub cmdSubmit_ClickDim strURL As String strFormData As StringDim strData As StringstrURL TrimtxtURL.TextstrFormData name TrimtxtName.Text password TrimtxtPassword.TextCall WBTest.Navigate2strURL 64 _blank strFormData PagehelloEnd Subasp
源码:Option ExplicitPrivate Sub Command1_ClickDim szValue As StringWebBrowser1.Document.body.innerHTML methodpost actionhttp://地址/xxx.phpWebBrowser1.Document.Formspost.submitEnd SubPrivate Sub Form_LoadWebBrowser1.Navigate2 about:blankEnd SubTop请问:在 WebBrwoser 控件里提供的 Navigate 或者 Navigate2 方法中提供了传递数据的参数,调用方式为:WebBrowser1.Navigate2URLFlagsTargetFrameNamePostDataHeaders其中 PostData 参数就是一个提交参数字符串,例如nameaaapassword123,但问题是为什么这个方法并不是有效的,服务器端不能取得数据?如果这个方法是有效的话就不需要用一段 html 代码模拟这种调用了。
下面代码能检测出程序 post 出去的消息Private Sub WebBrowser1_BeforeNavigate2ByVal pDisp As Object URL AsVariant Flags As Variant TargetFrameName As Variant PostData As VariantHeaders As Variant Cancel As BooleanMsgBox PostDataEnd SubWebBrowser 的 8 个方法和 13 个属性WebBrowser 的 8 个方法和 13 个属性,以及它们的功能:方法 说明GoBack 相当于 IE 的“后退”按钮,使你在当前历史列表中后退一项 GoForward 相当于 IE 的“前进”按钮,使你在当前历史列表中前进一项GoHome 相当于 IE 的“主页”按钮,连接用户默认的主页GoSearch 相当于 IE 的“搜索”按钮,连接用户默认的搜索页面Navigate 连接到指定的 URLRefresh 刷新当前页面Refresh2 同上,只是可以指定刷新级别,所指定的刷新级别的值来自RefreshConstants 枚举表,该表定义在 ExDisp.h 中,可以指定的不同值如下:REFRESH_NORMAL 执行简单的刷新,不将 HTTP pragma: no-cache 头发送给服务器REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新REFRESH_CONTINUE 仅作内部使用。
在 MSDN 里写着 DO NOT USE 请勿使用REFRESH_COMPLETELY 将包含 pragma: no-cache 头的请求发送到服务器Page Stop 相当于 IE 的“停止”按钮,停止当前页面及其内容的载入属性 说明Application 如果该对象有效,则返回掌管 WebBrowser 控件的应用程序实现的自动化对象IDispatch。
如果在宿主对象中自动化对象无效,这个程序将返回WebBrowser控件的自动化对象Parent 返回 WebBrowser 控件的父自动化对象,通常是一个容器,例如是宿主或 IE 窗口Container 返回 WebBrowser 控件容器的自动化对象。
通常该值与 Parent 属性返回的值相同Document 为活动的文档返回自动化对象。
如果 HTML 当前正被显示在WebBrowser 中,则Document 属性提供对 DHTML Object Model 的访问途径TopLevelContainer 返回一个 Boolean 值,表明 IE 是否是 WebBrowser 控件顶层容器,是就返回 true Type 返回已被 WebBrowser 控件加载的对象的类型。
例如:如果加载.doc文件,就会返回 Microsoft Word DocumentLeft 返回或设置 WebBrowser 控件窗口的内部左边与容器窗口左边的距离Top 返回或设置 WebBrowser 控件窗口的内部左边与容器窗口顶边的距离Width 返回或设置 WebBrowser 窗口的宽度,以像素为单位Height 返回或设置 WebBrowser 窗口的高度,以像素为单位LocationName 返回一个字符串,该字符串包含着 WebBrowser 当前显示的资源的名称,如果资源是网页就是网页的标题;如果是文件或文件夹,就是文件或文件夹的名称LocationURL 返回 WebBrowser 当前正在显示的资源的 URLBusy 返回一个 Boolean 值,说明 WebBrowser 当前是否正在加载 URL,如果返回 true就可以使用 stop 方法来撤销正在执行的访问操作