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
相关问答：
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
