vb audio virtual cable,VB中如何播放音乐

vb audio virtual cable,VB中如何播放音乐,声明：Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ，ByVal lpstrCo

vb audio，最近不少朋友在找VB中如何播放音乐的相关介绍，兔宝宝游戏网给大家详细的介绍一下，希望对大家有帮助。

1、vb audio virtual cable：

声明：
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
代码：
Dim returnstring As String
FileName As String
returnstring = Space(127)
FileName = "C:\A1.avi"
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
'记着关闭！
erg = mciSendString("close video", returnstring, 127, 0)

如果声音在资源文件内
假设这个声音文件的关键字为"HAHA",先定义一个API函数:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long
注意：必须把的lpszSoundName类型设成Any，不能按照win32api.txt文件中的定义
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
再输入如下代码：
Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
这样就OK了！

2、VB-Audio用管理员程序运行也没办法安装是为什么？：

完成没有任何问题,还包括众多插件也是没有任何问题,...这一类程序必须右键以管理员才能正确运行

总结：以上内容就是针对vb audio virtual cable,VB中如何播放音乐的详细介绍，大家可以参考一下。