by Firebits (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Wed 23rd May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Ativar um objeto pelas Teclas de Fun??o (F1 - F12)
' Desenvolvido por Firebits
' Ativar um objeto pelas Teclas de Função (F1 - F12)
' Visite www.firebits.hpg.com.br
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then
<objeto>
ElseIf KeyCode = 114 Then
<objeto>
ElseIf KeyCode = 115 Then
<objeto>
ElseIf KeyCode = 116 Then
<objeto>
ElseIf KeyCode = 117 Then
<objeto>
ElseIf KeyCode = 118 Then
<objeto>
ElseIf KeyCode = 119 Then
<objeto>
ElseIf KeyCode = 120 Then
<objeto>
ElseIf KeyCode = 121 Then
<objeto>
ElseIf KeyCode = 122 Then
<objeto>
ElseIf KeyCode = 123 Then
<objeto>
End If
End Sub
Tecla de Função Keycode
F1 112
F2 113
F3 114
F4 115
F5 116
F6 117
F7 118
F8 119
F9 120
F10 121
F11 122
F12 123