VB 程序设计
利用API函数播放Wav声音文件
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
Private Sub Cmdplay_Click()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)
End Sub
Private Sub Cmdplay_Click()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)
End Sub
话题作者
头衔:无
