|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Identificando as Teclas F2 ..... F12 e Print Screen
|
 |
|
|
|
Postada em 7/7/2003 por Ronaldão
*coloque o código no evento KeyUp do form e com a propriedade Keypreview = True.
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = 44
MsgBox "Tecla Print Screen pressionada!"
Case Is = 112
MsgBox "Tecla f1 pressionada!"
Case Is = 113
MsgBox "Tecla f2 pressionada!"
Case Is = 114
MsgBox "Tecla f3 pressionada!"
Case Is = 115
MsgBox "Tecla f4 pressionada!"
Case Is = 116
MsgBox "Tecla f5 pressionada!"
Case Is = 117
MsgBox "Tecla f6 pressionada!"
Case Is = 118
MsgBox "Tecla f7 pressionada!"
Case Is = 119
MsgBox "Tecla f8 pressionada!"
Case Is = 120
MsgBox "Tecla f9 pressionada!"
Case Is = 121
MsgBox "Tecla f10 pressionada!"
Case Is = 122
MsgBox "Tecla f11 pressionada!"
Case Is = 123
MsgBox "Tecla f12 pressionada!"
End Select
End Sub
|
|
|
|
|
