英文VB教程 簡體Visual Basic教程 繁體Visual Basic教程

第20課: 音頻文件播放器


在上一課裡,我們已學習了如何編寫一個CD播放器程式。現在,我們把這個程式稍微修改,將CD播放器轉換成音頻文件播放器。此播放器將可以在您的電腦裡搜索Wav 和MIDI文件然后把它們播放。

在這個專案裡,你需要插入一個ComboBox, 一個drivelistbox , 一個dirlistbox ,一個 TextBox 和一個 filelistbox 到您的表單裡(form)。在這裡稍后我們會討論一下上述每個控件的功能。此外,您還必須插入Microsoft多媒體控件( MMControl )在您的表單中,您可選擇使它隱蔽或顯現。在這個程式裡,我選擇使它隱蔽,以便讓我們可以使用命令按鈕來控制播放器。

  • ComboBox- 顯示和選擇不同類型的文件。

  • DriveListBox- 允許您在您的電腦裡選擇不同的驅動器。

  • DirListBox - 顯示目錄

  • TextBox - 顯示選定的文件

  • FileListBox-顯示可用的檔案

我們所編寫的程式代碼需要協調上述所有控件,使該程式可以正常操作。該程式需根據以下的步驟來編寫:

第1步:用戶選擇他想播放的文件類型。
第2步:用戶選擇可能包含有關的音頻文件的驅動器。
第3步:用戶搜索驅動器裡的目錄。所有檔案應顯示在filelistbox裡 。
第4步:用戶從filelistbox選擇文件和點擊播放按鈕。
第5步:用戶按一下就停止,以停止播放和退出按鈕,以結束該應用程式。

音频文件播放器界面

程式代碼

Private Sub Combo1_Change()
'确定文件类型

If ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf ListIndex = 1 Then
File1.Pattern = ("*.mid")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub


Private Sub Dir1_Change()

'改變目錄和子目錄(或文件夾和子文件夾)


File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mid")
Else
File1.Pattern = ("*.*")
End If
End Sub

Private Sub Drive1_Change()

'轉換驅動器

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mid")
Else
File1.Pattern = ("*.*")
End If

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub
 

Private Sub Form_Load()

‘把音频播放器設定位于屏幕中心

Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Combo1.Text = "*.wav"
Combo1.AddItem "*.wav"
Combo1.AddItem "*.mid"
Combo1.AddItem "All files"

End Sub


Private Sub play_Click()

'播放 WaveAudio 文件 或 Midi File文件

Command2_Click
If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = "WaveAudio"
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = "Sequencer"
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = "Open"
AudioPlayer.Command = "Play"

End Sub


Private Sub stop_Click()
If AudioPlayer.Mode = 524 Then Exit Sub
If AudioPlayer.Mode <> 525 Then
AudioPlayer.Wait = True
AudioPlayer.Command = "Stop"
End If
AudioPlayer.Wait = True
AudioPlayer.Command = "Close"
End Sub


❮ 上一课 下一课 ❯



版权所有©2008 Dr.Liew Voon Kiong。保留所有权利 。联系我们: VB面子书

[Privacy Policy]