web browser控件怎么用

1、第一步：新建窗体程序

打开Visual Studio2010，新建窗体程序，命名为Web browser，然后从工具箱中拖入进空间Web browser，如图：

2、第二步：引入百度搜索导航

上级控件，在Code中输入“WebBrowser1.Navigate2 "www.baidu.com"”，然后点击运行，查看效果，如图：

3、第三步：禁止鼠标右键功能

在Code主窗体中输入禁用鼠标右键功能代码：

Dim WithEvents M_Dom As MSHTML.HTMLDocumentPrivate Function M_Dom_oncontextmenu() As Boolean         M_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete()       Set M_Dom = Webbrowser1.Document

运行，测试。如图：

4、第四步：调用浏览器收藏夹

在Code主代码窗体中输入以下关键代码：

Public Function SpecialFolder(ByRef CSIDL As Long) As String     'locate the favorites folder     Dim R As Long     Dim sPath As String     Dim IDL As ITEMIDLIST     Const NOERROR = 0     Const MAX_LENGTH = 260     R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)     If R = NOERROR Then         sPath = Space$(MAX_LENGTH)         R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)         If R Then             SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)         End If     End If

运行，测试。如图：

5、第五步：开启全屏显示

输入关键代码：

Call ShowWindow(FindWindow("Shell_traywnd", ""), 9)，form1.windowstate = 2

运行，测试。如图：

6、第六步：选择网页内容

输入关键代码：

Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTMsgBox Clipboard.GetText

即选择内容，运行，测试。如图：

7、第七步：调用浏览器下载功能进行下载

主关键代码：

 sDownload = StrConv(Text1.Text, vbUnicode)    Call DoFileDownload(sDownload)

Private Sub Form_Load()Text1.Text = "www.baidu.com/1.zip"Form1.Caption = "Audiograbber 1.62 Full"Text2.Text = "http://www.baidu.com/1.zip"

运行，测试。如图：

8、第八步：动态加载控件

主关键代码：

Private Sub Command1_Click()    Form1.Controls.Add "shell.explorer.2", "NewWeb", Form1     With Form1!NewWeb         .Visible = True         .Width = 10000         .Height = 10000         .Left = 0         .Top = 0         .Navigate2 "www.baidu.com"

运行，测试。如图：

9、第九步：隐藏滚动条

主关键代码：

 WebBrowser1.Document.body.Scroll = "no" 

运行，测试。如图：