?? vb15.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb15.htm -->
<HTML><HEAD><TITLE>|><| 太平洋電腦信息網</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="vb15.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
LINE-HEIGHT: 18pt
}
</STYLE>
<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR bgColor=#303880>
<TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網 border=0
height=18 hspace=30 src="vb15.files/txtpconline.gif"
width=96></A><IMG height=10 src="vb15.files/blank.gif"
width=400></TD></TR></TBODY></TABLE></TD>
<TD align=right background=vb15.files/bw.gif noWrap width=130><IMG
height=26 src="vb15.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/sitemap/"><IMG alt=網站地圖 border=0
height=26 src="vb15.files/sitemap.gif" width=21></A><IMG height=26
src="vb15.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/"><IMG alt=關于太平洋 border=0 height=26
src="vb15.files/aboutus.gif" width=21></A><IMG height=26
src="vb15.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=與我們聯系 border=0
height=26 src="vb15.files/contact.gif" width=21></A><IMG height=26
src="vb15.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD bgColor=#666666><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD> </TD>
<TD colSpan=2 noWrap><A
href="http://www.pconline.com.cn/experience/index.html"><IMG
align=absBottom alt=企業之窗 border=0 height=15
src="vb15.files/txtexperience.gif" width=68></A> <A
href="http://www.pconline.com.cn/">首 頁</A> <A
href="http://www.pconline.com.cn/market/">今日報價</A> <A
href="http://www.pconline.com.cn/recommend/">產品推介</A> <A
href="http://www.pconline.com.cn/yp/">企業之窗</A> <A
href="http://www.pconline.com.cn/news/">科技新聞</A> <A
href="http://www.pconline.com.cn/product/">產品查詢</A> <A
href="http://www.pconline.com.cn/download/">軟件下載</A></TD></TR>
<TR>
<TD><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb15.files/blank.gif" width=21></TD>
<TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb15.files/blank.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD bgColor=#cdcdcd><IMG height=5 src="vb15.files/blank.gif" width=1></TD>
<TD align=right colSpan=3><IMG height=6 src="vb15.files/ffa000.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb15.files/blank.gif" width=1></TD>
<TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋電腦信息網
border=0 height=35 src="vb15.files/pconline.com.cn.gif" vspace=10
width=162></A></TD>
<TD> </TD>
<TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40
src="vb15.files/blank.gif" width=350><!-- #EndEditable --></TD>
<TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=廣告位
height=43 src="vb15.files/icon.gif"
width=190><!-- #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 vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代為附加信息 --><!-- #EndEditable --></TD>
<TD bgColor=#666666 width=1><IMG height=1 src="vb15.files/blank.gif"
width=1></TD>
<TD><IMG height=1 src="vb15.files/blank.gif" width=21></TD>
<TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" --><IMG
height=1 src="vb15.files/blank.gif" width=566><BR><IMG height=1
src="vb15.files/666666.gif" width=420><BR><IMG height=13
src="vb15.files/blank.gif" width=1><A
href="http://www.pconline.com.cn/experience/">經驗共享</A> > <SPAN
class=greenb><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">專題教程</A></SPAN><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">
VB專區</A>> <BR><IMG height=1 src="vb15.files/666666.gif" vspace=1
width=420><BR>
<P align=center><B><FONT color=#000066><SPAN class=sfont><SPAN
class=sfont>在VB6.0 中 播 放GIF 動 畫</SPAN></SPAN></FONT></B> </P><SPAN
class=sfont><SPAN class=sfont><H></SPAN></SPAN>
<DIV align=center><SPAN class=sfont><SPAN class=sfont>關 永 張 杰
</SPAN></SPAN></DIV>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 摘
要： 由 于GIF 格 式 動 畫 文 件 具 有 小 巧、 制 作 方 便 等 特 點， 因 此 在 網 上 得 到 廣 泛 應 用， 但 遺 憾
的 是VB 中 的 多 媒 體 控 件 卻 無 法 播 放 它， 這 給 我 們 設 計VB 應 用 程 序 帶 來 了 不 便。 在 此 我 們
向 大 寫 介 紹 一 種 利 用 網 絡 瀏 覽 器IE 實 現 在VB 中 播 放GIF 動 畫 的 方 法。 并 給 出 一 個 簡 捷、 實
用 的“ 畫 中 畫” 滾 動 顯 示 程 序。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> GIF
動 畫 格 式 文 件 是 一 種 動 態 存 儲 的 圖 形 格 式 文 件。 在 內 容 相 同 的 條 件 下， 與 其 它 格 式 文 件
相 比， 由 于 它 占 用 的 存 儲 空 間 少， 且 制 作 手 段 成 熟， 可 瀏 覽 的 軟 件 工 具 也 很 多， 所 以 倍 受
設 計 者 的 青 睞。 然 而 令 人 遺 憾 的 是， 在Visual Basic 中， 無 論 是 多 媒 體 控 件MCI、MCIWnd，
還 是Animation 控 件, 甚 至 調 用Windows API 函 數 都 無 法 播 放GIF 格 式 的 動 畫 文 件。 造 成 這
一 現 象 的 原 因 在 于GIF 動 畫 格 式 文 件 不 是VB 多 媒 體 控 件 所 支 持 的 視 頻 格 式 文 件（VB 多 媒
體 控 件 所 支 持 的 視 頻 格 式 文 件 主 要 有：AVI 格 式、MOV 格 式、FLI 格 式、FLC 格 式 等）。 以 往 我
們 的 解 決 方 法 是： 首 先 利 用 一 些 格 式 轉 換 工 具， 比 如GIF Movie Gear 將GIF 格 式 的 動 畫 文
件 轉 換 為AVI 格 式 的 動 畫 文 件， 然 后 再 用 多 媒 體 控 件MCI 和MCIWnd 進 行 播 放。 但 這 種 做 法
主 要 存 在 以 下 兩 個 缺 陷： </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 1 ．
所 形 成 的AVI 格 式 動 畫 文 件 太 大（ 常 常 是GIF 格 式 文 件 的 幾 十 倍）， 從 而 影 響 系 統 的 效 率。
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 2 ．
所 形 成 的AVI 格 式 動 畫 文 件 往 往 帶 有 比 較 復 雜 的 調 色 板 信 息， 所 以 當 程 序 在 播 放 這 種AVI
格 式 動 畫 文 件 時， 如 果 還 兼 有 動 態 顯 示 的 文 字 和 圖 象 信 息， 則 整 個 畫 面 就 會 產 生 抖 動 和
閃 爍， 從 而 使 顯 示 效 果 大 受 影 響。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 為 解
決 這 個 問 題， 我 們 在 此 提 出 一 個 全 新 的 處 理 方 案 — — — 通 過 在VB 中 調 用IE 瀏 覽 器 來 實
現GIF 動 畫 的 播 放， 實 際 使 用 表 明： 效 果 甚 好。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
<B>一、 瀏 覽 器IE 和WebBrowser 控 件</B> </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 眾 所
周 知， 運 行VB6.0 需 要 安 裝 瀏 覽 器IE4.0 或 以 上 版 本， 當IE4.0 和VB6.0 安 裝 完 成 后， 我 們 便
可 以 在VB6.0 中 使 用IE 所 提 供 的WebBrowser 控 件 播 放GIF 動 畫 了。 具 體 方 法 如 下：
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 1 ．
由 于WebBrowser 控 件 并 不 是VB 的 基 本 控 件， 因 此 在 使 用 該 控 件 之 前 必 須 先 將 其 裝 入 工 具
箱 中。 裝 入 方 法： 在 工 具 箱 中 點 擊 鼠 標 右 鍵 → 選 中“ 部 件” → 復 選Microsoft Internet
Controls → 然 后 點 擊“ 確 定” 鍵 即 可。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 2 ．
選 取WebBrowser 控 件（ 注 意 不 同 版 本IE 的WebBrowser 控 件 的 圖 標 是 不 同 的，IE4.0 中
的WebBrowser 控 件 的 圖 標 是 一 個 地 球；IE3.0 是 一 個 搜 索 圖 標。）， 添 加 到 窗 體 的 相 應 位 置
上。 </SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 3 ．
設 計 相 應 代 碼， 通 過 使 用WebBrowser 控 件 的Navigate 方 法 播 放GIF 動 畫 文 件。
</SPAN></SPAN>
<P><SPAN class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT>
Navigate 方 法 的 語 法 格 式 為： </SPAN></SPAN><PRE><SPAN class=sfont><SPAN class=sfont>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -