Question

vb6怎么运行MP3声音文件？

网吧里的收费系统能读声音，会报余额是多少。估计就是录好的声音文件，然后根据钱数运行。

我想知道怎么能让VB6运行指定的MP3文件，再就是程序怎么识别数字是几？
思路明白了。具体怎么播放一个声音文件，例如有个1.wav，运行的代码怎么写？

Answer 1

看过很多关于VB6播放MP3的回答很多是有问题的,一般提供的代码如:
mciSendString "open D:\1.mp3 alias MP3", 0, 0, 0
mciSendString "play mp3 ", 0, 0, 0
但遗憾的是这样的参数只能在播放WAV文件时才能正确执行.所以这个代码其实正确的形式只能是:
1.播放
Private Sub play()
mciSendString "open D:\1.wav alias wav", 0, 0, 0
mciSendString "play wav ", 0, 0, 0
End Sub

2.在执行完播放之后一定要执行停止才能再次重新播放:
Private Sub STOP()
mciSendString "close wav", 0, 0, 0
End Sub
而要正确播放MP3则要把类型 type MPEGVideo 声明正确性了才能执行.具体如下:
Private Sub play_Click()
mciSendString "open D:\1.mp3 type MPEGVideo alias MP3", 0, 0, 0
mciSendString "play mp3 ", 0, 0, 0
End Sub
Private Sub stop_Click()
mciSendString "close MP3", 0, 0, 0
End Sub

Answer 2

没有比这更简单的了：

新建一模块module，写入：
Public Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Function PlaySound(SoundPath As String)
If SE = True Then
Dim SoundFile As String, Result As Long
SoundFile = App.Path & SoundPath
Result = sndPlaySound(SoundFile, 1)
End If
End Function

'-----------------------------
播放的代码:
call PlaySound("C:\test.wav") '"C:\test.wav"是文件路径

Answer 3

根据数字如 “18.27” “2008年”
转换成如下字符串
十八点二七
二千零八年

然后依次截取字符串每一位字符

然后还有十.wav 八.wav 点.wav等等，
明白么？

'有专门的声音播放控件

Microsoft Mutimedia control 6.0