📄 vb15.htm
字号:
WebBrowser 控 件 名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers]
</SPAN></SPAN></PRE>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
WebBrowser 控 件 支 持 的 主 要 方 法 有: </SPAN></SPAN><PRE><SPAN class=sfont><SPAN class=sfont>
GoBack — — — 回 退 到 上 一 屏。
GoForward — — — 进 入 到 下 一 屏。
GoHome — — — 回 家。 即 回 到 主 页。
Stop — — — 停 止 导 航。
Refresh — — — 刷 新。
Navigate — — — 导 航。
</SPAN></SPAN></PRE>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
WebBrowser 控 件 所 响 应 的 事 件: </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
BeforeNavigate 事 件 — — — 在 开 始 导 航 前 发 生。 一 般 在 此 获 取 完 整 的URL 字 符 串。
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
WebBrowser 控 件 最 主 要 的 参 数: </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> URL
— — — 获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 能 将”www.MicroSoft.Com” 自 动 翻 译
为”http:// www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 缩 写， 是
在Internet 的WWW 服 务 程 序 上 用 于 指 定 信 息 位 置 的 表 示 方 法。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 下 面
我 们 结 合 一 个 实 例 进 行 具 体 说 明。 这 是 一 个“ 画 中 画” 滚 动 显 示 应 用 程 序， 界 面 由 循 环 滚
动 显 示 的 文 字、 背 景 图 象、 和 播 放 的GIF 动 画 三 部 分 组 成。 其 中 循 环 显 示 的 文 字 用 透 明
的Label 控 件 实 现； 动 画 用WebBrowser 控 件 实 现 播 放。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ① 所
需 控 件： </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 本 程
序 需 要 一 个PictureBox 控 件、 一 个Label 控 件、 一 个WebBrowser 控 件、 一 个Timer 控 件。
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ② 各
控 件 的 属 性 设 置 如 下： </SPAN></SPAN><PRE><SPAN class=sfont><SPAN class=sfont>
控件名称 属性 设置值 含 义
Label1控件 BackStyle 0 设置Label1控件的背景是透明的。
Timer1控件 Interval 200 设置每0.2秒发生一次Timer1_Timer()事件。
</SPAN></SPAN></PRE>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ③ 各
事 件 的 相 应 代 码 如 下： </SPAN></SPAN>
<UL type=square>
<LI><SPAN class=sfont><SPAN class=sfont>首 先 定 义 一 个 变 量， 以 便 用 它 来 存 放 需
要 滚 动 显 示 的 字 符 串。 </SPAN></SPAN></LI></UL><PRE><SPAN class=sfont><SPAN class=sfont>
Dim aa As String
</SPAN></SPAN></PRE>
<UL type=square>
<LI><SPAN class=sfont><SPAN class=sfont>在Form_Load() 事 件 中 进 行 初 始 化 工
作， 具 体 代 码 如 下： </SPAN></SPAN></LI></UL><PRE><SPAN class=sfont><SPAN class=sfont>
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & "\demo1.jpg")
WebBrowser1.Navigate (App.Path & "\new1.gif")
</SPAN></SPAN></PRE>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> aa
= " 这 是 一 个 利 用 网 络 浏 览 器IE 中WebBrowser 控 件 制 作 的GIF 动 画 播 放 程 序。 "
</SPAN></SPAN><PRE><SPAN class=sfont><SPAN class=sfont>
Label1.ForeColor = QBColor(11)
Label1.FontSize = 18
Label1.Caption = aa
End Sub
◆ 在Timer1_Timer()事件中，每隔0.2秒改变
一次Label1控件的Caption属性值。
Private Sub Timer1_Timer()
' 让字符串头尾相接，以便形成滚动效果。
aa = Mid(aa, 2, 59) + Mid(aa, 1)
Label1.Caption = aa
End Sub
◆ 在Picture1_Click()事件中，卸载并退出应用程序。
Private Sub Picture1_Click()
Unload Me
End Sub
</SPAN></SPAN></PRE>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ④ 调
整 各 控 件 至 适 当 的 大 小 和 位 置。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
<B>二、 注 意 事 项 及 附 加 说 明</B> </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 1 ．
不 同 版 本IE 的Microsoft Internet Controls 所 包 含 的 控 件 及 控 件 数 量 是 不 同 的。 设 计
者 在 使 用 时 必 须 注 意 这 一 点。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ①
WINDOWS95 所 带 的IE3.0 的Microsoft Internet Controls 只 包 含 一 个 控 件，
即WebBrowser 控 件。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ② 中
文 版IE4.0CN 的Microsoft Internet Controls 包 含 两 个 控 件， 即WebBrowser 控 件
和DownUp 控 件。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> ③ 英
文 版IE4.01 的Microsoft Internet Controls 包 含 两 个 控 件， 即WebBrowser 控 件
和ShellFolderViewOC 控 件。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 2 ．
实 际 上， 在VB5.0 中 也 可 以 使 用WebBrowser 控 件 播 放GIF 动 画， 但 如 果VB5.0 是 安 装
在WINDOWS95 下， 那 么 必 须 安 装IE3.0 或IE4.0； 如 果 是 安 装 在WINDOWS98 下， 则 可 不 必（ 因
为WINDOWS98 自 带IE4.0）。 然 而 需 要 特 别 声 明 的 是： 无 论 是VB5.0 的 联 机 手 册， 还 是 其 它 帮
助 文 件， 均 未 介 绍 有 关WebBrowser 控 件 的 资 料（ 因 为WebBrowser 控 件 不 是Visual Basic
的 控 件， 而 是 由IE 提 供 的。）。 读 者 如 要 详 细 了 解 这 方 面 的 情 况， 请 查 阅Visual Studio 98
中 的MSDN。 具 体 步 骤 如 下： </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
从Microsoft Developer Network 中 选 择MSDN Library Visual Studio 6.0, 查 找 关
于Reusing the WebBrowser Control 的 主 题， 位 置 在Internet Explorer:Platfrom
SDK。 从 哪 可 以 找 到 有 关WebBrowser 控 件 的 详 尽 资 料。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 3 ．
注 意 你 的 发 布 权 限。 由 于 受 到 软 件 知 识 产 权 的 影 响， 任 何 软 件 都 有 它 的 发 行 权 限。
在Visual Basic 中, 你 可 以 自 由 地 发 布 任 何 由Visual Basic 创 建 的 应 用 程 序、 部
件、DLL、Active X 控 件、 各 种 媒 体 文 件、 示 例 应 用 程 序（ 在\Samples 子 目 录 下） 以 及 系 统 第
一 次 安 装Visual Basic 时 最 初 复 制 到Visual Basic 主 目 录 的\Icons 子 目 录、\Graphics
子 目 录、\ODBC 子 目 录 下 的 任 何 文 件。 但 除 此 之 外 的 其 它 软 件 一 般 都 不 允 许 你 发 布。 例 如：
你 的 应 用 程 序 中 包 含 有 对 网 络 浏 览 器IE 的 引 用， 那 么“ 应 用 程 序 安 装 向 导” 在 创 建 你 的 安
装 程 序 时， 就 会 因 试 图 发 布 无 权 发 布 的 软 件 而 出 错。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 错 误
原 因： 因 为 我 们 无 权 用Visual Basic 的“ 应 用 程 序 安 装 向 导” 来 发 布 网 络 浏 览 器IE。
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 那 么
既 然 我 们 不 能 在VB 的 应 用 程 序 中 发 布 网 络 浏 览 器IE， 又 怎 么 样 保 证 应 用 程 序 中 的 引 用 能
得 以 实 现 呢 ？ </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 解 决
办 法 ①： 如 果 用 户 的 计 算 机 上 已 经 安 装 了 网 络 浏 览 器IE， 那 么 直 接 安 装 你 开 发 的 应 用 程
序 即 可。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 解 决
办 法 ②： 如 果 用 户 的 计 算 机 上 还 未 安 装 网 络 浏 览 器IE， 那 么 只 要 在 运 行 你 的 应 用 程 序 之
前， 安 装 上 网 络 浏 览 器IE 即 可。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 需 要
说 明 的 是， 上 述 解 决 方 法 具 有 普 遍 性， 如 果 你 的 应 用 程 序 在 发 布 时 遇 到 类 似 的 问 题（ 例
如： 你 的 应 用 程 序 中 包 含 有 对Word97、Excel 97 的 引 ）</SPAN></SPAN><SPAN
class=sfont><SPAN class=sfont>， 均 可 照 此 处 理。</SPAN></SPAN>
<P align=right><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">----更多的文章</A></P><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666 width=1><IMG height=1 src="vb15.files/blank.gif"
width=1></TD>
<TD align=right vAlign=bottom width=170><IMG height=10
src="vb15.files/blank.gif" width=170><BR></TD>
<TD bgColor=#666666 width=1><IMG height=1 src="vb15.files/blank.gif"
width=1></TD>
<TD width=21><IMG height=1 src="vb15.files/blank.gif" width=21></TD>
<TD bgColor=#eeeeee width=566><IMG height=10 src="vb15.files/blank.gif"
width=566><BR>版权所有©1999 太平洋电脑信息网<BR><FONT
face="Arial, Helvetica, sans-serif"><A
href="mailto:exp@pconline.com.cn">exp@pconline.com.cn</A></FONT> <IMG
height=1 src="vb15.files/hhvisit.html" width=1> </TD></TR></TBODY></TABLE><!-- #EndTemplate --></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -