XXXX国产在线播放_久久亚洲国产精品成人AV秋霞_日韩av无码精品人妻系列_国产一区二区精品久久小说_日韩无砖专区一中文字目

　　GIF 動 畫 格 式 文 件 是 一 種 動 態(tài) 存 儲 的 圖 形 格 式 文 件。在 內(nèi) 容 相 同 的 條 件 下， 與 其 它 格 式 文 件 相 比， 由 于 它 占 用的 存 儲 空 間 少， 且 制 作 手 段 成 熟， 可 瀏 覽 的 軟 件 工 具 也 很多， 所 以 倍 受 設(shè) 計(jì) 者 的 青 睞。 然 而 令 人 遺 憾 的 是， 在Visual Basic 中， 無 論 是 多 媒 體 控 件MCI、MCIWnd， 還 是Animation 控 件, 甚至 調(diào) 用Windows API 函 數(shù) 都 無 法 播 放GIF 格 式 的 動 畫 文 件。 造 成這 一 現(xiàn) 象 的 原 因 在 于GIF 動 畫 格 式 文 件 不 是VB 多 媒 體 控 件所 支 持 的 視 頻 格 式 文 件（VB 多 媒 體 控 件 所 支 持 的 視 頻 格 式文 件 主 要 有：AVI 格 式、MOV 格 式、FLI 格 式、FLC 格 式 等）。 以 往我 們 的 解 決 方 法 是： 首 先 利 用 一 些 格 式 轉(zhuǎn) 換 工 具， 比 如GIF Movie Gear 將GIF 格 式 的 動 畫 文 件 轉(zhuǎn) 換 為AVI 格 式 的 動 畫 文 件，然 后 再 用 多 媒 體 控 件MCI 和MCIWnd 進(jìn) 行 播 放。 但 這 種 做 法 主要 存 在 以 下 兩 個 缺 陷： 

　　1 ． 所 形 成 的AVI 格 式 動 畫 文 件 太 大（ 常 常 是GIF 格 式文 件 的 幾 十 倍）， 從 而 影 響 系 統(tǒng) 的 效 率。 

　　2 ． 所 形 成 的AVI 格 式 動 畫 文 件 往 往 帶 有 比 較 復(fù) 雜 的調(diào) 色 板 信 息， 所 以 當(dāng) 程 序 在 播 放 這 種AVI 格 式 動 畫 文 件 時，如 果 還 兼 有 動 態(tài) 顯 示 的 文 字 和 圖 象 信 息， 則 整 個 畫 面 就會 產(chǎn) 生 抖 動 和 閃 爍， 從 而 使 顯 示 效 果 大 受 影 響。 

　　為 解 決 這 個 問 題， 我 們 在 此 提 出 一 個 全 新 的 處 理 方案 ? ? ? 通 過 在VB 中 調(diào) 用IE 瀏 覽 器 來 實(shí) 現(xiàn)GIF 動 畫 的 播 放，實(shí) 際 使 用 表 明： 效 果 甚 好。 

　　一、 瀏 覽 器IE 和WebBrowser 控 件 

　　眾 所 周 知， 運(yùn) 行VB6.0 需 要 安 裝 瀏 覽 器IE4.0 或 以 上 版本， 當(dāng)IE4.0 和VB6.0 安 裝 完 成 后， 我 們 便 可 以 在VB6.0 中 使 用IE 所 提 供 的WebBrowser 控 件 播 放GIF 動 畫 了。 具 體 方 法 如 下： 

　　1 ． 由 于WebBrowser 控 件 并 不 是VB 的 基 本 控 件， 因 此 在使 用 該 控 件 之 前 必 須 先 將 其 裝 入 工 具 箱 中。 裝 入 方 法： 在工 具 箱 中 點(diǎn) 擊 鼠 標(biāo) 右 鍵 → 選 中“ 部 件” → 復(fù) 選Microsoft Internet Controls → 然 后 點(diǎn) 擊“ 確 定” 鍵 即 可。 

　　2 ． 選 取WebBrowser 控 件（ 注 意 不 同 版 本IE 的WebBrowser 控件 的 圖 標(biāo) 是 不 同 的，IE4.0 中 的WebBrowser 控 件 的 圖 標(biāo) 是 一 個地 球；IE3.0 是 一 個 搜 索 圖 標(biāo)。）， 添 加 到 窗 體 的 相 應(yīng) 位 置 上。 

　　3 ． 設(shè) 計(jì) 相 應(yīng) 代 碼， 通 過 使 用WebBrowser 控 件 的Navigate 方 法 播 放GIF 動 畫 文 件。 

　　Navigate 方 法 的 語 法 格 式 為： 
 

　 WebBrowser 控 件 名.Navigate URL 
[Flags,][TargetFrameName,][PostData,][Headers] 

　　WebBrowser 控 件 支 持 的 主 要 方 法 有: 
 

GoBack ? ? ? 回 退 到 上 一 屏。 
GoForward ? ? ? 進(jìn) 入 到 下 一 屏。 
GoHome ? ? ? 回 家。 即 回 到 主 頁。 
Stop ? ? ? 停 止 導(dǎo) 航。 
Refresh ? ? ? 刷 新。 
Navigate ? ? ? 導(dǎo) 航。 

　　WebBrowser 控 件 所 響 應(yīng) 的 事 件: 

　　BeforeNavigate 事 件 ? ? ? 在 開 始 導(dǎo) 航 前 發(fā) 生。 一 般 在此 獲 取 完 整 的URL 字 符 串。 

　　WebBrowser 控 件 最 主 要 的 參 數(shù): 

　　URL ? ? ? 獲 得 導(dǎo) 航 用 的 標(biāo) 準(zhǔn)URL 字 符 串。 例 如： 它 能將”www.MicroSoft.Com” 自 動 翻 譯 為”http:// www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 縮 寫， 是 在Internet 的WWW 服 務(wù) 程 序 上用 于 指 定 信 息 位 置 的 表 示 方 法。 

　　下 面 我 們 結(jié) 合 一 個 實(shí) 例 進(jìn) 行 具 體 說 明。 這 是 一 個“ 畫 中 畫” 滾 動 顯 示 應(yīng) 用 程 序， 界 面 由 循 環(huán) 滾 動 顯 示 的 文 字、背 景 圖 象、 和 播 放 的GIF 動 畫 三 部 分 組 成。 其 中 循 環(huán) 顯 示 的文 字 用 透 明 的Label 控 件 實(shí) 現(xiàn)； 動 畫 用WebBrowser 控 件 實(shí) 現(xiàn) 播放。 

　?、?所 需 控 件： 

　　本 程 序 需 要 一 個PictureBox 控 件、 一 個Label 控 件、 一 個WebBrowser 控 件、 一 個Timer 控 件。 

　　② 各 控 件 的 屬 性 設(shè) 置 如 下： 
 

控件名稱　　 屬性　　　設(shè)置值　　含　 義 
Label1控件 BackStyle　0　設(shè)置Label1控件的背景是透明的。 
Timer1控件 Interval　200　設(shè)置每0.2秒發(fā)生一次Timer1_Timer()事件。 

　?、?各 事 件 的 相 應(yīng) 代 碼 如 下： 

首 先 定 義 一 個 變 量， 以 便 用 它 來 存 放 需 要 滾 動 顯 示 的字 符 串。 

Dim aa As String 

在Form_Load() 事 件 中 進(jìn) 行 初 始 化 工 作， 具 體 代 碼 如 下： 

Private Sub Form_Load() 
　 Picture1.Picture = LoadPicture(App.Path & "\demo1.jpg") 
　 WebBrowser1.Navigate (App.Path & "\new1.gif") 

　　aa = " 這 是 一 個 利 用 網(wǎng) 絡(luò) 瀏 覽 器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()事件中，卸載并退出應(yīng)用程序。 
Private Sub Picture1_Click() 
　　Unload Me 
End Sub 

　　④ 調(diào) 整 各 控 件 至 適 當(dāng) 的 大 小 和 位 置。 

　　二、 注 意 事 項(xiàng) 及 附 加 說 明 

　　1 ． 不 同 版 本IE 的Microsoft Internet Controls 所 包 含 的 控件 及 控 件 數(shù) 量 是 不 同 的。 設(shè) 計(jì) 者 在 使 用 時 必 須 注 意 這 一點(diǎn)。 

　?、?WINDOWS95 所 帶 的IE3.0 的Microsoft Internet Controls 只 包含 一 個 控 件， 即WebBrowser 控 件。 

　?、?中 文 版IE4.0CN 的Microsoft Internet Controls 包 含 兩 個 控件， 即WebBrowser 控 件 和DownUp 控 件。 

　?、?英 文 版IE4.01 的Microsoft Internet Controls 包 含 兩 個 控件， 即WebBrowser 控 件 和ShellFolderViewOC 控 件。 

　　2 ． 實(shí) 際 上， 在VB5.0 中 也 可 以 使 用WebBrowser 控 件 播 放GIF 動 畫， 但 如 果VB5.0 是 安 裝 在WINDOWS95 下， 那 么 必 須 安 裝IE3.0 或IE4.0； 如 果 是 安 裝 在WINDOWS98 下， 則 可 不 必（ 因 為WINDOWS98 自 帶IE4.0）。 然 而 需 要 特 別 聲 明 的 是： 無 論 是VB5.0 的 聯(lián) 機(jī) 手冊， 還 是 其 它 幫 助 文 件， 均 未 介 紹 有 關(guān)WebBrowser 控 件 的 資料（ 因 為WebBrowser 控 件 不 是Visual Basic 的 控 件， 而 是 由IE 提 供的。）。 讀 者 如 要 詳 細(xì) 了 解 這 方 面 的 情 況， 請 查 閱Visual Studio 98 中 的MSDN。 具 體 步 驟 如 下： 

　　從Microsoft Developer Network 中 選 擇MSDN Library Visual Studio 6.0, 查 找 關(guān) 于Reusing the WebBrowser Control 的 主 題， 位 置 在Internet Explorer:Platfrom SDK。 從 哪 可 以 找 到 有 關(guān)WebBrowser 控 件 的 詳 盡資 料。 

　　3 ． 注 意 你 的 發(fā) 布 權(quán) 限。 由 于 受 到 軟 件 知 識 產(chǎn) 權(quán) 的影 響， 任 何 軟 件 都 有 它 的 發(fā) 行 權(quán) 限。 在Visual Basic 中, 你 可以 自 由 地 發(fā) 布 任 何 由Visual Basic 創(chuàng) 建 的 應(yīng) 用 程 序、 部 件、DLL、Active X 控 件、 各 種 媒 體 文 件、 示 例 應(yīng) 用 程 序（ 在\Samples 子 目 錄 下）以 及 系 統(tǒng) 第 一 次 安 裝Visual Basic 時 最 初 復(fù) 制 到Visual Basic 主目 錄 的\Icons 子 目 錄、\Graphics 子 目 錄、\ODBC 子 目 錄 下 的 任 何文 件。 但 除 此 之 外 的 其 它 軟 件 一 般 都 不 允 許 你 發(fā) 布。 例 如：你 的 應(yīng) 用 程 序 中 包 含 有 對 網(wǎng) 絡(luò) 瀏 覽 器IE 的 引 用， 那 么“ 應(yīng)用 程 序 安 裝 向 導(dǎo)” 在 創(chuàng) 建 你 的 安 裝 程 序 時， 就 會 因 試 圖 發(fā)布 無 權(quán) 發(fā) 布 的 軟 件 而 出 錯。 

　　錯 誤 原 因： 因 為 我 們 無 權(quán) 用Visual Basic 的“ 應(yīng) 用 程 序安 裝 向 導(dǎo)” 來 發(fā) 布 網(wǎng) 絡(luò) 瀏 覽 器IE。 

　　那 么 既 然 我 們 不 能 在VB 的 應(yīng) 用 程 序 中 發(fā) 布 網(wǎng) 絡(luò) 瀏 覽器IE， 又 怎 么 樣 保 證 應(yīng) 用 程 序 中 的 引 用 能 得 以 實(shí) 現(xiàn) 呢 ？ 

　　解 決 辦 法 ①： 如 果 用 戶 的 計(jì) 算 機(jī) 上 已 經(jīng) 安 裝 了 網(wǎng) 絡(luò)瀏 覽 器IE， 那 么 直 接 安 裝 你 開 發(fā) 的 應(yīng) 用 程 序 即 可。 

　　解 決 辦 法 ②： 如 果 用 戶 的 計(jì) 算 機(jī) 上 還 未 安 裝 網(wǎng) 絡(luò) 瀏覽 器IE， 那 么 只 要 在 運(yùn) 行 你 的 應(yīng) 用 程 序 之 前， 安 裝 上 網(wǎng) 絡(luò)瀏 覽 器IE 即 可。 

　　需 要 說 明 的 是， 上 述 解 決 方 法 具 有 普 遍 性， 如 果 你的 應(yīng) 用 程 序 在 發(fā) 布 時 遇 到 類 似 的 問 題（ 例 如： 你 的 應(yīng) 用 程序 中 包 含 有 對Word97、Excel 97 的 引 ）， 均 可 照 此 處 理。 
程 序 名：Sec-Time.vbp 
程序類別：完整的VB程序 
功 能：顯示一個動畫時鐘，該時針隨著每一秒而動態(tài)變化。 

程序說明 

　　1．如何畫時鐘表盤上的所有直線元素？ 
　　用Load命令建立原始Line控制的14個拷貝(因?yàn)楸肀P有12個點(diǎn)和時、分、秒共15個Line)，該控制數(shù)組每一個實(shí)例的端點(diǎn)坐標(biāo)屬性設(shè)置為每條線在時鐘表盤上的適當(dāng)位置。這些拷貝中大多數(shù)只放置一次，而3個Line控制每秒鐘更新一次，產(chǎn)生時鐘指針移動的感覺。 
　　注意：在應(yīng)用程序代碼中并沒有直接擦除任何一條線。當(dāng)我們改變每一個Line控制的端點(diǎn)時，每一根針在移動時擦除和重畫的所有技術(shù)工作都由VB來處理。 

　　2．如何修改時針的形狀？ 
　　通過調(diào)整代碼中的屬性設(shè)置，可以改變時鐘的形狀。例如:通過改變每一個Line控制的Borderwidth屬性設(shè)置，可以建立更細(xì)或更粗的線。 

　　3．計(jì)時器的Interval(間距)屬性設(shè)置 
　　計(jì)時器的Interval屬性設(shè)置為100，即為1/10秒。 

程序的編寫與執(zhí)行 

　　（1）新建工程 
　　先新建一個工程（工程類型為標(biāo)準(zhǔn)EXE），然后用“工具箱”中的工具加入一個Timer1（計(jì)時器）和line1（直線），其index（指針）分別設(shè)置為空和0。然后雙擊Form1窗體，輸入源代碼。 

　　（2）程序源代碼 
　　Option Explicit 
　　DefDbl A-Z 
　　Private Sub Form_Load() 
　　timer1.Interval = 100 
　　Width = 4000 
　　Height = 4000 
　　Left = Screen.Width \ 2 - 2000 
　　Top = (Screen.Height - Height) \ 2 
　　End Sub 
　　Private Sub Form_Resize() 
　　Dim i, Angle 
　　Static flag As Boolean 
　　If flag = False Then 
　　　 flag = True 
　　For i = 0 To 14 
　　’畫出表盤12個點(diǎn)和時、分、秒共15個LINE 
　　　　If i > 0 Then Load Line1(i) 
　　　　Line1(i).Visible = True 
　　　　Line1(i).BorderWidth = 5 
　　　　Line1(i).BorderColor = RGB(0, 128, 0) ’設(shè)置LINE的粗細(xì)和顏色 
　　　　Next i 
　　　End If 
　　For i = 0 To 14 
　　　　Scale (-1, 1)-(1, -1) 
　　　　Angle = i * 2 * Atn(1) / 3 
　　　　Line1(i).X1 = 0.9 * Cos(Angle) 
　　　　Line1(i).Y1 = 0.9 * Sin(Angle) 
　　　　Line1(i).X2 = Cos(Angle) 
　　　　Line1(i).Y2 = Sin(Angle) 
　　　　Next i 
　　　End Sub 
　　Private Sub timer1_Timer() 
　　Const HH = 0 
　　Const MH = 13 
　　Const SH = 14 
　　Dim Angle 
　　Static LS 
　　If Second(Now) = LS Then Exit Sub 
　　LS = Second(Now) 
　　Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))’設(shè)置時針 
　　Line1(HH).X1 = 0 
　　Line1(HH).Y1 = 0 
　　Line1(HH).X2 = 0.3 * Cos(Angle) 
　　Line1(HH).Y2 = 0.3 * Sin(Angle) 
　　Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))’設(shè)置分針 
　　Line1(MH).X1 = 0 
　　Line1(MH).Y1 = 0 
　　Line1(MH).X2 = 0.7 * Cos(Angle) 
　　Line1(MH).Y2 = 0.7 * Sin(Angle) 
　　Angle = 0.5236 * (75 - Second(Now)) 
　　’設(shè)置秒針 
　　Line1(SH).X1 = 0 
　　Line1(SH).Y1 = 0 
　　Line1(SH).X2 = 0.8 * Cos(Angle) 
　　Line1(SH).Y2 = 0.8 * Sin(Angle) 
　　form1.Caption = Str(Now()) 
　　'窗口顯示精確的日期和數(shù)字化的時間 
　　End Sub 

　?。?）程序的編譯和執(zhí)行 
　　點(diǎn)擊VB“運(yùn)行”菜單中的“啟動”或“全面編譯”命令，即可對程序編譯并運(yùn)行！ 
　　注：上述程序在中文Windows 98和 VB5.0中文企業(yè)版下調(diào)試通過。