关于gif 怎样让vb支持gif动画，我有一个控件，可以要注册的！！！ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 通 过 在VB 中 调 用IE 浏 览 器 来 实 现GIF 动 画 的 播 放，一、 浏 览 器IE 和WebBrowser 控 件 众 所 周 知， 运 行VB6.0 需 要 安 装 浏 览 器IE4.0 或 以 上 版本， 当IE4.0 和VB6.0 安 装 完 成 后， 我 们 便 可 以 在VB6.0 中 使 用IE 所 提 供 的WebBrowser 控 件 播 放GIF 动 画 了。 具 体 方 法 如 下： 1 ． 由 于WebBrowser 控 件 并 不 是VB 的 基 本 控 件， 因 此 在使 用 该 控 件 之 前 必 须 先 将 其 装 入 工 具 箱 中。 装 入 方 法： 在工 具 箱 中 点 击 鼠 标 右 键 → 选 中“ 部 件” → 复 选Microsoft Internet Controls → 然 后 点 击“ 确 定” 键 即 可。 2 ． 选 取WebBrowser 控 件（ 注 意 不 同 版 本IE 的WebBrowser 控件 的 图 标 是 不 同 的，IE4.0 中 的WebBrowser 控 件 的 图 标 是 一 个地 球；IE3.0 是 一 个 搜 索 图 标。）， 添 加 到 窗 体 的 相 应 位 置 上。 3 ． 设 计 相 应 代 码， 通 过 使 用WebBrowser 控 件 的Navigate 方 法 播 放GIF 动 画 文 件。 Navigate 方 法 的 语 法 格 式 为： WebBrowser 控 件 名.Navigate URL [Flags,][TargetFrameName,][PostData,][Headers] WebBrowser 控 件 支 持 的 主 要 方 法 有: GoBack — — — 回 退 到 上 一 屏。 GoForward — — — 进 入 到 下 一 屏。 GoHome — — — 回 家。 即 回 到 主 页。 Stop — — — 停 止 导 航。 Refresh — — — 刷 新。 Navigate — — — 导 航。 WebBrowser 控 件 所 响 应 的 事 件: BeforeNavigate 事 件 — — — 在 开 始 导 航 前 发 生。 一 般 在此 获 取 完 整 的URL 字 符 串。 WebBrowser 控 件 最 主 要 的 参 数: URL — — — 获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 能将”www.MicroSoft.Com” 自 动 翻 译 为”http:// www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 缩 写， 是 在Internet 的WWW 服 务 程 序 上用 于 指 定 信 息 位 置 的 表 示 方 法。 下 面 我 们 结 合 一 个 实 例 进 行 具 体 说 明。 这 是 一 个“ 画 中 画” 滚 动 显 示 应 用 程 序， 界 面 由 循 环 滚 动 显 示 的 文 字、背 景 图 象、 和 播 放 的GIF 动 画 三 部 分 组 成。 其 中 循 环 显 示 的文 字 用 透 明 的Label 控 件 实 现； 动 画 用WebBrowser 控 件 实 现 播放。 ① 所 需 控 件： 本 程 序 需 要 一 个PictureBox 控 件、 一 个Label 控 件、 一 个WebBrowser 控 件、 一 个Timer 控 件。 ② 各 控 件 的 属 性 设 置 如 下： 控件名称 属性 设置值 含 义 Label1控件 BackStyle 0 设置Label1控件的背景是透明的。 Timer1控件 Interval 200 设置每0.2秒发生一次Timer1_Timer()事件。 ③ 各 事 件 的 相 应 代 码 如 下： 首 先 定 义 一 个 变 量， 以 便 用 它 来 存 放 需 要 滚 动 显 示 的字 符 串。 Dim aa As String 在Form_Load() 事 件 中 进 行 初 始 化 工 作， 具 体 代 码 如 下： Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path & "\demo1.jpg") WebBrowser1.Navigate (App.Path & "\new1.gif") aa = " 这 是 一 个 利 用 网 络 浏 览 器IE 中WebBrowser 控 件 制作 的GIF 动 画 播 放 程 序。 " 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 ④ 调 整 各 控 件 至 适 当 的 大 小 和 位 置。 二、 注 意 事 项 及 附 加 说 明 1 ． 不 同 版 本IE 的Microsoft Internet Controls 所 包 含 的 控件 及 控 件 数 量 是 不 同 的。 设 计 者 在 使 用 时 必 须 注 意 这 一点。 ① WINDOWS95 所 带 的IE3.0 的Microsoft Internet Controls 只 包含 一 个 控 件， 即WebBrowser 控 件。 ② 中 文 版IE4.0CN 的Microsoft Internet Controls 包 含 两 个 控件， 即WebBrowser 控 件 和DownUp 控 件。 ③ 英 文 版IE4.01 的Microsoft Internet Controls 包 含 两 个 控件， 即WebBrowser 控 件 和ShellFolderViewOC 控 件。 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。 具 体 步 骤 如 下： 从Microsoft Developer Network 中 选 择MSDN Library Visual Studio 6.0, 查 找 关 于Reusing the WebBrowser Control 的 主 题， 位 置 在Internet Explorer:Platfrom SDK。 从 哪 可 以 找 到 有 关WebBrowser 控 件 的 详 尽资 料。 3 ． 注 意 你 的 发 布 权 限。 由 于 受 到 软 件 知 识 产 权 的影 响， 任 何 软 件 都 有 它 的 发 行 权 限。 在Visual Basic 中, 你 可以 自 由 地 发 布 任 何 由Visual Basic 创 建 的 应 用 程 序、 部 件、DLL、Active X 控 件、 各 种 媒 体 文 件、 示 例 应 用 程 序（ 在\Samples 子 目 录 下）以 及 系 统 第 一 次 安 装Visual Basic 时 最 初 复 制 到Visual Basic 主目 录 的\Icons 子 目 录、\Graphics 子 目 录、\ODBC 子 目 录 下 的 任 何文 件。 但 除 此 之 外 的 其 它 软 件 一 般 都 不 允 许 你 发 布。 例 如：你 的 应 用 程 序 中 包 含 有 对 网 络 浏 览 器IE 的 引 用， 那 么“ 应用 程 序 安 装 向 导” 在 创 建 你 的 安 装 程 序 时， 就 会 因 试 图 发布 无 权 发 布 的 软 件 而 出 错。 错 误 原 因： 因 为 我 们 无 权 用Visual Basic 的“ 应 用 程 序安 装 向 导” 来 发 布 网 络 浏 览 器IE。 那 么 既 然 我 们 不 能 在VB 的 应 用 程 序 中 发 布 网 络 浏 览器IE， 又 怎 么 样 保 证 应 用 程 序 中 的 引 用 能 得 以 实 现 呢 ？ 解 决 办 法 ①： 如 果 用 户 的 计 算 机 上 已 经 安 装 了 网 络浏 览 器IE， 那 么 直 接 安 装 你 开 发 的 应 用 程 序 即 可。 解 决 办 法 ②： 如 果 用 户 的 计 算 机 上 还 未 安 装 网 络 浏览 器IE， 那 么 只 要 在 运 行 你 的 应 用 程 序 之 前， 安 装 上 网 络浏 览 器IE 即 可。 需 要 说 明 的 是， 上 述 解 决 方 法 具 有 普 遍 性， 如 果 你的 应 用 程 序 在 发 布 时 遇 到 类 似 的 问 题（ 例 如： 你 的 应 用 程序 中 包 含 有 对Word97、Excel 97 的 引 ）， 均 可 照 此 处 理。 捕捉错误、重启程序 从VB向SQL添加了一条数据，怎样立刻读取这条数据的ID 如何将DLL内的值表现（传到）到ASP网页中。。。。。。。。 请各位大哥告诉这几个API的讲解，或者给个讲解的网站！！ 如何写注册型控件？◆◆◆◆◆◆◆ 窗体边线问题 简单的问题。。紧急求教！！！！ mailto: 能否实现附件功能，怎么做呢？ 查询条件为某日期变量在某段日期常量之间该怎么表达？ about VBA 谁先答就给谁分！！ 急，中文问题！ 高分求datareport做打印的基本功
一、 浏 览 器IE 和WebBrowser 控 件 众 所 周 知， 运 行VB6.0 需 要 安 装 浏 览 器IE4.0 或 以 上 版本， 当IE4.0 和VB6.0 安 装 完 成 后， 我 们 便 可 以 在VB6.0 中 使 用IE 所 提 供 的WebBrowser 控 件 播 放GIF 动 画 了。 具 体 方 法 如 下： 1 ． 由 于WebBrowser 控 件 并 不 是VB 的 基 本 控 件， 因 此 在使 用 该 控 件 之 前 必 须 先 将 其 装 入 工 具 箱 中。 装 入 方 法： 在工 具 箱 中 点 击 鼠 标 右 键 → 选 中“ 部 件” → 复 选Microsoft Internet Controls → 然 后 点 击“ 确 定” 键 即 可。 2 ． 选 取WebBrowser 控 件（ 注 意 不 同 版 本IE 的WebBrowser 控件 的 图 标 是 不 同 的，IE4.0 中 的WebBrowser 控 件 的 图 标 是 一 个地 球；IE3.0 是 一 个 搜 索 图 标。）， 添 加 到 窗 体 的 相 应 位 置 上。 3 ． 设 计 相 应 代 码， 通 过 使 用WebBrowser 控 件 的Navigate 方 法 播 放GIF 动 画 文 件。 Navigate 方 法 的 语 法 格 式 为：
WebBrowser 控 件 名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers] WebBrowser 控 件 支 持 的 主 要 方 法 有:
GoBack — — — 回 退 到 上 一 屏。
GoForward — — — 进 入 到 下 一 屏。
GoHome — — — 回 家。 即 回 到 主 页。
Stop — — — 停 止 导 航。
Refresh — — — 刷 新。
Navigate — — — 导 航。 WebBrowser 控 件 所 响 应 的 事 件: BeforeNavigate 事 件 — — — 在 开 始 导 航 前 发 生。 一 般 在此 获 取 完 整 的URL 字 符 串。 WebBrowser 控 件 最 主 要 的 参 数: URL — — — 获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 能将”www.MicroSoft.Com” 自 动 翻 译 为”http:// www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 缩 写， 是 在Internet 的WWW 服 务 程 序 上用 于 指 定 信 息 位 置 的 表 示 方 法。 下 面 我 们 结 合 一 个 实 例 进 行 具 体 说 明。 这 是 一 个“ 画 中 画” 滚 动 显 示 应 用 程 序， 界 面 由 循 环 滚 动 显 示 的 文 字、背 景 图 象、 和 播 放 的GIF 动 画 三 部 分 组 成。 其 中 循 环 显 示 的文 字 用 透 明 的Label 控 件 实 现； 动 画 用WebBrowser 控 件 实 现 播放。 ① 所 需 控 件： 本 程 序 需 要 一 个PictureBox 控 件、 一 个Label 控 件、 一 个WebBrowser 控 件、 一 个Timer 控 件。 ② 各 控 件 的 属 性 设 置 如 下：
控件名称 属性 设置值 含 义
Label1控件 BackStyle 0 设置Label1控件的背景是透明的。
Timer1控件 Interval 200 设置每0.2秒发生一次Timer1_Timer()事件。 ③ 各 事 件 的 相 应 代 码 如 下： 首 先 定 义 一 个 变 量， 以 便 用 它 来 存 放 需 要 滚 动 显 示 的字 符 串。 Dim aa As String 在Form_Load() 事 件 中 进 行 初 始 化 工 作， 具 体 代 码 如 下： Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & "\demo1.jpg")
WebBrowser1.Navigate (App.Path & "\new1.gif") aa = " 这 是 一 个 利 用 网 络 浏 览 器IE 中WebBrowser 控 件 制作 的GIF 动 画 播 放 程 序。 "
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 ④ 调 整 各 控 件 至 适 当 的 大 小 和 位 置。 二、 注 意 事 项 及 附 加 说 明 1 ． 不 同 版 本IE 的Microsoft Internet Controls 所 包 含 的 控件 及 控 件 数 量 是 不 同 的。 设 计 者 在 使 用 时 必 须 注 意 这 一点。 ① WINDOWS95 所 带 的IE3.0 的Microsoft Internet Controls 只 包含 一 个 控 件， 即WebBrowser 控 件。 ② 中 文 版IE4.0CN 的Microsoft Internet Controls 包 含 两 个 控件， 即WebBrowser 控 件 和DownUp 控 件。 ③ 英 文 版IE4.01 的Microsoft Internet Controls 包 含 两 个 控件， 即WebBrowser 控 件 和ShellFolderViewOC 控 件。 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。 具 体 步 骤 如 下： 从Microsoft Developer Network 中 选 择MSDN Library Visual Studio 6.0, 查 找 关 于Reusing the WebBrowser Control 的 主 题， 位 置 在Internet Explorer:Platfrom SDK。 从 哪 可 以 找 到 有 关WebBrowser 控 件 的 详 尽资 料。 3 ． 注 意 你 的 发 布 权 限。 由 于 受 到 软 件 知 识 产 权 的影 响， 任 何 软 件 都 有 它 的 发 行 权 限。 在Visual Basic 中, 你 可以 自 由 地 发 布 任 何 由Visual Basic 创 建 的 应 用 程 序、 部 件、DLL、Active X 控 件、 各 种 媒 体 文 件、 示 例 应 用 程 序（ 在\Samples 子 目 录 下）以 及 系 统 第 一 次 安 装Visual Basic 时 最 初 复 制 到Visual Basic 主目 录 的\Icons 子 目 录、\Graphics 子 目 录、\ODBC 子 目 录 下 的 任 何文 件。 但 除 此 之 外 的 其 它 软 件 一 般 都 不 允 许 你 发 布。 例 如：你 的 应 用 程 序 中 包 含 有 对 网 络 浏 览 器IE 的 引 用， 那 么“ 应用 程 序 安 装 向 导” 在 创 建 你 的 安 装 程 序 时， 就 会 因 试 图 发布 无 权 发 布 的 软 件 而 出 错。 错 误 原 因： 因 为 我 们 无 权 用Visual Basic 的“ 应 用 程 序安 装 向 导” 来 发 布 网 络 浏 览 器IE。 那 么 既 然 我 们 不 能 在VB 的 应 用 程 序 中 发 布 网 络 浏 览器IE， 又 怎 么 样 保 证 应 用 程 序 中 的 引 用 能 得 以 实 现 呢 ？ 解 决 办 法 ①： 如 果 用 户 的 计 算 机 上 已 经 安 装 了 网 络浏 览 器IE， 那 么 直 接 安 装 你 开 发 的 应 用 程 序 即 可。 解 决 办 法 ②： 如 果 用 户 的 计 算 机 上 还 未 安 装 网 络 浏览 器IE， 那 么 只 要 在 运 行 你 的 应 用 程 序 之 前， 安 装 上 网 络浏 览 器IE 即 可。 需 要 说 明 的 是， 上 述 解 决 方 法 具 有 普 遍 性， 如 果 你的 应 用 程 序 在 发 布 时 遇 到 类 似 的 问 题（ 例 如： 你 的 应 用 程序 中 包 含 有 对Word97、Excel 97 的 引 ）， 均 可 照 此 处 理。