在VB里点击Label1播放指定声音

Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

private sub label1_click()
sndPlaySound "c:\1.wav", SND_ASYNC Or SND_NODEFAULT
end sub
private sub label2_click()
sndPlaySound "c:\2.wav", SND_ASYNC Or SND_NODEFAULT
end sub
private sub label3_click()
sndPlaySound "c:\3.wav", SND_ASYNC Or SND_NODEFAULT
end sub
.......
....
......

声音是声音文件么，那么要用到MMControl控件

要是系统的喇叭音，不是很清楚，比如 beep