PlaySound这个 API怎么用啊? 谁告诉我`? 告诉我 声明 跟 播放 停止 就行了`谢谢

为何要用PlaySound ? 播.wav ?

我做了个扑克牌游戏`想出牌的时候有声音``没接触过这类`控件或API``CBM666老师指点下``

记住两个.wav之间要隔开, 否则下个一播放 上个即刻终止, 我用下面这段你可以使用.'PlayVoice (VoiceDisk & "再见.wav")'Call DelayCycle(600)'PlayVoice (VoiceDisk & "祝您万事如意.wav")Public Sub PlayVoice(VoiceNm$) If VoiceYn Then If Dir(VoiceNm) <> "" And CanPlay Then wFlags% = SND_ASYNC Or SND_NODEFAULT Call sndPlaySound(VoiceNm, wFlags%) End If End IfEnd SubPublic Sub DelayCycle(Optional Dtm As Long) If Dtm = 0 Then Dtm = 500 StartTm = GetTickCount Do DoEvents Loop Until GetTickCount >= StartTm + DtmEnd Sub

谢谢 CBM666 老师``我研究下``谢谢``

4F 的有一行测试代码忘了拿掉Sub PlayWav(Sname As String) 'SoundName = pathWavFiles & SoundName wFlags% = SND_ASYNC Or SND_NODEFAULT Call sndPlaySound(Sname, wFlags%)End Sub