利用API函数播放Wav声音文件

2008-02-23 06:53:39来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

上一篇: 显示多媒体信息
下一篇: Visual Basic影音控制

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:“会报数的计算器”的基本实现

下一篇:在VB 中控制 Word