中科新闻网平安wifi旧版本下2.2.0:请问如何才能了解到VB控件的作用？
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 13:59:45
你可以用API函数来实现播放声音，举个例子：
假设你要播放D盘下的sound.wav
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub
在窗体中输入以下代码
Private Sub Form_Load()
PlaySound "D:\sound.wav"
End Sub
P.S.你还可以用MMControl控件来播放WAV格式的音频，不过反应时间比较慢，或者是WMP控件也行，都很好用的。两三行代码就能搞定！