请教vb6.0播放声音的问题

来源：百度知道 编辑：UC知道 时间：2024/06/28 06:33:03
想做一个能够报数字的程序，就像网吧里的上网控制软件那样，找钱的时候会自动读出钱数来。
从网上找了几上小软件，能够录音乐，想知道VB6怎么播放出MP3声音文件来。

方法太多了。可以用控件，可以用API，等等。给你个背景音乐的吧：
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub 音乐()
Dim Res As Integer, Ret As String * 1024
If blnBaojing = False Then Exit Sub
'Res = mciSendString("play " & APPPATH & "Shili.wav from 3000 to 8000", Ret, 1024, 0)
Res = mciSendString("play " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放

End Sub

Public Sub 停止播放()
Dim Res As Integer, Ret As String * 1024
Res = mciSendString("STOP " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放
Res = mciSendString("close all", Ret, 1024, 0)
End Sub

看过很多关于VB6播放MP3的回答很多是有问题的,一般提供的代码如:
mciSendString "open D:\1.mp3 alias MP3", 0, 0, 0
mciSendString "pla