VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 利用IE控件访问Internet
发表评论(0)作者:, 平台:, 阅读:16121, 日期:2000-03-12
利用IE控件访问Internet

长沙 陈锐

这里向大家介绍一种利用IE3.X提供的控件编程访问Internet网页的方法。

IE控件

如果机器中安装了IE3.X,在VB5.0的控件(Component)列表窗口中就会有一

个名为Microsoft Internet Controls的控件,选取该控件,并将它加到Form中。

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

GoHome:装入IE设定的起始页。

用法:object.GoHome

Navigate:装入页面。

用法:object.Navigateurl

url为URL地址,如"../../www.microsoft.com/index.htm"

GoBack:返回上一个页面。

用法:object.GoBack

GoForward:进入下一个页面。

用法:object.GoForward

Stop:停止载入页面。

用法:object.Stop

该控件有以下重要事件:

BeforNavigateEvent:在每次装入页面前调用,声明如下:

PrivateSubobject_BeforeNavigate(ByVal URL As String,ByVal Flags

As Long,ByVal TargetFrameName As String,PostData As Variant,ByVal

Headers As String,Cancel As Boolean)

其中的URL参数为将要装入的页面地址。

StatusTextChangEvent:每次浏览器的操作状态改变时调用,声明如下:

PrivateSubWebBrowser1_StatusTextChange(ByVal Text As String)

Text:浏览器的操作状态。

访问方法

下面介绍如何通过编程实现对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下运行通过。