VB WEBBROWSER控件详解
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb+Webbrowser控件详解
2007-12-2218:22
1、获得浏览器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate""
End Sub
Private Sub Command2_Click()
Dim oWindow
Dim oNav
Set oWindow=WebBrowser1.Document.parentWindow
Set oNav=oWindow.navigator
Debug.Print erAgent
Set oWindow=Nothing
Set oNav=Nothing
End Sub
点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。
2、弹出Webbrowser消息窗口
Dim oWindow
Set oWindow=WebBrowser1.Document.parentWindow
oWindow.confirm"abcd"
VB调用webbrowser技巧集2
向Webbrowser中写入HTML内容的几种方法
首先在Form_Load中加入
WebBrowser1.Navigate"about:blank"
确保Webbrowser1可用
方法1：
Dim s As String
Dim stream As IStream
s=""
s=s+""
s=s+""
s=s+"
hello world
"
s=s+""
s=s+"
WebBrowser1.Document.Write s
方法2：
Dim o
Set o=WebBrowser1.Document.selection.createrange Debug.Print o
If(Not o Is Nothing)Then
o.pasteHTML"哈哈"
Set o=Nothing
End If
方法3：
'插入文本框
Dim o
Set o=WebBrowser1.Document.selection.createrange
o.execCommand"InsertTextArea",False,"xxx"
vb调用Webbrowser技巧集3
1、页面滚动：
Private Sub Command2_Click()
WebBrowser1.Document.parentwindow.scrollby0,30 End Sub
Private Sub Form_Load()
WebBrowser1.Navigate""
End Sub
点击Command2就可以使当前页面向下滚动30像素
2、判断页面是否可以前进后退
Private Sub Command1_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate""
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long,ByVal Enable As Boolean)
If(Command=CSC_NAVIGATEBACK)Then
Command2.Enabled=Enable
End If
If(Command=CSC_NAVIGATEFORWARD)Then
Command1.Enabled=Enable
End If
End Sub
VB调用webbrowser技巧集4
1、如何使网页不出现滚动条：
Private Sub mnuScroll1_Click()
@#注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll="no"@#不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
@#注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll="Auto"@#显示滚动条的办法
End Sub
2、如何获得网页中被选中部分的HTML：
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange
Set objSelection=WebBrowser1.Document.selection
If Not(objSelection Is Nothing)Then
Set objTxtRange=objSelection.createRange
If Not(objTxtRange Is Nothing)Then
Debug.Print objTxtRange.htmlText
Set objTxtRange=Nothing
End If
Set objSelection=Nothing
End If
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate""
End Sub
Navigate方法的语法格式为：
WebBrowser控件名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers]
----WebBrowser控件支持的主要方法有:
GoBack———回退到上一屏。
GoForward———进入到下一屏。
GoHome———回家。即回到主页。
Stop———停止导航。
Refresh———刷新。
Navigate———导航。
----WebBrowser控件所响应的事件:
----BeforeNavigate事件———在开始导航前发生。一般在此获取完整的URL字符串。
----WebBrowser控件最主要的参数:
----URL———获得导航用的标准URL字符串。例如：它能将””自动翻译
为””.URL是Uniform Resource Locator的缩写，是在Internet的WWW服务程序上用于指定信息位置的表示方法。
使用WebBrowser的Navigator或者Navigator2方法打开一个asp文档并且传递