Re: [Gambas-user-es] Cambiar de Focus

[Christian E. F. <chr...@fi...>]

Voy a ver si me explico mejor.
Tengo una serie de TextBox que el usuario tiene que rellenar. Yo controlo l=
o=20
que escribe en el TextBox mediante el evento KeyPress:

PUBLIC SUB TextBox1_KeyPress()
   Teclas()=20
END

Tengo 9 TextBox m=E1s exactamente iguales. Todos llaman a la funci=F3n Tecl=
as():

PUBLIC SUB Teclas()
  IF (NOT ((key.Code >=3D Asc("0") AND key.Code <=3D Asc("9")) OR key.Code =
=3D=20
key.Delete OR key.code =3D key.Left OR key.Code =3D key.Right OR key.Code =
=3D=20
key.Tab OR key.Code =3D key.BackSpace OR key.Code=3Dkey.Return OR=20
key.Code=3Dkey.Shift)) THEN
    STOP EVENT
  END IF
 =20
  IF (Key.Code=3Dkey.Return) THEN
    STOP EVENT
    (LAST.next).SetFocus
  ENDIF
 =20
  IF ((key.Code>=3DAsc("0") AND key.Code<=3DAsc("9")) AND (Len(LAST.Text)=
=3D3)) THEN
    STOP EVENT
  ENDIF
END

Esta funci=F3n lo que hace es aceptar solo n=FAmeros y alguna tecla m=E1s=20
(TAB,SHIFT,RIGHT,LEFT,DELETE,BACKSPACE y RETURN). Lo que yo quiero hacer es=
=20
que si se pulsa la tecla RETURN pase al siguiente TextBox, pero no poniendo=
=20
explicitamente TextBox2.SetFocus porque esta funci=F3n es para los eventos =
de=20
todos los TextBox, sino poniendo algo m=E1s general como: (LAST.next).SetFo=
cus.=20

Mi pregunta es que puedo poner en vez de LAST.next, ya que me devuelve el=20
mismo control en vez del siguiente como yo entiendo que deber=EDa hacer. No=
 se=20
si estoy equivocado o en un bug del m=E9todo .next.

Si no se puede hacer algo as=ED tendr=EDa que sacarlo a la funci=F3n KeyPre=
ss, que=20
es unica para cada TextBox, pero da m=E1s trabajo hacerlo y modificarlo si=
=20
quiero cambiar algo. Siempre que se pueda (y sea l=F3gico) prefiero utiliza=
r un=20
mismo c=F3digo para varios controles.=20

Gracias y saludos,

 Christian E. L=F3pez Finnberg

El Jueves, 10 de Marzo de 2005 10:24, Tomas Eroles i Forner escribi=F3:
> Intentalo asignando al primer campo un procedimiento de evento que
> respona a key pressed. Puedes hacerlo con el boton derecho del raton
> sobre el primer control, en la seccion de eventos.
> Lo que hace es recoger  un evento  de tecla pulsada.
> El procedimiento tiene tres parametros, pero lo que no se es como
> codificarlos.
> Lo que haras en sintesis es decir, que cuando se pulse una tecla dada,
> return por ejemplo, pasar el foco al siguiente campo o al que quieras.
>
> Si alguien puede dar una lista de codificacion de tclas seria de gran
> ayuda.
>
> Saludos
>
> El jue, 10-03-2005 a las 09:43, Christian E. L=F3pez Finnberg escribi=F3:
> > El Jueves, 10 de Marzo de 2005 00:10, Iv=E1n La Malfa escribi=F3:
> > > Christian E. L=F3pez Finnberg wrote:
> > > >Hola, saludos a la lista en mi primer mensaje...
> > > >
> > > >Estoy empezando con gambas (nunca he programado en VB) y tengo un
> > > > problemilla que no se si estoy haciendo algo mal o es un bug, pero =
no
> > > > encuentro m=E1s informaci=F3n por ning=FAn lado. Se trata de que ap=
arte de
> > > > cambiar el "foco" con la tecla TAB, lo quiero cambiar con la tecla
> > > > ENTER(el usuario valida un dato en un textbox con ENTER y salta al
> > > > siguiente textbox). Estoy intentando utilizar la funci=F3n next, que
> > > > creo que debe devolver el siguiente control, pero me lo que me
> > > > devuelve es el mismo control desde el que lo llamo.
> > > >
> > > >El c=F3digo en concreto que estoy utilizando es:
> > > >(TextBox1.next).setfocus
> > >
> > > Hola,
> > >
> > > S=F3lo
> > >
> > > TextBox1.setfocus
> > >
> > > (De hecho fijate que si pon=E9s Textbox1 y pon=E9s el punto se te apa=
recer=E1
> > > un men=FA desplegable con las propiedades, m=E9todos y eventos del co=
ntrol,
> > > entre los que se encuentra "SetFocus")
> >
> > Si, pero lo que yo quiero es poner el foco en el siguiente de la lista
> > (por eso intento el next), es decir, hacer una funci=F3n m=E1s gen=E9ri=
ca que
> > pueda llamar desde varios Textbox y que sea desde donde sea que se llam=
e,
> > te pase al siguiente Textbox de la lista.
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users.
> Discover which products truly live up to the hype. Start reading now.
> http://ads.osdn.com/?ad_ide95&alloc_id=14396&op=3DClick
> _______________________________________________
> Gambas-user-es mailing list
> Gam...@li...
> https://lists.sourceforge.net/lists/listinfo/gambas-user-es