VB中WEBBROWSER技巧整理合集
WebBrowser秘笈之属性、方法、事件
WebBrowser方法
1、ClientToWindow(IE使用该方法转换客户坐标与窗口坐标,一般不要使用该方法。)
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
pcx:坐标点X。
pcy:坐标点Y。
2、ExecWB(允许用户用IOleCommandTarget接口传递一个命令到当前Web浏览器组件。Microsoft定义了一些常量来表示这些命令,ቤተ መጻሕፍቲ ባይዱ是Web浏览器不全部支持这些命令,可用QueryStatusWB方法使用这些命令。)
WebBrowser秘笈之属性、方法、事件
WebBrowser属性
1、AddressBar(是否显示地址栏。)
property AddressBar: WordBool;
2、Busy(是否正在导航到一个新的URL地址或正在下载文档。)
property Busy: WordBool;
8、Navigate2(定位或下载指定的资源,发送HTTP消息到指定的URL并显示指定文件的内容,或导航到不能表达为URL的资源。)
procedure Navigate2(var URL: OleVariant); overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
WebBrowser1.ExecWB(OLECMDID_STOP,OLECMDEXECOPT_PROMPTUSER);
3、GoBack(返回到历史列表中的上一个文档。如果历史列表中没有包含另外的文档,该方法将无效。)
WebBrowser 全解析
WebBrowser 全解析一些使用技巧1.禁止右键看到很多关于WebBrowser控件禁止右键的提问,回复的方法很多,其中有提到使用微软提供的Webbrowser扩展COM服务器对象(WBCustomizer.dll),但是该方法在我们想使用Webbrowser编辑网页(Webbrowser1.Document.execCommand "editMode")的时候有很多弊端,比如不能显示选中的文本等。
另有些方法也就不用一一列举了。
这儿我想提到的是关于MSHTML.HTMLDocument引用Microsoft HTML OBject LibraryRem #窗体代码#Dim WithEvents M_Dom As MSHTML.HTMLDocumentPrivate Function M_Dom_oncontextmenu() As BooleanM_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete()Set M_Dom = Webbrowser1.DocumentEnd SubRem 好了,右键菜单没有了=========================================================================2、控件调用和获得收藏夹里面基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.如果你不用dir也可以用vb的dir控件.Private Type SHITEMIDcb As LongabID As ByteEnd TypePublic Type ITEMIDLISTmkid As SHITEMIDEnd TypePublic Function SpecialFolder(ByRef CSIDL As Long) As String'locate the favorites folderDim R As LongDim sPath As StringDim IDL As ITEMIDLISTConst NOERROR = 0Const MAX_LENGTH = 260R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)If R = NOERROR ThensPath = Space$(MAX_LENGTH)R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)If R ThenSpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)End IfEnd IfEnd Function=============================================================3、全屏是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 0) 隐藏tray,就是下边那个包含开始那一行. 用CallShowWindow(FindWindow("Shell_traywnd", ""), 9) 恢复. 够详细了吧.然后在form1.windowstate = 2 就可以了.=============================================================================== =4、选择网页上的内容。
适用于VisualBasic6.0用户的WebBrowser控件
适用于VisualBasic6.0用户的WebBrowser控件Visual Basic 6.0 中的WebBrowser控件在 Visual Basic 2005 中由 Windows 窗体WebBrowser控件替换。
某些属性、方法、事件和常数的名称是不同的,在某些情况下,行为也有所不同。
概念差异Visual Basic 6.0 WebBrowser控件(也称作 Microsoft Internet 控件或Shdocvw.dll)是一种ActiveX 控件,使用它可以在应用程序内承载 Internet Explorer。
Visual Basic 2005 WebBrowser控件为WebBrowser ActiveX 控件提供了托管包装。
这样,便可以在Windows 窗体客户端应用程序中显示网页。
使用WebBrowser控件,可以复制应用程序中的Internet Explorer Web 浏览功能,还可以禁用默认的Internet Explorer 功能,并将该控件用作简单的 HTML 文档查看器。
此外,可以使用该控件将基于DHTML 的用户界面元素添加到窗体中,还可以隐瞒这些元素在WebBrowser控件中承载的事实。
通过这种方法,可以将 Web 控件和 Windows 窗体控件无缝地整合到一个应用程序中。
Internet Explorer 对象Visual Basic 6.0 Microsoft Internet 控件由两个组件组成:WebBrowser控件和Internet Explorer对象,使用它们可以通过OLE 自动化来控制 Internet Explorer 的实例。
Visual Basic 2005 中没有Internet Explorer对象的等效项,与其相关的属性、方法和事件也不再存在。
不再支持OLE 自动化;使用类似 VBScript 的脚本语言可以控制 Internet Explorer 的外部实例。
WebBrowser控件最详细使用说明
WebBrowser控件最详细使用说明WebBrowser控件最详细使用说明方法说明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头的请求发送到服务器Stop 相当于IE的“停止”按钮,停止当前页面及其内容的载入属性说明Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。
如果在宿主对象中自动化对象无效,这个程序将返回WebBrowser控件的自动化对象Parent 返回WebBrowser控件的父自动化对象,通常是一个容器,例如是宿主或IE窗口Container 返回WebBrowser控件容器的自动化对象。
通常该值与Parent属性返回的值相同Document 为活动的文档返回自动化对象。
如果HTML当前正被显示在WebBrowser中,则Document属性提供对DHTML Object Model的访问途径TopLevelContainer 返回一个Boolean值,表明IE是否是WebBrowser控件顶层容器,是就返回trueType 返回已被WebBrowser控件加载的对象的类型。
vba webbrowser控件实例
VBA WebBrowser控件实例01. 简介VBA (Visual Basic for Applications) 是一种用于创建自定义软件解决方案的编程语言,它通常用于Microsoft Office应用程序中,比如Excel、Word等。
在VBA中,WebBrowser控件是一种非常强大的工具,它可以用来显示Web页面、执行脚本和与网页进行交互。
在本文中,我们将介绍如何在VBA中使用WebBrowser控件,并且给出一些实例来演示其功能和用法。
02. WebBrowser控件的引用我们需要确保已经在VBA项目中引用了“Microsoft Internet Controls”和“Microsoft HTML Object Library”这两个组件。
这样才能在VBA中使用WebBrowser控件。
引用这两个组件的方法很简单,在VBA项目中点击“工具” -> “引用”,然后勾选这两个组件即可。
03. WebBrowser控件的创建和基本设置接下来,我们需要在VBA中创建一个新的UserForm,并在UserForm中添加一个WebBrowser控件。
添加WebBrowser控件的方法是,打开VBA编辑器,双击UserForm,在工具箱中选择“Microsoft Web Browser”,然后在UserForm中拖动鼠标绘制WebBrowser控件的大小。
在VBA中给WebBrowser控件取一个适当的名称,比如“WebBrowser1”。
接下来,我们需要设置WebBrowser控件的一些基本属性,比如URL、高度、宽度等。
可以通过VBA代码来实现这些设置,比如:```vbaPrivate Sub UserForm_Initialize()WebBrowser1.Height = 500WebBrowser1.Width = 800WebBrowser1.Navigate ""End Sub```04. WebBrowser控件的基本功能一旦WebBrowser控件被创建并设置好,就可以开始实现其基本功能了。
VBWebbrowser控件使用方法
方法
说明
GoBack 相当于 IE的“后退”按钮,使你在当前历史列表中后退一项
GoForward 相当于 IE的“前进”按钮,使你在当前历史列表中前进一项 GoHome 相当于 IE的“主页”按钮,连接的“搜索”按钮,连接用户默认的搜索页面 Navigate 连接到指定的 URL
返回一个 Boolean 值,说明 WebBrowser 当前是否正在加 载URL,如果返回 true 就可以使用stop 方法来撤销正在执行的访问操作
WebBrowser 的事件
Priv ate Ev ents
Description
BeforeNavigate2
Private Sub Command2_Click() WebBrowser1.Document.parentwindow.scrollby 0, 30 End Sub
Private Sub Form _Load() WebBrowser1.Navigate "http://www.apple" End Sub
VB 调用 webbrowser 技巧集 4
1、如何使网页不出现滚动条:
Private Sub mnuSc roll1_Click() @#注意:必须在网页完全显示之后才可以运行 WebBrowser1.Document.body.Scroll = "no" @#不显示滚动条的办法 End Sub Private Sub mnuSc roll2_Click() @#注意:必须在网页完全显示之后才可以运行 WebBrowser1.Document.body.Scroll = "Auto" @#显示滚动条的办法 End Sub
VB操作网页代码
VB操作网页代码1、防止新窗口里头打开网页代码1:Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub代码2:有这段代码,有许多网页会出错,经常提示脚本错误,可以用silent属性为True来屏蔽,不过也有些不足Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueWebBrowser1.Navigate2WebBrowser1.Document.activeElement.hrefEnd Sub代码3:Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)On Error Resume NextDim frmWB As Form1Set frmWB = New Form1frmWB.WebBrowser1.RegisterAsBrowser = TrueSet ppDisp = frmWB.WebBrowser1.objectfrmWB.Visible = TruefrmWB.Top = Form1.TopfrmWB.Left = Form1.LeftfrmWB.Width = Form1.WidthfrmWB.Height = Form1.HeightEnd Sub功能差不多,任选一个。
2、去掉滚动条Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)WebBrowser1.Document.Body.Scroll = "no"End Sub实际上上面的效果不咋地,如果懂得HTML知识,你可以在读取网页的时候,读取HTML源码,查找替换,再写入只需在<body> </body> 之间插入代码:<body style= "overflow-x:hidden;overflow-y:hidden "> 即可。
VB6.0开发网络应用的5个技巧
VB6.0开发网络应用的5个技巧Visual Basic 6.0(以下简称VB 6)以其强大的功能为广大软件开发人员所喜爱,被用来开发各种应用程序。
随着Internet的迅猛发展,VB 6在网络方面的应用开发也越来越多。
本文介绍笔者在实际编程开发中总结的5个技巧,希望能为进行网络开发的朋友们提供一点参考。
连通检测许多应用程序常常需要在程序中直接进行联网操作,以便进行一些必要的处理(如在线注册和在线帮助等),这就要求我们在程序中建立某些连接。
很多软件在不知用户是否联网的情况下就启动浏览器查找网址,结果只能查出一错误网页,既浪费用户时间又没有任何效果。
如果应用程序在查找网页之前能自动判断用户是否已经联网,就会节约许多时间,提高程序运行效率。
下面是实现网络连通检测的VB 6代码:启动拨号网络中的连接由于拨号网络不是一个可执行文件,所以要启动拨号网络,需要借助 explorer.exe 。
但若是要启动拨号网络中的某一个连接,则要借助rundll.exe 和 rnaui.dll两个文件。
启动方法如下(假定此连接名称为163):Shell “rundll rnaui.dll,RnaDial 163”,vbNormalFocus上面假定了连接名称,但在实际编程中我们是不知道连接名称的。
在窗体上放置一个命令按钮(cmdCallConnect),在其单击事件中进行连接处理。
下面的代码介绍如何取得默认的连接名称并启动它:在Form上加入一个MAPIMessage控件,取名为MAPIMessage1;再加入一个MAPISession 控件,取名为MAPISession1;再加入三个TextBox控件,分别取名为Subject、Content和Indexno,将它们的Caption分别改为邮件标题、邮件内容和邮件索引号;在TextBox前各加入一个Label控件,将Caption分别改为标题、内容和索引号。
将MAPIMessage1的各项属性设置如下:·DownLoadMail=TRUE;·LogonUI=TRUE;·NewSession=FALSE;·UserName=“接收E mail”。
VB功能模块:最全的VB操作网页功能模块
VB功能模块:最全的VB操作网页功能模块Public Function HtmlStr$(URL$) '提取网页源码函数Dim XmlHttpSet XmlHttp = CreateObject("Microsoft.XMLHTTP")XmlHttp.Open "GET", URL, FalseXmlHttp.SendIf XmlHttp.ReadyState = 4 Then HtmlStr =StrConv(XmlHttp.Responsebody,vbUnicode)End Function2.函数调用:Dim strweb1 As Stringstrweb1=HtmlStr("http://www.baidu.c om")二、获取WebBrowser控件中网页源代码1.函数代码:Public Function WebDaima(WebBrowser, BuFen) '获取WebBrowser控件中网页源代码Select Case BuFenCase "Body" '只获取<body>与</body>之间的代码WebDaima = WebBrowser.Document.body.innerhtmlCase "All" '获取整个网页源代码WebDaima =WebBrowser.Document.documentelement.outerhtmlCase ElseWebDaima =WebBrowser.Document.documentelement.outerhtmlEnd SelectEnd Function2.调用Dim strweb As Stringstrweb=WebDaima(frmIndex.WebBrowser1,"All") '获取整个网页源代码strweb=WebDaima(frmIndex.WebBrowser1,"Body") '只获取body中源代码三、提取字符串或网页源代码中指定的资源(可利用这一函数做文章采集器)1.函数代码:Public Function FindStrMulti$(Strall$,FirstStr$, EndStr$, SplitStr$) '提取字符串或网页源代码中所有指定代码'参数'总文本,起始字符串,终止字符串,分隔符Dim i&, j&j = 1Doi = InStr(j, Strall, FirstStr)If i = 0 ThenExit DoEnd Ifi = i + Len(FirstStr)j = InStr(i, Strall, EndStr)If j > 0 ThenFindStrMulti = IIf(Len(FindStrMulti) > 0, FindStrMulti & SplitStr, "") & Mid(Strall,i, j - i)ElseExit DoEnd IfLoopEnd Function2.函数调用截取字符串中的内容Dim str1 As StringDim str2 As Stringstr1 = "<table><tr><td>要截取的内容</td></tr></table>"str2 = FindStrMulti(str1, "<td>", "</td>", "")MsgBox str2'此时str2的值就为要截取的内容文章列表标题链接采集实例网页代码<DIV id=content><SPAN class=navbar><STRONG><Ahref="/blog/">博客首页</A> > 文章列表</STRONG></SPAN><TABLE class=content_tablewidth="100%"><TBODY><TR><TD><H1>比目鱼博客文章列表</H1><P><UL><LI><SPAN class=list-category>[文坛张望]</SPAN> <A class=list-title href="/blog/archives/119491210.shtml"> <STRONG>谁会拿下2010年的诺贝尔文学奖?</STRONG></A> <SPAN class=list-date>(2010-10-01 22:38)</SPAN></LI> <LI><SPAN class=list-category>[视觉训练]</SPAN> <A class=list-title href="/blog/archives/119247165.shtml"> <STRONG>书法练习二幅</STRONG></A> <SPAN class=list-date>(2010-09-29 01:51)</SPAN> </LI><LI><SPAN class=list-category>[文坛张望]</SPAN> <A class=list-title href="/blog/archives/118604217.shtml"> <STRONG>骆以军对话董启章</STRONG></A> <SPAN class=list-date>(2010-09-21 17:15)</SPAN> </LI> <LI><SPAN class=list-category>[视觉训练]</SPAN> <A class=list-title href="/blog/archives/118206492.shtml"> <STRONG>夜临古画(六)</STRONG></A><SPAN class=list-date>(2010-09-17 01:46)</SPAN> </LI> <LI><SPAN class=list-category>[我也读书]</SPAN> <A class=list-title href="/blog/archives/117345094.shtml"> <STRONG>Jennifer Egan 的《A Visit From the Goon Squad》</STRONG></A> <SPAN class=list-date>(2010-09-07 02:30)</SPAN> </LI><LI><SPAN class=list-category>[我也读书]</SPAN> <A class=list-title href="/blog/archives/116446375.shtml"> <STRONG>当我们谈论电子书的时候我们在谈论电子书阅读器</STRONG></A> <SPAN class=list-date>(2010-08-27 16:51)</SPAN> </LI><LI><SPAN class=list-category>[IT互联网]</SPAN> <A class=list-title href="/blog/archives/116133972.shtml"> <STRONG>“读写人”和“比目鱼”网站的手机版</STRONG></A> <SPAN class=list-date>(2010-08-2402:04)</SPAN> </LI></UL><P></P><P align=center><P align=center><STRONG>1 <A href="/blog/list_all_2.shtml">2</A> <A href="/blog/list_all_3.shtml">3</A> <A href="/blog/list_all_4.shtml">4</A> <A href="/blog/list_all_5.shtml">5</A> <Ahref="/blog/list_all_6.shtml">6</A> <Ahref="/blog/list_all_7.shtml">7</A> <Ahref="/blog/list_all_8.shtml">8</A> <Ahref="/blog/list_all_2.shtml">>></A></STRONG></P><P></P></TD></TR></TBODY></TABLE><P> </P></DIV><!-- END CONTENT--><!-- BEGIN SITEBAR --><DIV id=sidebar><P>从以上代码中获取<ul>与</ul>之间所有文章的标题链接,实现方法如下:Dim strWeb As StringDim i As IntegerDim strListArea As StringDim strLink '定义存放列表文章链接的数组strWeb =WebDaima(Me.WebBrowser1, "Body") '获取网页body代码(具体查看WebDaima函数)strListArea = FindStrMulti(strWeb,"<H1>比目鱼博客文章列表</H1>","</UL>", "") '截列表区域代码'获取列表区域中文章链接,并存在在数组strLink中strLink = Split(FindStrMulti(strListArea,"href=" & Chr(34), Chr(34) &"><STRONG>", vbCrLf), vbCrLf)For i = 0 To UBound(strLink) '循环输出链接Text1.Text = Text1.Text & strLink(i) & vbCrLfNext i四、中文汉字转化为URL编码函数代码:'以下两个函数用于将文字转化为UTF8或GBK编码:(如在百度中搜索内容时,百度先将搜索词转化为UTF8的编码,再传送给服务器)'调用:'KeyWordUtf = UTF8EncodeURI(KeyWord) 或 KeyWordUtf= GBKEncodeURI(KeyWord)Public Function UTF8EncodeURI(szInput)Dim wch, uch, szRetDim XDim nAsc, nAsc2, nAsc3If szInput = "" ThenUTF8EncodeURI = szInputExit FunctionEnd IfFor X = 1 To Len(szInput)wch = Mid(szInput, X, 1)nAsc = AscW(wch)If nAsc < 0 Then nAsc = nAsc + 65536If (nAsc And &HFF80) = 0 ThenszRet = szRet & wchElseIf (nAsc And &HF000) = 0 Thenuch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80) szRet = szRet & uchElseuch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNextUTF8EncodeURI = szRetEnd FunctionPublic Function GBKEncodeURI(szInput)Dim i As LongDim X() As ByteDim szRet As StringszRet = ""X = StrConv(szInput, vbFromUnicode)For i = LBound(X) To UBound(X)szRet = szRet & "%" & Hex(X(i))NextGBKEncodeURI = szRetEnd Function函数调用:MsgBox UTF8EncodeURI("中文汉字")MsgBox GBKEncodeURI("中文汉字")五、获取网页中的验证码函数代码:Public Function GetImg(WebBrowser, Img, sxz)'参数'WebBrowser:等获取验证码网页所在的WebBrowser控件'Img:显示验证码的Image控件'sxz:网页中验证码相应属性的属性值Dim CtrlRange, xFor Each x In WebBrowser.Document.AllIf UCase(x.tagName) = "IMG" Then'x.src为验证码图片的属性,也可是其他属性如 x.onload等If InStr(x.src,sxz) > 0 ThenSet CtrlRange = WebBrowser.Document.body.createControlRange()CtrlRange.Add (x)CtrlRange.execCommand ("Copy")Debug.Print "Copy"Img.Picture = Clipboard.GetDataEnd IfEnd IfNextEnd Function函数调用:'如获取网页中的验证码图片代码如下:'<IMG id=valiCode style="CURSOR: pointer" alt=验证码src="/VerifyCode_Login.aspx" border=0>'获取验证码函数调用如下:Call GetImg(Form1.WebBrowser1, Form1.Image1, "VerifyCode_Login.aspx") 六、WebBrowser控件中网页按钮的点击'<BUTTON id="WordSearchBtn"class="btn">查询</button>'此按钮的点击方法WebBrowser1.Document.getelements bytagname("BUTTON")("WordSearchBtn").Click七、WebBrowser控件中网页文本框的赋值'文本框代码:<input id="WordInput"maxlength="40" type="text" />WebBrowser1.Document.getelements bytagname("input")("WordInput").Value ="要在文本框输入的文字"'此处WordInput为文本框的ID或Name 属性值八、WebBrowser控件中网页列表/菜单表单选项的选取函数代码Public Function SelectXq(WebBrowser, SelectName, SelectValue)'参数'WebBrowser:WebBrowser控件名称'SelectName:网页中列表/菜单表单名称或ID值'SelectValue:选中值WebBrowser.doc.All.Item(SelectName ).Value = SelectValueEnd Function函数调用方法:WebBrowser中网页Select表单代码如下:<SELECTid=ctl00_ContentPlaceHolder1_DropDownList1name=ctl00$ContentPlaceHolder1$DropDownList1> <OPTION value=我就读的第一所学校的名称? selected>我就读的第一所学校的名称?</OPTION> <OPTIONvalue=我最喜欢的休闲运动是什么?>我最喜欢的休闲运动是什么?</OPTION><OPTION value=我最喜欢的运动员是谁?>我最喜欢的运动员是谁?</OPTION><OPTION value=我最喜欢的物品的名称?>我最喜欢的物品的名称?</OPTION><OPTION value=我最喜欢的歌曲?>我最喜欢的歌曲?</OPTION> <OPTION value=我最喜欢的食物?>我最喜欢的食物?</OPTION> <OPTION value=我最爱的人的名字?>我最爱的人的名字?</OPTION><OPTION value=我最爱的电影?>我最爱的电影?</OPTION> <OPTION value=我妈妈的生日?>我妈妈的生日?</OPTION></SELECT>'让列表表单选中选项值为我最爱的人的名字的选项Call SelectXq(Form1.WebBrowser1, "ctl00_ContentPlaceHolder1_DropDownList1", "我最爱的人的名字?")八、自动填写注册表单并提交网页表单代码<form method="POST" action="re sult.asp"><p>请填写下面表单注册(*项为必添项)</p><p>*姓名<input type="text" name="Name" size="20"></p><p>*男<input type="radio" value="V1" name="R1"></p><p>*女<input type="radio" value="V1" name="R2"></p><p>*昵称<input type="text" name="NickName"size="20"></p><p>*兴趣爱好<select name="aihao"><option value="计算机">计算机</option><option value="游戏">游戏</option><option value="逛街">逛街</option></select></p><p>电子邮件<input type="text" name="EMail" size="20"></p><p>*密码<input type="password" name="Password" size="20"></p><p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p></form>填写表单并提交操作代码Private Sub Form_Load()WebBrowser1.Navigate2 App.Path & "\test.htm"End SubPrivate Sub WebBrowser1_DocumentComplete(ByValpDisp As Object, URL As Variant)Dim vDoc, vTagDim i As IntegerSet vDoc = WebBrowser1.DocumentList1.ClearFor i = 0 To vDoc.All.length - 1If UCase(vDoc.All(i).tagName) = "INPUT" Or UCase(vDoc.All(i).tagName) = "SELECT" ThenSet vTag = vDoc.All(i)If vTag.Type = "text" Or vTag.Type = "password" Or vT ag.Type = "radio" Or = "aihao" ThenList1.AddItem Select Case Case "Name"vTag.Value = "IMGod"Case "R2"vTag.Checked = TrueCase "NickName"vTag.Value = "IMGod"Case "aihao"vTag.Value = "逛街"Case "Password"vTag.Value = "IMGodpass"Case "EMail"vTag.Value="******************"End SelectElseIf vTag.Type = "submit" ThenvTag.ClickEnd IfEnd IfNext iEnd Sub九、限制WebBrowser控件中网页的所有链接在同一个窗口打开Private Sub Form_Load()WebBrowser1.Navigate ("/tool")End SubPrivate SubWebBrowser1_NewWindow2(ppDisp AsObject, Cancel As Boolean)Cancel = TrueWebBrowser1.NavigateWebBrowser1.Document.activeelement.hrefEnd Sub十、控件WebBrowser控件中网页弹窗或新窗口打开的链接在另一个WebBrowser控件中打开Private SubWebBrowser1_NewWindow2(ppDisp AsObject, Cancel As Boolean)Set ppDisp = WebPageAd.ObjectEnd Sub十一、禁止WebBrowser控件中网页弹窗Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueEnd Sub。
Visual Basic 6.0 的 WebBrowser 控件
Visual Basic 6.0 的 WebBrowser 控件可以同时显示solidworks的工具栏及文档,并且能够对已建立的solidworks文档进行修改。
WebBrowser 控件不是 Visual Basic 6.0 的内置控件,所以要把它添加到Visual Basic 6.0界面的【工程】选项卡中。
具体的添加方法是:【工程】→【部件】,然后选择【Microsoft Internet Controls】。
使用WebBrowser 的Navigator方法打开文档,用以下代码即可显示文档内容。
WebBrowser1.Navigate "Solidworks文档的位置\文档的名称. 文档的类型"
例如:WebBrowser1.Navigate "文档的位置\螺旋棒.SLDPRT "→(打开零件文档)WebBrowser1.Navigate "文档的位置\机头装配体.SLDASM"→(打开装配体文档)
WebBrowser1.Navigate "文档的位置\活塞装配体.SLDDRW "→(打开工程图文档)。
WebBrowser技巧大全
//webbrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER);
//WebBrowser1.ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DODEFAULT);
则此命令不可用)。
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn:
OleVariant); overload;
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
这几句话放在主窗口所有语句之后,“end.”之前。
--------------------------------------------------------------------------------------------------------
而在实际应用中,使用后几种方法调用时,由于我们很少用到后面几个参数,但函数声明又要求是变量参数,一般的做法如下:
var
t:OleVariant;
begin
webbrowser1.Navigate(edit1.text,t,t,t,t);
在VB中使用IE的WebBrowser控件
在VB中使用IE的WebBrowser控件在程序设计中,如何设计出美观、实用,有个性的界面是每个程序设计者在界面设计中追求的目标。
随着Windows XP的推出,各种与众不同的华丽界面越来越被程序设计者和软件使用者所认同。
利用Windows中的WebBrowser控件,可以把华丽的网页设计技术应用到界面设计中去,例如微软著名的MSN浏览器的许多界面其实就是一个Web页,Windows XP中的帮助中心、Microsoft Encarta(微软百科全书)等许多软件中的一些界面也是利用WebBrowser控件显示的Web页。
利用WebBrowser控件显示一个网页,制作一个简单的浏览器已经有很多文章介绍,实现也不复杂,但如何实现程序与Web页的交互则是将其应用到界面设计中的关键。
ActiveX控件和WebBrowser控件的使用用Visual Basic 创建一个应用程序的第一步是创建界面。
而控件则是创建界面的基本模块,是包括在窗体对象内的对象。
每种类型的控件都有自己的属性、方法和事件,属性一般控制控件的外观、大小等性质,方法则是控件的能力或者功能,事件则代表与用户的交互,例如鼠标的移动点击、键盘的输入等都会触发相应的事件。
WebBrowser控件是随IE 3.0以上版本提供的一个可编程的ActiveX控件,利用WebBrowser控件可以显示、控制、分析Web 页,除了IE,chm格式的帮助的浏览,还广泛应用在以IE为核心的许多浏览器和其他程序中。
WebBrowser控件在VB中的使用很简单。
启动VB,创建一个标准EXE工程,选择工程——部件,打开部件对话框,从中找到Microsoft Internet Controls,选中后单击应用,然后关闭对话框(下图),可以看到WebBrowser控件已经添加到工具栏。
将WebBrowser控件拖至窗体,调整到相应大小,打开代码窗口,在Form_Load过程中键入如下代码:Private Sub Form_Load()WebBrowser1.Navigate ""End Sub运行程序,可以看到搜狐的主页显示在了相应的对话框中了。
vb webchrome用法
VB WebChrome是一款功能强大的浏览器控件,它能够在Visual Basic(VB)环境中嵌入Chrome浏览器,提供更丰富的网页浏览和交互体验。
本文将介绍VB WebChrome的用法,并针对其特点和常见问题进行详细解析,帮助读者更好地使用这一控件。
一、VB WebChrome的安装和配置1. 下载和安装VB WebChrome控件在官方全球信息湾或开发者社区下载VB WebChrome控件的安装包,并进行安装。
2. 在VB项目中添加VB WebChrome控件打开VB项目,点击“工具”-“管理NuGet程序包”,搜索并安装VB WebChrome控件的相关包。
3. 配置控件属性在VB项目中使用VB WebChrome控件时,需要合理配置其属性,例如设置初始全球信息湾、控件大小等。
二、VB WebChrome的基本功能1. 加载网页通过VB WebChrome控件,可以轻松实现在VB程序中加载和显示网页的功能,用户可以浏览网页内容、点击信息等。
2. 与网页的交互VB WebChrome控件支持与网页的交互,用户可以通过编写VB代码实现对网页中元素的操作,如点击按钮、填写表单等。
3. 支持HTML5和CSS3由于VB WebChrome控件是基于Chrome浏览器内核开发的,因此支持HTML5和CSS3等最新的网页技术,能够呈现更丰富的网页内容。
三、VB WebChrome的高级功能和应用场景1. 自定义网页加载状态开发者可以通过VB代码监控网页的加载状态,并在加载完成后执行相应的操作,如显示加载完成的提示信息。
2. 与JavaScript的交互VB WebChrome控件支持与网页中的JavaScript进行交互,可以实现更复杂的网页操作和数据交互。
3. 实现网页打印功能借助VB WebChrome控件,开发者可以实现网页的打印功能,将网页内容直接打印出来。
四、VB WebChrome的常见问题和解决方法1. 控件加载失败当使用VB WebChrome控件时,有时会遇到控件加载失败的情况。
WebBrowser控件使用详解
WebBrowser控件使用详解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有效或改变时激发一些使用技巧1.禁止右键看到很多关于WebBrowser控件禁止右键的提问,回复的方法很多,其中有提到使用微软提供的Webbrowser扩展COM服务器对象(WBCustomizer.dll),但是该方法在我们想使用Webbrowser编辑网页(Webbrowser1.Document.execCommand "editMode")的时候有很多弊端,比如不能显示选中的文本等。
VB中WEBBROWSER技巧整理合集
VB关于webbrowser相关操作大全日期:2011-2-17文档收集者:银河1、WebBrowser的方法、属性、事件------------------------------------------------------------ 22、提取网页源码 ----------------------------------------------------------------------------------- 33、防止新窗口里头打开网页 --------------------------------------------------------------------- 44、新Webbrowser控件打开链接 ----------------------------------------------------------------- 55、去掉滚动条 -------------------------------------------------------------------------------------- 56、禁止鼠标右键 ----------------------------------------------------------------------------------- 67、如何获得网页的内容 --------------------------------------------------------------------------- 68、多框架框架页面访问 --------------------------------------------------------------------------- 79、获得浏览器信息--------------------------------------------------------------------------------- 710、弹出Webbrowser消息窗口 ----------------------------------------------------------------- 811、向Webbrowser中写入HTML内容的几种方法--------------------------------------------- 812、控制页面滚动--------------------------------------------------------------------------------- 913、判断页面是否可以前进后退---------------------------------------------------------------- 914、如何获得网页中被选中部分的HTML -------------------------------------------------- 1015、Navigate的参数调用------------------------------------------------------------------------1116、本地文件收藏夹操作 -----------------------------------------------------------------------1117、让Webbrowser全屏------------------------------------------------------------------------ 1218、选择网页上的内容 ------------------------------------------------------------------------- 1219、用IE来下载文件--------------------------------------------------------------------------- 1320、Webbrowser确定窗口对话框 ------------------------------------------------------------- 1421、禁止WebBrowser控件中网页弹窗 ------------------------------------------------------ 1422、取得源码调试正常运行错误-------------------------------------------------------------- 1523、页面元素操作------------------------------------------------------------------------------- 15例0: 查看网页元素 ----------------------------------------------------------------------------- 15 例1: 给username文本框内填充内容: -------------------------------------------------------- 15 例2: 找到提交按钮并点击--------------------------------------------------------------------- 16 例3: 难度的-------------------------------------------------------------------------------------- 16 例4: 模拟鼠标点击来点击按钮 --------------------------------------------------------------- 17 例5: 根据ID直接CLICK --------------------------------------------------------------------- 17 例6: 给列表单选项赋值------------------------------------------------------------------------ 17 例7: 网页自动填写表单注册 ------------------------------------------------------------------ 18 24、网页按钮的终极控制 ---------------------------------------------------------------------- 2022、执行网页中的脚本------------------------------------------------------------------------------- 2123、提取字符串或网页源代码中指定的资源(可利用这一函数做文章采集器) ----------- 2324、中文汉字转化为URL编码--------------------------------------------------------------------- 2525、获取网页中的验证码---------------------------------------------------------------------------- 2726、WebBrowser控件中网页按钮的点击---------------------------------------------------------- 2827、其它 ----------------------------------------------------------------------------------------------- 28 1、WebBrowser的方法、属性、事件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 仅作内部使用。
vb+Webbrowser控件详解
VB调用webbrowser技巧集4
1、如何使网页不出现滚动条:
Private Sub mnuScroll1_Click()
@#注意:必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = "no" @#不显示滚动条的办法
End Sub
WebBrowser1.Navigate2 "about:blank"
End Sub
Top
********************************************************************
请问:在WebBrwoser控件里提供的Navigate或者Navigate2方法中提供了传递数据
Response.Write(strName)
Response.Write(strPassword)
if strName="KingZhang" and strPassword="123456" then
Response.Write("登陆成功")
else
Response.Write("非法登陆用户!")
"hello")
End Sub
asp源码:
<%@ Language=BScript %>
<%
dim strName
dim strPassword
strName=Trim(Request.Form("name"))
strPassword=Trim(Request.Form("password"))
VB动态添加WebBrowser控件,并拦截弹出窗口(不用引用任何组件)
VB动态添加WebBrowser控件,并拦截弹出窗⼝(不⽤引⽤任何组件)WBCustomizer.dll 这个1、注册::在开始菜单中输⼊RegSvr32路径(WBCustomizer.dll⽂件所在的绝对路径),若果注册成功,会提⽰2、引⽤:在⼯程--》引⽤中,选择microsoft webbrows customizer sample object3、使⽤:如下举例Dim CustomWB As WBCustomizerSet CustomWB = New WBCustomizerWith CustomWB.EnableAccelerator vbKeyN, vbKeyControl, True'表⽰启⽤ctrl+N键.EnableAccelerator vbKeyO, vbKeyControl, fasle '禁⽤ctrl+O键.EnableContextMenus = True'启⽤右键菜单若赋值false 禁⽤右键菜单.EnableAllAccelerators = TrueSet .WebBrowser = WebBrowser1End With新建空⽩窗体,然后粘帖下⾯代码:1Option Explicit2Public WithEvents br As VBControlExtender34Private Sub br_ObjectEvent(Info As EventInfo)5If = "NewWindow2"Then6'Dim fm As New Form17'fm.Show8'Info.EventParameters(0) = br.object ‘根据需要可实现在⾃⼰的新开窗⼝打开弹出窗⼝9 Info.EventParameters(1) = True'拦截弹出窗⼝10End If11End Sub1213Private Sub Form_Click()14 br.object.Navigate "/"15End Sub1617Private Sub Form_Load()18On Error Resume Next19If Licenses.Count = 0Then Licenses.Add "Shell.Explorer.2", "Shell.Explorer.2"20Set br = Me.Controls.Add("Shell.Explorer.2", "br")21'br.Width = 150 * Screen.TwipsPerPixelX22'br.Height = 50 * Screen.TwipsPerPixelY23 br.Visible = True24End Sub。
VB调用webbrowser技巧集
VB调用webbrowser技巧集VB调用webbrowser技巧集11、获得浏览器信息:Private Sub Command1_Click()WebBrowser1.Navigate ""End SubPrivate Sub Command2_Click()Dim oWindowDim oNavSet oWindow = WebBrowser1.Document.parentWindowSet oNav = oWindow.navigatorDebug.Print erAgentSet oWindow = NothingSet oNav = NothingEnd Sub点击Command1浏览网页,点击Command2在立即窗口中输出浏览器信息。
2、弹出Webbrowser消息窗口Dim oWindowSet oWindow = WebBrowser1.Document.parentWindowoWindow.confirm "abcd"VB调用webbrowser技巧集2向Webbrowser中写入HTML内容的几种方法首先在Form_Load中加入WebBrowser1.Navigate "about:blank"确保Webbrowser1可用方法1:Dim s As StringDim stream As IStreams = ""s = s + ""s = s + ""s = s + "hello world"s = s + ""s = s + "WebBrowser1.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, "xxx"3 回复:VB调用webbrowser技巧集vb调用Webbrowser技巧集31、页面滚动:Private Sub Command2_Click()WebBrowser1.Document.parentwindow.scrollby 0, 30End SubPrivate Sub Form_Load()WebBrowser1.Navigate ""End Sub点击Command2就可以使当前页面向下滚动30像素2、判断页面是否可以前进后退Private Sub Command1_Click()WebBrowser1.GoForwardEnd SubPrivate Sub Command2_Click()WebBrowser1.GoBackEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate ""End SubPrivate Sub WebBrowser1_CommandStateChange(ByV al Command As Long, ByV al Enable As Boolean)If (Command = CSC_NA VIGA TEBACK) ThenCommand2.Enabled = EnableEnd IfIf (Command = CSC_NA VIGA TEFORWARD) ThenCommand1.Enabled = EnableEnd IfEnd Sub4 回复:VB调用webbrowser技巧集VB调用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_Click()Dim 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_Load()WebBrowser1.Navigate ""End Sub5 回复1:VB调用webbrowser技巧集Navigate 方法的语法格式为:WebBrowser 控件名.Navigate URL[Flags,][TargetFrameName,][PostData,][Headers]---- WebBrowser 控件支持的主要方法有:GoBack ———回退到上一屏。
webbrowser用法
webbrowser用法摘要:1.Web 浏览器简介2.WebBrowser 控件的作用3.WebBrowser 控件的基本属性4.WebBrowser 控件的方法5.WebBrowser 控件的实例正文:1.Web 浏览器简介Web 浏览器,全称网络浏览器,是一种用于访问和浏览互联网上Web 页面的应用程序。
它通过HTTP 协议与Web 服务器进行通信,获取并显示Web 页面。
目前市面上有很多种Web 浏览器,如Microsoft 的Internet Explorer、Google 的Chrome、Mozilla 的Firefox 等。
2.WebBrowser 控件的作用在Windows 窗体应用程序中,若要嵌入一个Web 浏览器,可以使用Visual Basic 提供的WebBrowser 控件。
WebBrowser 控件可以让用户在窗体应用程序中访问和浏览互联网上的Web 页面,实现与Web 服务器进行通信,获取并显示Web 页面的功能。
3.WebBrowser 控件的基本属性WebBrowser 控件的基本属性如下:- Name:设定或返回对象的名称。
- Value:设定或返回控件的值。
- Visible:设定或返回控件是否可见。
-Enabled:设定或返回控件是否可用。
- Left:设定或返回控件左边界的位置。
- Top:设定或返回控件上边界的位置。
- Width:设定或返回控件的宽度。
- Height:设定或返回控件的高度。
- URL:设定或返回控件当前访问的Web 页面的URL。
4.WebBrowser 控件的方法WebBrowser 控件的主要方法如下:- Navigate(URL):打开指定的Web 页面。
- Stop:停止当前加载的Web 页面。
- Refresh:刷新当前Web 页面。
- GoBack:返回到上一页。
- GoForward:前进到下一页。
- GoTo(URL):直接跳转到指定的Web 页面。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB关于webbrowser相关操作大全日期:2011-2-17文档收集者:银河1、WebBrowser的方法、属性、事件------------------------------------------------------------ 22、提取网页源码 ----------------------------------------------------------------------------------- 33、防止新窗口里头打开网页 --------------------------------------------------------------------- 44、新Webbrowser控件打开链接 ----------------------------------------------------------------- 55、去掉滚动条 -------------------------------------------------------------------------------------- 56、禁止鼠标右键 ----------------------------------------------------------------------------------- 67、如何获得网页的内容 --------------------------------------------------------------------------- 68、多框架框架页面访问 --------------------------------------------------------------------------- 79、获得浏览器信息--------------------------------------------------------------------------------- 710、弹出Webbrowser消息窗口 ----------------------------------------------------------------- 811、向Webbrowser中写入HTML内容的几种方法--------------------------------------------- 812、控制页面滚动--------------------------------------------------------------------------------- 913、判断页面是否可以前进后退---------------------------------------------------------------- 914、如何获得网页中被选中部分的HTML -------------------------------------------------- 1015、Navigate的参数调用------------------------------------------------------------------------1116、本地文件收藏夹操作 -----------------------------------------------------------------------1117、让Webbrowser全屏------------------------------------------------------------------------ 1218、选择网页上的内容 ------------------------------------------------------------------------- 1219、用IE来下载文件--------------------------------------------------------------------------- 1320、Webbrowser确定窗口对话框 ------------------------------------------------------------- 1421、禁止WebBrowser控件中网页弹窗 ------------------------------------------------------ 1422、取得源码调试正常运行错误-------------------------------------------------------------- 1523、页面元素操作------------------------------------------------------------------------------- 15例0: 查看网页元素 ----------------------------------------------------------------------------- 15 例1: 给username文本框内填充内容: -------------------------------------------------------- 15 例2: 找到提交按钮并点击--------------------------------------------------------------------- 16 例3: 难度的-------------------------------------------------------------------------------------- 16 例4: 模拟鼠标点击来点击按钮 --------------------------------------------------------------- 17 例5: 根据ID直接CLICK --------------------------------------------------------------------- 17 例6: 给列表单选项赋值------------------------------------------------------------------------ 17 例7: 网页自动填写表单注册 ------------------------------------------------------------------ 18 24、网页按钮的终极控制 ---------------------------------------------------------------------- 2022、执行网页中的脚本------------------------------------------------------------------------------- 2123、提取字符串或网页源代码中指定的资源(可利用这一函数做文章采集器) ----------- 2324、中文汉字转化为URL编码--------------------------------------------------------------------- 2525、获取网页中的验证码---------------------------------------------------------------------------- 2726、WebBrowser控件中网页按钮的点击---------------------------------------------------------- 2827、其它 ----------------------------------------------------------------------------------------------- 28 1、WebBrowser的方法、属性、事件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头的请求发送到服务器Stop 相当于IE的“停止”按钮,停止当前页面及其内容的载入属性说明Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。
如果在宿主对象中自动化对象无效,这个程序将返回WebBrowser控件的自动化对象Parent 返回WebBrowser控件的父自动化对象,通常是一个容器,例如是宿主或IE窗口Container 返回WebBrowser控件容器的自动化对象。
通常该值与Parent属性返回的值相同Document 为活动的文档返回自动化对象。
如果HTML当前正被显示在WebBrowser中,则Document属性提供对DHTML Object Model的访问途径TopLevelContainer 返回一个Boolean值,表明IE是否是WebBrowser控件顶层容器,是就返回trueType 返回已被WebBrowser控件加载的对象的类型。
例如:如果加载.doc文件,就会返回Microsoft Word DocumentLeft 返回或设置WebBrowser控件窗口的内部左边与容器窗口左边的距离Top 返回或设置WebBrowser控件窗口的内部左边与容器窗口顶边的距离Width 返回或设置WebBrowser窗口的宽度,以像素为单位Height 返回或设置WebBrowser窗口的高度,以像素为单位LocationName 返回一个字符串,该字符串包含着WebBrowser当前显示的资源的名称,如果资源是网页就是网页的标题;如果是文件或文件夹,就是文件或文件夹的名称LocationURL 返回WebBrowser当前正在显示的资源的URLBusy 返回一个Boolean值,说明WebBrowser当前是否正在加载URL,如果返回true就可以使用stop方法来撤销正在执行的访问操作事件说明Private Events DescriptionBeforeNavigate2 导航发生前激发,刷新时不激发CommandStateChange 当命令的激活状态改变时激发。