Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Tecla Enter y botones en Default

0 views
Skip to first unread message

Dav

unread,
Jan 10, 1998, 3:00:00 AM1/10/98
to

Hola grupo, y gracias por atenderme,
Quiero que la tecla [enter] se use para saltar de control en cotrnol
(como Tab). Creo que para hacer esto tengo que escribir codigo en el
evento keypress del formulario cambiando el [enter] por [tab] y poniendo
keypreview=True (esto creo haberlo leido en el grupo, pero no consigo
encontrar estos datos en mis notas).
EL problema, dejando de lado que no se si el procedimiento anterior es
correcto, esta en que uso botones con la propiedad default=True para
facilitar las cosas al usuario. Pero por lo que he leido los evento de
teclado no se generan para la tecla [enter] si hay un boton con
Default=True. Hay alguna manera de salvar este obstaculo. No me gustaria
tener que quitar el el botn de Default pero de momento es la unica
opcion.
Dav

Miguel

unread,
Jan 25, 1998, 3:00:00 AM1/25/98
to

Hola
Estas son las posibles soluciones que ya ha ofrecido el grupo:
Perdon a los autores por el plagio, pero en mis notas no conservo el nombre.
1º En el evento Keypress del campo :
if Keyascii= 13 then
siguientecampo.SetFocus
end if
2º Creando una matriz de controles :
if Keyascii=13 then
objeto(indice+1).setfocus
endif
3º Propiedad 'Form.Keypreview' a true y este código en el evento
'Keypress' :
If Keyascii=13 then
Keyascii=0
SendKeys "{TAB}"
End if
.... Y todas las pulsaciones de enter se convertirá en TAB en ese
formulario.
(inexplicablemente no funciona al llegar a un 'CommandButton')
Saludos


0 new messages