Usar Enter para pasar el enfoque

Saludos Amigos!

Quisiera saber como puedo automatizar el cambio de enfoque entre objetos de un formulario a través de la tecla enter, sin tener que escribir código en cada uno de los objetos. Por default se puede hacer con la tecla Tab, como ya saben. Quisiera saber si se puede cambiar esta función de la tecla Tab por la tecla enter....Muchas Gracias.

Editado por JuniorTuPapa, Sabado, 28 de Agosto de 2004, 17:18</TR>

RE: Usar Enter para pasar el enfoque


Primero debes tener bien definido el orden de tabulación, para que al hacer Enter pasa al siguiente objeto de acuerdo a la propiedad TabIndex:

Yo hago lo siguiente:

En un módulo estándar declaro.

//Para movernos con la tecla ENTER
Sub Enter(ok As Integer)
If ok = vbKeyReturn Then
ok = 0
SendKeys "{TAB}"
End If
End Sub


Y después en el KeyPress de un objeto solo hago referencia de la siguiente manera:

Private Sub txtclave_KeyPress(KeyAscii As Integer)
Enter KeyAscii
End Sub

Pruébalo y verás como resuelves tu problema, espero te sirva de algo.

</TR>

__________________
Cada mañana debemos despertar con esta frase en la mente: "SOY UNA CREACIÓN ADMIRABLE"

RE: Usar Enter para pasar el enfoque

Gracias Amigo! Funciona Perfecto!!!</TR>

RE: Usar Enter para pasar el enfoque

S_Libre, perdona que me inmiscuya, pero por si puede interesar otra opción, en vez de escribir en cada objeto el keypress se puede poner el KeyPreview del formulario a TRUE (con esto cuando se pulse una tecla se irá al procedimiento que se tenga definido como form_KeyPress)
En el código del formulario se escribe igualmente el código que envia a la función, en mi caso se llama CapturarKey y es así

Private Sub Form_KeyPress(KeyAscii As Integer)
intMultiuso = KeyAscii
KeyAscii = CapturarKey(KeyAscii, True)
End Sub

Es algo distinta, lo explico por si sirve de algo, y es porque cargo los valores en el formulario y además los guardo en una matriz (para controlar los cambios), si el usuario aprieta la tecla escape (KeyAscii 27) en vez de cambiar el enfoque recupero el valor que tengo en la matriz y restituye el valor original en pantalla. El true indica que en el formulario hay campos fecha y entonces los busca en una matriz de fechas.

Perdona el rollo.
Saludos
José Antonio</TR>

__________________
Saludos
José Antonio

RE: Usar Enter para pasar el enfoque


Ok. Gracias por tu comentario. Siempre hay que estar dispuestos a aprender.
</TR>

__________________
Cada mañana debemos despertar con esta frase en la mente: "SOY UNA CREACIÓN ADMIRABLE"