TECLA ENTER
opa olha nois ai otra veis ,NO key press da minha txt eu tenho um codigo q faz pular a linha quandos e aperta enter que é esse, so que quando eu aperto enter o progrma sai da tela onde esta o formulario e o tabIndex sai da sua ordem , naun funciona , alguen tem ideia? obrigado
'apertando o enter pula para a proxima linha
If KeyAscii = 13 Then
Envia_Tecla vbKeyTab
KeyAscii = 0
End If
'apertando o enter pula para a proxima linha
If KeyAscii = 13 Then
Envia_Tecla vbKeyTab
KeyAscii = 0
End If
Private Sub Form_Keypress(Index as Integer)
If KeyAscii = 13 Then
sendkeys vbtab
KeyAscii = 0
End If
End Sub
mude a propriedade preview do Form para TRUE
e certifique-se que o tabindex de cada controle esteja na ordem correta
se persistir o problema verifique seu código pois em algum outro lugar você está mandando o foco para o espaço.
If KeyAscii = 13 Then
sendkeys vbtab
KeyAscii = 0
End If
End Sub
mude a propriedade preview do Form para TRUE
e certifique-se que o tabindex de cada controle esteja na ordem correta
se persistir o problema verifique seu código pois em algum outro lugar você está mandando o foco para o espaço.
fala guto , explica melhor o que voçê quer fazer , ficou meia confusa essa sua explicação , quem sabe assim agente possa ajudar melhor
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys Chr(9)
KeyAscii = 0
End If
End Sub
:P é pra texto isso se for use esse [S68]
If KeyAscii = 13 Then
SendKeys Chr(9)
KeyAscii = 0
End If
End Sub
:P é pra texto isso se for use esse [S68]
mude a propriedade KeyPreview do formulario pra True e no KeyPress do formulario faz assim
If KeyAscii = 13 Then
SendKeys {"tab"}
KeyAscii = 0
End If
End Sub
assim a tecla enter vai funcionar como tab no formulario
valew!!!!!!
If KeyAscii = 13 Then
SendKeys {"tab"}
KeyAscii = 0
End If
End Sub
assim a tecla enter vai funcionar como tab no formulario
valew!!!!!!
Tópico encerrado , respostas não são mais permitidas