这 里 向 大 家 介 绍 另 外
种 方 法: 利 用ie3.x 提 供 
控 件 编 程 访 问
ie 控 件
如 果 机 器 中 安 装 了ie3.x
在vb5.0 控 件(component) 列 表 窗 口 中 就 会 有 个 名 为microsoft 
ernet 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
, byval flags as long, byval targetframename as , postdata as variant, byval headers as , cancel as boolean) 其 中
url 参 数 为 将 要 装 入 页 面 地 址 statustextchang event: 每 次 浏 览 器
操 作 状 态 改 变 时 调 用 声 明 如 下: private sub webbrowser1_statustextchange(byval text as
) text: 浏 览 器
操 作 状 态 访 问 方 法
下 面 介 绍 如 何 通 过 编 程 实 现 对www
访 问 在form 中 添 加microsoft
ernet 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
eger) \' 浏 览 输 入
页 面 
keyascii = 13 then webbrowser1.navigate (text1.text)
end
end sub
private sub webbrowser1_beforenavigate
(byval url as
, byval flags as long, byval targetframename as
, postdata as variant, byval headers as
, cancel as boolean) \' 将 当 前 显 示
页 面 url 地 址 显 示 在text1 上 text1.text = url
end sub
private sub webbrowser1_statustextchange(byval text as
) \'label1 显 示 当 前 页 面 装 入 情 况
label1.caption = text
end sub
该 程 序 在win95、vb5.0 下 运 行 通 过
最新评论