您现在的位置是： 软件 > 开发者网络 > 正文

·速成电脑精英（包分配）白领高薪一族从这里开始
T O P 排 行 - Java套接字编程（下） - MediaStudio Pro 6.5教程 - 三款卸载软件最新试用 - 基于Visual C++的Winsock API研究 网 校 热 门		如何在 VB 中播放声音文件 2000-10-11· ·不详··vb中文网 Sub PlayWav(SoundName As String) Dim tmpSoundName As String Dim wFlags%， X% ， 声明语句部分 (请置于模块中) ，********************************** ，#If Win32 Then ，Public Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String， ByVal uFlags As Long) ，#Else ，Public Declare Function sndPlaySound% Lib "mmsystem.dll" (ByVal lpszSoundName As String， ByVal uFlags As Integer) ，#End If ，WIN32 ， ********************************** ， WAV Sound values ，Global Const SND_SYNC = &H0 ，Global Const SND_ASYNC = &H1 ，Global Const SND_NODEFAULT = &H2 ，Global Const SND_LOOP = &H8 ，Global Const SND_NOSTOP = &H10 ， ********************************** ， *** pathWavFiles 是声音文件存放的路径 tmpSoundName = pathWavFiles & SoundName wFlags% = SND_ASYNC Or SND_NODEFAULT X% = sndPlaySound(tmpSoundName， wFlags%) End Sub 【责任编辑：】 【发表评论】【关闭窗口】 ■ 相关内容 　具有复读功能的播放器多媒体 　播放声音文件 　VQF音乐播放软件大检阅 感谢 访问天极网，如果您觉得该文章涉及版权问题，请看这里！