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
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
