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

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

Muchas gracias a todos los que me han ayudado aunque esta era la soluci=F3n=
 que=20
buscaba, gracias Daniel. Eso s=ED, uno aprende un mont=F3n por el camino. ;=
=2D) Con=20
esto he reducido de unas 30 funciones a solo 3, un poco m=E1s complejas, pe=
ro=20
es mucho m=E1s f=E1cil cambiar algo en todos los TextBox a la vez.

De todas formas, sigo sin sabe que es lo que hace entonces el m=E9todo .nex=
t.=20
=BF Alguien lo sabe y me puede sacar de dudas ?

Saludos,

 Christian E. L=F3pez Finnberg

El Jueves, 10 de Marzo de 2005 14:20, Daniel Campos escribi=F3:
> Christian E. L=F3pez Finnberg escribi=F3:
> >Voy a ver si me explico mejor.
> >Tengo una serie de TextBox que el usuario tiene que rellenar. Yo controlo
> > lo que escribe en el TextBox mediante el evento KeyPress:
> >
> >PUBLIC SUB TextBox1_KeyPress()
> >   Teclas()
> >END
> >.....
>
> Vamos a ver, supongamos un formulario con 5 textBox, llamados
> "TextBox1","TextBox2","TextBox3","TextBox4","TextBox5". A todos
> ellos le ponemos la propiedad "Group" con valor "tBox" para que
> compartan el "gestor de eventos". Creamos tambi=E9n una matriz
> de objetos en la que almacenamos los textbox al inicio, para tenerlos
> ordenados y controlados. Vamos a hacer que al pulsar enter se
> pase al siguiente, o al primero si era el =FAltimo:
>
> PUBLIC tBoxes AS Object[]
>
> PUBLIC SUB Form_Open()
>
>   tBoxes =3D NEW Object[]
>
>   tBoxes.Add(TextBox1)
>   tBoxes.Add(TextBox2)
>   tBoxes.Add(TextBox3)
>   tBoxes.Add(TextBox4)
>   tBoxes.Add(TextBox5)
>
> END
>
> PUBLIC SUB tBox_KeyPress()
>
>   DIM Ind AS Integer
>
>   IF key.Code =3D key.Return THEN
>
>     Ind =3D tBoxes.Find(LAST)
>     IF Ind <> - 1 THEN
>
>       IF Ind =3D tBoxes.Count - 1 THEN
>
>         tBoxes[0].SetFocus
>
>       ELSE
>         tBoxes[Ind + 1].setFocus
>       END IF
>
>
>     END IF
>
>   END IF
>
> END
>
>
>
> Creo que con esto te ir=E1 bien.
>
> Saludos,
>
> D. Campos
>
> -------------------------------------------------------
> 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