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

JC-9696 · « **en:** Martes 22 de Junio de 2004, 01:24 »

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

Juanolo

Bienvenido, JC!

Código: Text

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
    'Permite avanzar campos con la tecla &#34;Enter&#34;
    If KeyAscii = 13 Then
        SendKeys &#34;{tab}&#34;
        KeyAscii = 0   'Necesario para eliminar el 'Beep'
    End If
End Sub
 

Salu2

SoloCodigo

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

JC-9696

Text Box

Juanolo

Re: Text Box