诺贝尔文学奖 书单:请问如何才能了解到VB控件的作用?

来源:百度文库 编辑:神马品牌网 时间:2024/05/02 19:23:09

你可以用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控件也行,都很好用的。两三行代码就能搞定!