利用vb實(shí)現(xiàn)多媒體播放器(編輯修改稿)
2025-07-14 00:41 本頁面
【文章內(nèi)容簡(jiǎn)介】 e As ) Handles If Me . = 526 Then = True Else = False End If End Sub 雙擊 Timer 控件，添加如下代碼： Private Sub Timer1_Tick( ByVal sender As , ByVal e As ) Handles 39。 更新狀態(tài)欄 Me . = CD 共有曲目 amp。 Me . amp。 首 Me . = 現(xiàn)在正在播放第 amp。 Me . amp。 首 End Sub 雙擊 Form 窗體，進(jìn)入代碼編輯界面，添加如下代碼： 39。 判斷用戶雙擊的區(qū)域是否在列表項(xiàng)上 Dim flag As Boolean = False Private Sub Form1_Load( ByVal sender As , ByVal e As ) Handles MyBase .Load Me .FormBorderStyle = Me .MaximizeBox = False = False = False 39。 設(shè)置設(shè)備類型 = CDAudio Me . = 等待 Me . = 請(qǐng)放入 CD 并加載 End Sub 然后在代碼編輯窗口的右上下拉菜單中， 選擇“ Closing ”，添加如下代碼： Private Sub Form1_Closing( ByVal sender As Object , ByVal e As ) Handles MyBase .Closing = Stop = Close39。 End Sub ? 運(yùn)行 完成代碼后，保存文件，并按 F5 調(diào)試運(yùn)行，放入一張 CD 到 CDROM 中，運(yùn)行的結(jié)果如圖： 實(shí)驗(yàn)4 視頻播放器 在這一例中，我們將利用 MCI 控件制作一個(gè)播放視頻文件的程序，程序具備以下功能： 具有播放視頻文件的能力。 選擇并打開將播放的文件。 播放文件，具備 Play （播放）、 Stop （停止）等常見的播放功能。 有進(jìn)度條指示目前的播放進(jìn)度。 具備被循環(huán)播放功能。 具備靜音功能。 1. 添加控件 新建一個(gè) Windows 應(yīng)用程序，把 Form1 的“ Text ”屬性改為“ MediaPlayer ”。 添加一個(gè) MainMenu 控件，選中控件 MainMenu1 ，點(diǎn)擊鼠標(biāo)右鍵，在彈出的菜單里選擇“編輯菜單”進(jìn)入菜單編輯窗口，如圖： 選中 MenuItem1 ，點(diǎn)擊鼠標(biāo)右鍵，選擇“新插入”，共插入 3 個(gè) MenuItem ，它的屬性如下表： 控件類別 控件名稱 屬性 設(shè)置結(jié)果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 打開 MenuItem3 Text 退出 添加一個(gè) PictureBox 控件，把 Name 屬性改為“ Picture1 ”，用于顯示播放的畫面。 添加一個(gè) MMControl 控件，用于實(shí)現(xiàn)播放的各種功能。把 Name 屬性改為“ MCIControl ”，所有按鈕的 Enable 屬性都設(shè)為“ True ”?？赏ㄟ^如下的方法設(shè)置按鈕的屬性： 選中 Form1 上的 MMControl 控件， 點(diǎn)擊鼠標(biāo)右鍵，在彈出的菜單里選擇“ ActiveX – 屬性” , 點(diǎn)擊“控件”選項(xiàng)，然后把需要用到的控件設(shè)置為“可視”，其它設(shè)置為“隱藏”，如圖所示： 添加一個(gè) TrackBar 控件，用于控制和指示播放的進(jìn)度。 添加一個(gè) CheckBox 控件， Name 屬性為“ CheckBox1 ”，把 Text 屬性改為“靜音”，用于實(shí)現(xiàn)靜音功能。 添加一個(gè) CheckBox 控件， Name 屬性為“ CheckBox2 ”，把 Text 屬性改為“循環(huán)”，用于實(shí)現(xiàn)循環(huán)播放的功能。 添加一個(gè) OpenFileDialog 控件，用于顯示打開對(duì)話框。 MMControl 控件通常不在“工具欄”里，可以通過 點(diǎn)擊菜單欄上的“工具”→“添加 / 移除工具箱項(xiàng)” ，在 COM 組件里找到“ Microsoft Multimedia Control ”項(xiàng)，選中然后確定即可。如圖： 添加控件完畢后的界面如圖： ? 添加代碼 雙擊“打開”菜單，添加如下代碼： 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( 請(qǐng)選擇文件 ) End If End Sub 雙擊“退出”菜單，添加如下代碼： Private Sub MenuItem3_Click( ByVal sender As , ByVal e As ) Handles Me . = Stop Me . = Close Me .Close() End Sub 雙擊 MMControl 控件， 在代碼編輯窗口的右上的下拉菜單中，選擇“ StatusUpdate ”，如圖： 添加如下代碼 Private Sub MCIControl_StatusUpdate( ByVal sender As Object , ByVal e As ) Handles If Me . Then 39。 如果復(fù)選了 靜音 框 Me . = True 39。 無聲播放 Else Me . = False 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。 如果到了文件末尾 Me . = prev Me . = Stop 39。 返回文件頭 If Me . Then Me . = play 39。 如果復(fù)選了“循環(huán)”框，開始重新播放 End If End If End Sub 在代碼編輯窗口的右上的下拉菜單中，選擇“ StopClick ” , 添加如下代碼： Private Sub MCIControl_StopClick( ByVal sender As Object , ByVal e As ) Handles Me . = Stop Me . = Prev Me . = Stop End Sub End Class 雙擊 TrackBar 控件，添加如下代碼 ： Private Sub TrackBar1_Scroll( ByVal sender As , ByVal e As ) Handles If Me . = True Then Me . = Me . 39。 響應(yīng)進(jìn)度條的拖動(dòng) End If End Sub ? 運(yùn)行 完成代碼后，保存文件，并按 F5 調(diào)試運(yùn)行，打開一個(gè)視
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1