• Domingo 22 de Diciembre de 2024, 13:55
« anterior próximo »
Páginas: [1]

Autor Tema:  Text Box  (Leído 913 veces)

JC-9696

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Text Box
« en: Martes 22 de Junio de 2004, 01:24 »
0
:huh: COMO HAGO PARA QUE EL TEXT BOX TOME LA TECLA ENTER PARA PERDER EL ENFOQUE

Juanolo

  • Miembro MUY activo
  • ***
  • Mensajes: 202
    • Ver Perfil
Re: Text Box
« Respuesta #1 en: Martes 22 de Junio de 2004, 01:34 »
0
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
La luz que sólo se ilumina a sí misma, es oscuridad.
Páginas: [1]
« anterior próximo »