【正文】 Sub 雙擊“停止”按鈕，添加如下代碼： Private Sub Button3_Click( ByVal sender As , ByVal e As ) Handles Me . = Stop Me . = Prev Me . = Stop End Sub 運(yùn)行 完成代碼后，保存文件，并按 F5 調(diào)試運(yùn)行，打開音樂文件（ *.mp3 ），可以同時打開多個文件，在列表框?qū)⒊霈F(xiàn)所選擇的文件列表，雙擊任意一首歌曲，就能進(jìn)行播放，運(yùn)行結(jié)果如圖所示： 實(shí)驗3 CD 播放器 1. 添加控件 新建一個 Windows 應(yīng)用程序，把 Form1 的“ Text ”屬性改為“ CDPlayer ”。 選中 MenuItem1 ，點(diǎn)擊鼠標(biāo)右鍵，選擇“新插入”，共插入 4 個 MenuItem ，它的屬性如下表： 添加一個 StatusBar 控件，把 ShowPanels 屬性設(shè)為“ True ”，再添加兩個 StatusBarPanel ，并講它們的 Alignment 屬性都改為“ Center ”， AutoSize 屬性都改為“ Spring ”。 添加一個 MMControl 控件，把 Name 屬性改為“ MCIControl ”，所有按鈕的 Enable 屬性都設(shè)為“ True ”。如圖： 添加控件完畢后的界面如圖： ? 雙擊 ListBox 控件，添加如下代碼： Private Sub Tracks_SelectedIndexChanged( ByVal sender As , ByVal e As ) Handles flag = True End Sub 在代碼編輯窗口的右上下拉菜單中，選擇 DoubleClick ，如圖： 然后添加如下代碼： Private Sub Tracks_DoubleClick( ByVal sender As Object , ByVal e As ) Handles 39。 選取豪秒作為時間單位 Me . = 0 Me . = 1 39。 將所有曲目列于表中 For i = 1 To (track amp。 更新狀態(tài)欄 Me . = CD 共有曲目 amp。 首 Me . = 現(xiàn)在正在播放第 amp。 首 End Sub 雙擊 Form 窗體，進(jìn)入代碼編輯界面，添加如下代碼： 39。 設(shè)置設(shè)備類型 = CDAudio Me . = 等待 Me . = 請放入 CD 并加載 End Sub 然后在代碼編輯窗口的右上下拉菜單中， 選擇“ Closing ”，添加如下代碼： Private Sub Form1_Closing( ByVal sender As Object , ByVal e As ) Handles MyBase .Closing = Stop = Close39。 ? 在這一例中，我們將利用 MCI 控件制作一個播放視頻文件的程序，程序具備以下功能： 1. 添加控件 新建一個 Windows 應(yīng)用程序，把 Form1 的“ Text ”屬性改為“ MediaPlayer ”。 選中 MenuItem1 ，點(diǎn)擊鼠標(biāo)右鍵，選擇“新插入”，共插入 3 個 MenuItem ，它的屬性如下表： 控件類別 控件名稱 屬性 設(shè)置結(jié)果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 打開 MenuItem3 Text 退出 添加一個 MMControl 控件，用于實(shí)現(xiàn)播放的各種功能。可通過如下的方法設(shè)置按鈕的屬性： 選中 Form1 上的 MMControl 控件， 點(diǎn)擊鼠標(biāo)右鍵，在彈出的菜單里選擇“ ActiveX – 屬性” , 點(diǎn)擊“控件”選項，然后把需要用到的控件設(shè)置為“可視”，其它設(shè)置為“隱藏”，如圖所示： 添加一個 CheckBox 控件， Name 屬性為“ CheckBox1 ”，把 Text 屬性改為“靜音”，用于實(shí)現(xiàn)靜音功能。 添加一個 OpenFileDialog 控件，用于顯示打開對話框。如圖： 添加控件完畢后的界面如圖： 添加代碼 雙擊“打開”菜單，添加如下代碼： Dim FileName As String Private Sub MenuItem2_Click( ByVal sender As , ByVal e As ) Handles With Me .OpenFileDialog1 .Title = 打開視頻文件 .Filter = 視頻文件（ *.avi)|*.avi|(*.mpg)|*.mpg|(*.mpeg)|*.mpeg .ShowDialog() FileName = .FileName End With If FileName Then Me . = True Me . = FileName Me . = Me . Me . = Open Me . = 0 Me . = Me . Else MsgBox( 請選擇文件 ) End If End Sub 如果復(fù)選了 靜音 框 Me . = True 39。 正常播放 End If Me . = Me . End Sub 在代碼編輯窗口的右上的下拉菜單中，選擇“ Done ” , 添加如下代碼： Private Sub MCIControl_Done( ByVal sender As Object , ByVal e As ) Handles If Me . = Me . Then 39。 返回文件頭 If Me . Then Me . = play 39。 雙擊 TrackBar 控件，添加如下代碼 ： Private Sub TrackBar1_Scroll( ByVal sender As , ByVal e As ) Handles If Me . = True Then Me . = Me . 39。 ? 實(shí)驗5 Flash 動畫播放器 本例介紹如何使用 ShockWaveFlash 控件來制作 Flash 動畫播放器的。 Play ：播放。 Stop ：停止播放。 StopPlay ：停止播放當(dāng)前的播放文件，以能播放新的動畫。 Movie 屬性：設(shè)置播放的文件路徑。 Loop 屬性：設(shè)置該屬性為 Ture ，表示循環(huán)播放。 CurrentFrame 屬性：當(dāng)前幀。 TotalFrames 屬性：動畫總的幀數(shù)。 1. 添加控件 新建一個 Windows 應(yīng)用程序，把 Form1 的“ Text ”屬性改為“ FlashPlayer ”。 添加一個 MainMenu 控件，選中控件 MainMenu1 ，點(diǎn)擊鼠標(biāo)右鍵，在彈出的菜單里選擇“編輯菜單”進(jìn)入菜單編輯窗口，如圖： 點(diǎn)擊鼠標(biāo)右鍵，選擇“新插入”，共插入 9 個 MenuItem ，它的屬性如下表 控件類別 控件名稱 屬性 設(shè)置結(jié)果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 打開文件 MenuItem3 Text 播放列表 MenuItem4 Text MenuItem5 Text 退出程序 MenuItem6 Text 控制 MenuItem7 Text 繼續(xù)播放 MenuItem8 Text 暫停播放 MenuItem9 Text 添加一個 Timer 控件，把 Interval 屬性改為“ 100 ”。 添加一個 Label 控件，把 Text 屬性改為“播放狀態(tài)顯示”。如果在“工具箱”中未找到