|
|
Postada em 20/01/2010 12:42 hs
Vlw galera,
Estarei testando daqui a pouco posto novamente..
|
|
|
|
|
|
|
|
Postada em 21/01/2010 10:30 hs
Galera, testei o codigo, para inserir teclas de atalho, esse:
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case VbKeyF4
Msgbox " F4 pressionada"
End Select
End Sub
Na hora da execução, simplesmente não acontece nada.
Queria saber se fiz algo errado, ou falta configurar alguma propriedade do Form.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 21/01/2010 11:49 hs
Desculpe colega na realidade coloque o codigo no evento keydown Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF4
MsgBox "tecla f4 pressionada"
End Select End Sub
assim funcionará se não funcionar mude a propriedade Keypreview do form para true |
|
|
|
|
|
Postada em 01/02/2010 13:30 hs
Caro Treze,
testei seu código para a inserção de teclas de atalho, funfou beleza, mas, gostaria que uma função parecida que use a tecla Enter.
Ex.: Tenho um Form dados, e gostaria que quando pressionado a tecla 'Enter' em um TextBox, ele realizasse uma ação.
Alguem saberia como fazer isso.
Vlw
Feliz aquele que transfere o que sabe e aprende.
|
|
|
|
|
|
Postada em 01/02/2010 15:17 hs
Esse é um bom exemplo tb...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
cmd_Salvar_Click
ElseIf KeyCode = vbKeyF6 Then
cmd_Cancelar_Click
End If
End Sub
Private Sub cmd_Salvar_Click()
Call SalvaCliente
End Sub
Qual quer dúvida estamos aí
|
|
|
|
|
|
Postada em 01/02/2010 15:23 hs
sNniffer veja este exemplo
Private Sub txtchave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
LocalizaVeiculo
End If
End Sub
O txtchave é o seu campo text e a tecla de enter o códio do KeyAscii é 13, e o LocalizaVeiculo é um evento.
qual quer dúvida estamos aí
|
|
TÓPICO EDITADO
|
|
|
|
