Question

VB调用音频文件问题

如何在VB中做到点击command播放music.mp3然后按任意键可以停止播放()。

Answer 1

可以考虑使用mmControl控件，但出于简单、绿色考虑，使用API也是一个不错的选择

Private Declare Function mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
  Call mciSendStringA("open " & App.Path & "\music.mp3 type MPEGVideo alias MP3", vbNullString, 0, 0) '打开music.mp3,并命名其假名为MP3.注意类型,若为其他格式请更换类型如Wave
  Call mciSendStringA("play MP3 repeat", vbNullString, 0, 0)  '如果需要重复加上此段
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  Call mciSendStringA("close MP3", vbNullString, 0, 0) '按下任意键停止播放
End Sub

Private Sub Form_Load()
  Me.KeyPreview = True '优先激活窗体的键盘事件
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Call mciSendStringA("close MP3", vbNullString, 0, 0) ' 窗体卸装时停止播放
End Sub

如果还有任何对此API函数有不清楚的地方，可以再追问我，或者百度搜索。另外如果需要源代码，只要提供邮箱，我也可以发到你那去。