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