VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 访问Internet并调用Explorer
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:7713, 日期:2001-06-15
访问Internet并调用Explorer

  1.实现方法和控件介绍

  首先在VB 6菜单上点击“工程/部件...”,弹出“部件”对话框,在对话框的控件卡中选中Microsoft Internet Controls控件,点击“确定”按钮后工具箱上增加一个WebBrowser图标,将它加到Form中。

  该控件有以下几个重要的方法和事件:

  ●GoHome:装入IE设定的起始页;

  ●Navigate:装入页面,如Object.Navigate url,其中url为URL地址,如http://www.microsoft.com;

  ●GoBack:返回上一个页面;

  ●GoForward:进入下一个页面;

  ●Stop:停止载入页面;

  ●BeforeNavigate Event:在每次装入页面前调用该事件;

  ●StatusTextChange Event:每次浏览器的操作状态改变时调用该事件。

  2.具体的访问方法

  将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮,Name属性分别为:GoButton、BackButton、ForwardButton和StopButton,通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件,用来输入和显示当前的页面地址。在Form上添加一个Label控件,用来显示当前浏览器操作状态。

/*载入Form*/
Private Sub Form_Load()
 /*程序装入后进入IE设定的起始页*/
 WebBrowser1.GoHome
End Sub

 
/*改变Form尺寸*/
Private Sub Form_Resize()
/*改变窗口大小后同时改变控件的大小*/
 WebBrowser1.Width = Form1.ScaleWidth
 WebBrowser1.Height = Form1.ScaleHeight - 900
 Label1.Width = Form1.ScaleWidth
 Label1.Top = Form1.ScaleHeight - 300
End Sub

 
Private Sub BackButton_Click()
 /*返回上一个页面*/
 WebBrowser1.GoBack
End Sub

 
Private Sub ForwardButton_Click()
 /*进入下一个页面*/
 WebBrowser1.GoForward
End Sub

 
Private Sub GoButton_Click()
 /*浏览输入的页面*/
 WebBrowser1.Navigate (Text1.Text)
End Sub

 
Private Sub StopButton_Click()
 /*停止浏览*/
 WebBrowser1.Stop
End Sub

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 /*输入地址后进行浏览*/
 If KeyAscii = 13 Then
  WebBrowser1.Navigate (Text1.Text)
 End If
End Sub

 
Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
 /*将当前显示的页面的URL地址显示在Text1上*/
  Text1.Text = URL
End Sub

 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
 /*Label1显示当前页面装入情况*/
 Label1.Caption = Text
End Sub