IE控件
如果机器中安装了IE3.x,在VB5.0的控件(Component)列表窗口中就会有一个名为Microsoft Internet Controls的控件,选取该控件,并将它加到Form中。
该控件有以下几个重要的方法:
GoHome :装入IE设定的起始页。
用法: object.GoHome
Navigate : 装入页面。
用法: object.Navigate url
url为URL地址,如"http://www.microsoft.com"
GoBack : 返回上一个页面。
用法: object.GoBack
GoForward:进入下一个页面。
用法: object.GoForward
Stop : 停止载入页面。
用法: object.Stop
该控件有以下重要事件:
BeforeNavigate Event: 在每次装入页面前调用,声明如下:
Private Sub object_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
其中URL参数为将要装入的页面地址。
StatusTextChang Event: 每次浏览器的操作状态改变时调用,声明如下:
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
其中Text为浏览器的操作状态。
下面介绍如何通过IE控件编程实现对WWW的访问。
在Form中添加Microsoft Internet Control控件显示页面。
在Form中添加4个CommandButton控件,Name属性分别为:GoButton、BackButton、ForwardButton、StopButton,用这4个CommandButton可以实现对浏览器的操作。
在Form中添加一个TextBox控件,用来输入和显示当前的页面地址。
在Form中添加Label控件,用来显示当前浏览器操作状态。
程序如下:
Private Sub BackButton_Click()
'返回上一个页面
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
'程序装入后进入IE设定的起始页
WebBrowser1.GoHome
End Sub
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 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
该程序在Win95、VB5.0下运行通过。
|