SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: JC-9696 en Martes 22 de Junio de 2004, 01:24

Título: Text Box
Publicado por: JC-9696 en Martes 22 de Junio de 2004, 01:24

:huh: COMO HAGO PARA QUE EL TEXT BOX TOME LA TECLA ENTER PARA PERDER EL ENFOQUE

Título: Re: Text Box
Publicado por: Juanolo en Martes 22 de Junio de 2004, 01:34

Bienvenido, JC!

Código: Text

1. Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
2.     'Permite avanzar campos con la tecla "Enter"
3.     If KeyAscii = 13 Then
4.         SendKeys "{tab}"
5.         KeyAscii = 0   'Necesario para eliminar el 'Beep'
6.     End If
7. End Sub
8.  

Salu2