ID #18774

利用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

2005-05-01 00:00
阅读:
I'm VC , Just U know Y
本站部分文章来源于互联网,版权归原作者所有。

延伸阅读:

利用VisualBasic实现木马攻击

利用INI文件给程序创建动态菜单

利用VB6.0设计屏幕保护程序

利用VB产生屏幕变暗的效果

ODBCAPI的VBSample