vb代码 调用两个以上声音
我想实现调用 事先录好的几段音频。比如要实现“1号车报警”、“2号车报警”声音；我已把文字“1”、“2”、“号车报警”均录成单个音频（1.wav,2.wav,alarm.wav等文件）。
我现在希望的是能帮忙给个简单的例子，怎么能通过编程，比如点击command按钮，就能将1.wav和alarm.wav连着播放出来，实现“1 号车报警”的声音效果
将文件名按先后次序放在数组中，先用 Multimedia MCI 控件播放第一个，它有 PlayCompleted 事件，在这里继续播放下一个。
没有代码，不过同样谢谢你。
我想好了，如下：（可以根据任意数字组合，再加上不同的报警信息，发声了）
窗体： Private Sub Command1_Click()
Dim txt, ar As String
Dim i As Integer
txt = Trim(Me.Text1.Text) 'Text1.Text,可输入任意数字
For i = 1 To Len(txt)
ar = Mid(txt, i, 1)
'Print ar
voc (ar)
Next
haoche (Me.Label1.Caption) 'Me.Label1.Caption可以来源于报警信息
End Sub
模块：
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private fil As String
Public Function voc(ByVal x As String)
Select Case CInt(Trim(x))
Case 1
fil = App.Path & "\1.wav"
PlaySound fil, 0, SND_LOOP
Case 2
fil = "C:\Documents and Settings\Administrat
相关问答：
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
