Ejecutar boton al pulsar enter...

Iniciado por BenRu, 27 Enero 2006, 17:26 PM

0 Miembros y 1 Visitante están viendo este tema.

BenRu

Me da un poco de verguenza preguntar esto, se que es una tonteria pero estoy atascado y no me deja seguir con mi proyecto.

Me gustaria que al pulsar enter, estando en un textbox, ejecute un boton..

Gracias y un saludo

sch3m4

private sub Text1_KeyPress(KeyAscii as integer)
if KeyAscii = 13 then
'la accion
end if
end sub


;)
SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

BenRu

Gracias lympex, como podria "'la accion", llamar al boton?

icisneros

private sub Text1_KeyPress(KeyAscii as integer)
if KeyAscii = 13 then
'la accion
'Asi ejecutaria lo que haya en el procedimiento click del boton
Button1_Click
end if
end sub

BenRu

Una pequeña correcion;

private sub Text1_KeyPress(KeyAscii as integer)
if KeyAscii = 13 then
'la accion
'Asi ejecutaria lo que haya en el procedimiento click del boton
Command1_Click ' Esto cambia y se queda asi
end if
end sub


Gracias  ;)

sch3m4

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..