Jump to content
Fórum Script Brasil
  • 0

Vincular ação com som ao teclado


Question

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.

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148908
    • Total Posts
      645004
×
×
  • Create New...