Vincular ação com som ao teclado

[Edson Mayer]

Olá a todos,

 

estou criando um projeto no qual eu fiz uma bateria (musical) no VBA do excel. Já viculei todos os botões (por exemplo, bumbo, pratos, chimbal e etc.) da ação aos respectivos arquivos wav. Oque me alta agora é vicnular os botões dessas ações a botões do teclado, já que no momento eu consigo acionar os botões das ações apenas pelo Mouse.

 

Muito origado.

[Alyson Ronnan Martins]

Boa tarde @Edson Mayer

Tenta usar o KeyPress do userform 

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox KeyAscii
End Sub

Você olha o comando do botão e faz um "IF" dependo do numero que retornar o KeyAscii

[Edson Mayer]

Olá Alyson,

 

primeiramente origado pela ajuda.

Eu sou ainda leio no assunto VBA, não sei como eu deveria me dar com o código que você colocou. Vou adicionar aqui como estão os meus códigos e se você poder me dar um exemplo de como ficaria junto com oque você me mandou eu ficaria muito grato.

 

Eis os meus códigos:

Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub DrumSoundFile(BateriaFile As String, wait As Boolean)
If Dir(BateriaFile) = "" Then Exit Sub
If wait Then
    sndPlaySound BateriaFile, 0
Else
    sndPlaySound BateriaFile, 1
    End If
End Sub

Sub PlayDrum01()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums011111.wav", False

End Sub

Sub PlayD()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_11112.wav", False

End Sub

Sub PlayO()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_08.wav", False
End Sub

Sub PlayP()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_09.wav", False
End Sub

Sub PlayT()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_150.wav", False
End Sub

Sub Playi()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_170.wav", False
End Sub

Sub PlayJ()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_160.wav", False
End Sub

Sub PlayE()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_320.wav", False
End Sub

Sub PlayR()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_300.wav", False
End Sub

 

[Alyson Ronnan Martins]

No seu userform coloca o key

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'MsgBox KeyAscii
If KeyAscii = 111 Or KeyAscii = 79 Then
    MsgBox "Letra O"
    Call PlayO
End If

End Sub

Olha se consegue