VB中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控件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控件最详细使用说明方法说明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控件实例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控件被创建并设置好，就可以开始实现其基本功能了。

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个技巧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操作网页功能模块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 控件可以同时显示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 "→（打开工程图文档）。