这 里 向 大 家 介 绍 另 外 一 种 方 法： 利 用IE3.X 提 供 的 控 件 编 程 访 问。
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
该 控 件 有 以 下 重 要 事 件:
BeforNavigate 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: 浏 览 器 的 操 作 状 态。
访 问 方 法
下 面 介 绍 如 何 通 过 编 程 实 现 对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 下 运 行 通 过。
|
