vb6.0模拟小钢琴程序代码

Private Declare Function playsound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Private Declare Function sndPlaySound Lib “winmm.dll” Alias “sndPlaySoundA” (lpszSoundName As Any, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1&
Private Const SND_LOOP = &H8&
Private Const SND_MEMORY = &H4&
Private Const SND_NODEFAULT = &H2&
Private Const SND_NOSTOP = &H10&
Private Const SND_SYNC = &H0&

Private Const SND_FILENAME = &H20000

Private Sub Command1_Click()

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case “1”
Call Label1_Click
Sleep 300

Case “2”
Call Label2_Click
Sleep 300

Case “3”
Call Label3_Click
Sleep 300

Case “4”
Call Label4_Click
Sleep 300

Case “5”
Call Label5_Click
Sleep 300

Case “6”
Call Label6_Click
Sleep 300

Case “7”
Call Label7_Click
Sleep 300

End Select
Next

End Sub

Private Sub Label1_Click()
playsound “1.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label2_Click()
playsound “2.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label3_Click()
playsound “3.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label4_Click()
playsound “4.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label5_Click()
playsound “5.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label6_Click()
playsound “6.wav”, 0&, SND_ASYNC
End Sub

Private Sub Label7_Click()
playsound “7.wav”, 0&, SND_ASYNC
End Sub