⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 vb15.htm

📁 从太平洋上下载下来的打包学习VB的教程。 》VB专区 ·Visual Basic 的数据库编程 ·使用VB建立Web Server 　 ·VB与Windows资源管理器互拷文件
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!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>&nbsp;</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>&nbsp;</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> &gt; <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>&gt; <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>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -