怎样在按下按纽的同时，发出声音.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 14 行

如 下 ： 
    Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias _ 
     "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _ 
     Long) As Long 
    Const SND_SYNC = &H0 
    Const SND_ASYNC = &H1 
    Const SND_NODEFAULT = &H2 
    Const SND_LOOP = &H8 
    Const SND_NOSTOP = &H10 
    Private Sub Command1_Click() 
     sndPlaySound "C:\WIN98\MEDIA\tada.wav", SND_ASYNC Or SND_NODEFAULT 
     ... 
    End Sub 
<END>