KEYPRESS NAO FUNCIONA
Bom dia senhores, amigos, estou com um probleminha que esta me encucando.. vejam só, tenho algumas funcoes, que atraves de keyascii eu consigo fazer o que estou querendo, mas tem algumas teclas que nao consigo acionar via keyascii nao sei porque, vejam só quando aperto enter na rotina abaixo, funciona normal, pois a tecla que simula o enter no keyascii = 13 entao fica assim
aqui se aperto enter funciona normal, mas veja so, preciso acionar a tecla F3 via keyascii entao F3 = 114
ou poderia ser tambem acionar ao apertar control = keyascii = 17
private sub text1_keypress(keyascii as integer)
if keyascii = 17 then
msgbox [Ô]teste, teste, tecla control[Ô],vbinformation
end if
end sub
as unicas que funcionam sao enter e espaço, alguem pode dar uma ideia de como contornar essa situacao? desde ja agradeço muito
private sub text1_keypress(keyascii as integer)
if keyascii = 13 then
msgbox [Ô]teste, teste, tecla enter[Ô],vbinformation
end if
end sub
aqui se aperto enter funciona normal, mas veja so, preciso acionar a tecla F3 via keyascii entao F3 = 114
private sub text1_keypress(keyascii as integer)
if keyascii = 114 then
msgbox [Ô]teste, teste, tecla f3[Ô],vbinformation
end if
end sub
ou poderia ser tambem acionar ao apertar control = keyascii = 17
private sub text1_keypress(keyascii as integer)
if keyascii = 17 then
msgbox [Ô]teste, teste, tecla control[Ô],vbinformation
end if
end sub
as unicas que funcionam sao enter e espaço, alguem pode dar uma ideia de como contornar essa situacao? desde ja agradeço muito
as teclas de função tu vai conseguir deixando a propriedade keypreview do form como true e alocando
o código dessa forma
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then [ô]Tecla F3
MsgBox [Ô]Teclou a tecla F3[Ô]
End If
End Sub
Blz . . .
o código dessa forma
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then [ô]Tecla F3
MsgBox [Ô]Teclou a tecla F3[Ô]
End If
End Sub
Blz . . .
Quando vc for utilizar qualquer tecla do teclado vc tb pode usar a função
KeyUp ou Keydown
ex.:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
MsgBox [Ô]F1[Ô]
End If
If KeyCode = vbKeyA Then
MsgBox [Ô]A[Ô]
End If
End Sub
KeyUp ou Keydown
ex.:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
MsgBox [Ô]F1[Ô]
End If
If KeyCode = vbKeyA Then
MsgBox [Ô]A[Ô]
End If
End Sub
vc faz como o amigo citou deixe a propiedade do formulario como keypreview =true
e pode utilizar assim tb
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then
MsgBox [Ô]tecla F3 acionada ![Ô]
End If
End Sub
Pronto !!
e pode utilizar assim tb
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then
MsgBox [Ô]tecla F3 acionada ![Ô]
End If
End Sub
Pronto !!
Olá,
você definiu a propriedade [Ô]keypreview[Ô] do form como [Ô]true[Ô] ?
Até,
Rogério.
você definiu a propriedade [Ô]keypreview[Ô] do form como [Ô]true[Ô] ?
Até,
Rogério.
Teclas de funções vc trata em KeyDown e ao inves de pegar o valor ou a constante em keyascii vc pega no keycode
Tópico encerrado , respostas não são mais permitidas