程式有誤,請教各位前輩, 內容如下:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal SoundName As String, ByVal Flags As Long) As Long
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1 = Name(index)
Name = Array("1", "2", "3", "4", "5")
Call sndPlaySound(App.Path + "\..\" + Name(index) + ".wav", 1)
End Sub
我想要輸入1時發出聲音1,2時發出聲音2.......5發聲5
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(6) 人氣()