Teclas de atalho F1, F2, F3 ...em toolbar

[Jhowcs]

é possível eu colocar as teclas de atalhos para chamarem os botões de um toolbar?

[Jonathan Queiroz]

Sim !

Você tem que chamar os eventos da toolbar

tlbTeste.item(0).click()

Qualquer coisa posta aí !

[Macêdo]

Caro Jhowcs

Utilize nestes casos os SubProcedimentos, pois poderá chamá-los em qualquer evento, ou seja, não coloque o codigo a ser executado pelo Click de um Botão no Clik do Botão, Crie um Procedimento e o chame no Click do Botão, Exemplo:

Não faça assim

Private Sub Command1_Click()
MsgBox "Aqui tem um codigo para inserir dados num banco de dados"
End Sub

Faça Assim

Private Sub Inserir()
MsgBox "Aqui tem um codigo para inserir dados num banco de dados"
End Sub

Private Sub Command1_Click()
Inserir
End Sub

Vamos a sua QUESTÃO Você criando um procedimento da forma acima, poderá chamá-lo no click da Toolbar ou quando teclar F1 ou F2 ou qualquer outra tecla: Exemplo Dois procedimentos

Private Sub test1()
MsgBox "Veja o primeiro procedimento sendo executado"
End Sub

Private Sub test2()
MsgBox "Veja o segundo procedimento sendo executado"
End Sub

Veja agora o código para efetuar os codigos acima na Toolbar:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
test1
Case 2
test2
End Select
End Sub

E Agora para executar os mesmos codigos teclando F1 e F2 (Obs: Coloque a propriedade Keypreview do FORM = TRUE)

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then '112 = F1
test1
ElseIf KeyCode = 113 Then '113 = F2
test2
End If
End Sub