多媒體技術(shù)與應(yīng)用教程第10章：visualbasic多媒體程序設(shè)計(jì)(編輯修改稿)
2025-03-23 14:13 本頁面
【文章內(nèi)容簡介】 命令按鈕的單擊事件中輸入如下代碼： ? Private Sub Command1_Click() ? Dim plays As Long ? plays = sndPlaySound(G:\調(diào)節(jié)音量 \21秒音樂.WAV, H0) ? End Sub ? 運(yùn)行時(shí)單擊命令按鈕即可播放 WAV文件。 在 Visual Basic程序中使用視頻 ? 視頻信號(hào)處理 ? 多媒體 MCI控件 ? 使用 OLE控件播放視頻文件 視頻信號(hào)處理 ? 視頻信號(hào)的處理原則是： ? 盡量截取重要內(nèi)容，省略多余部分，以便減少數(shù)據(jù)量。 ? 采用 AVI文件格式保存視頻信號(hào)。 ? 充分考慮多媒體產(chǎn)品存儲(chǔ)介質(zhì)的容量，確定使用視頻文件的數(shù)量。 多媒體 MCI控件 ? 在 Visual Basic語言中，使用 MCI控件播放視頻文件可以通過定義播放區(qū)域播放，也可以不定義播放區(qū)域，系統(tǒng)會(huì)自動(dòng)打開一個(gè)播放窗口進(jìn)行播放。 1. 不定義播放區(qū)域 ? 具體操作步驟如下： ? (1) 通過菜單在工具箱中添加 MMC控件。 ? (2) 設(shè)置對象屬性：將表單保持自動(dòng)命名，將其Caption屬性修改為【播放視頻】。 ? (3) 輸入程序。 ? (4) 運(yùn)行程序，存盤后運(yùn)行程序，出現(xiàn)視頻影片，單擊播放按鈕，開始播放影片。 多媒體 MCI控件 2. 定義播放區(qū)域 ? 具體步驟如下： ? (1) 通過菜單在工具箱中添加 MMC控件。 ? (2) 建立視頻播放對象 ——首先利用工具箱中的MMControl工具建立一個(gè)播放視頻信號(hào)的對象。該對象被自動(dòng)命名為“ MMControl”。 ? (3) 使用工具箱中的 PictureBox工具，建立一個(gè)播放視頻信號(hào)的區(qū)域，該區(qū)域被自動(dòng)命名為 Picturel。 ? (4) 編寫程序。程序中主要包括以下幾個(gè)部分： ? ① 控制按鈕處理 —— 建立對象后，產(chǎn)生一組控制按鈕，按鈕的個(gè)數(shù)和功能與播放聲音時(shí)相同。如果希望隱藏按鈕，則在程序中定義包括“播放”在內(nèi)的多種控制功能，并應(yīng)把各按鈕的 Visible屬性設(shè)置成False。 多媒體 MCI控件 ? ② 定義視頻播放 —— 用 =AVIVideo語句把播放類型定義為視頻信號(hào)，該語句非常重要，否則MCI控件無法播放視頻信號(hào)。 ? ③ 指定播放文件 —— 用 =路徑文件名 語句指定文件路徑和名字。 ? ④ 定義視頻播放區(qū)域 ——用= Picture1區(qū)域定義在播放視頻信號(hào)的區(qū)域。 ? ⑤ 控制視頻文件 ——可使用=Open語句打開視頻文件，至于播放或其他控制可使用 =命令參數(shù)語句發(fā)出播放或其他命令。 使用 OLE控件播放視頻文件 ? 使用 OLE控件播放 AVI格式的視頻文件時(shí)，將自動(dòng)打開一個(gè)播放窗口播放視頻信號(hào)。 ? 首先用 OLE工具創(chuàng)建一個(gè)矩形。在隨后顯示的 Insert Object畫面中，選中【建立文件關(guān)聯(lián)】復(fù)選框，再單擊 Browse按鈕，找到需要運(yùn)行的視頻文件。選中【鏈接】和【顯示為圖標(biāo)】兩個(gè)復(fù)選框，使其有效。最后單擊 OK按鈕，在窗口中將出現(xiàn) OLE圖標(biāo)和視頻文件名。 在 Visual Basic程序中調(diào)用電子幻燈片 ? 電子幻燈片 ? 建立連接 電子幻燈片 ? 通常，電子幻燈片的默認(rèn)保存類型是“演示文稿”，文件擴(kuò)展名為“ .ppt”。如果用鼠標(biāo)雙擊該文件，則啟動(dòng) PowerPoint軟件，自動(dòng)進(jìn)入幻燈片的編輯狀態(tài)。為了和 Visual Basic多媒體程序相鏈接，電子幻燈片的保存類型應(yīng)改為“ PowerPoint放映”方式，對應(yīng)的文件擴(kuò)展名是“ .pps”。用鼠標(biāo)雙擊該格式文件時(shí)，不進(jìn)入 PowerPoint編輯狀態(tài)，而是直接進(jìn)行演示。 ? 電子幻燈片的存放地點(diǎn)應(yīng)相對固定在硬盤的某個(gè)邏輯區(qū)中，文件夾和文件名也不應(yīng)變更，否則 Visual Basic多媒體程序?qū)⒄也坏诫娮踊脽羝募? 建立連接 1. 建立方法 ? 建立連接的具體操作步驟如下： ? (1) 選擇工具箱中的 OLE工具，在窗口界面上畫一個(gè)矩形，隨后顯示插入對象畫面。 ? (2) 在畫面中，選擇【由文件創(chuàng)建】單選按鈕，然后單擊 Browse按鈕，找到一個(gè)電子幻燈片文件。再選擇【鏈接】和【顯示為圖標(biāo)】兩個(gè)復(fù)選框，使其有效。最后單擊 OK按鈕。在窗口界面上隨之出現(xiàn) OLE圖標(biāo)和對應(yīng)的電子幻燈片文件名。 ? (3) 運(yùn)行程序時(shí)，用鼠標(biāo)雙擊 OLE圖標(biāo)即可啟動(dòng)對應(yīng)的電子幻燈片文件，并進(jìn)入演示狀態(tài)。在電子幻燈片演示結(jié)束或者按 Esc鍵后，返回程序狀態(tài)。 其他實(shí)例 ? 調(diào)節(jié)音量 ? 用 Visual Basic設(shè)計(jì) VCD播放器 ? 只播放一幀 調(diào)節(jié)音量 ? 本例通過 API調(diào)用來實(shí)現(xiàn)對揚(yáng)聲器音量的控制。 具體操作步驟如下： (1) 單擊【文件】 |【新建工程】命令，創(chuàng)建一個(gè)新工程。 (2) 在窗體上添加 8個(gè)命令控件和一個(gè)標(biāo)簽控件，整體布局如圖 。 圖 調(diào)節(jié)音量 (3) 設(shè)置對象屬性，將 Form1的 Caption屬性改為【調(diào)節(jié)音量】； Command1至 Command8的 Caption屬性分別設(shè)置為【靜】、【左】、【右】、【雙】、【 +】 、【 】、【恢復(fù)】、【退出】； Label1的 Caption屬性設(shè)置為空白。 (4) 編寫事件處理程序。 雙擊窗體，打開代碼窗口，輸入以下程序： Private Declare Function sndPlaySound Lib Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Declare Function waveOutGetVolume Lib (ByVal uDeviceID As Long, lpdwVolume As Long) As Long 調(diào)節(jié)音量 Private Declare Function waveOutSetVolume Lib (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Dim savVol Private Sub Command1_Click() i = waveOutSetVolume(0, 0) End Sub Private Sub Command2_Click() i = waveOutSetVolume(0, HFF00) End Sub Private Sub Command3_Click() i = waveOutSetVolume(0, HFF) End Sub 調(diào)節(jié)音量 Private Sub Command4_Click() i = waveOutSetVolume(0, HFF
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1