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

[Daniel C. <dan...@ti...>]

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 control=
o lo=20
>que escribe en el TextBox mediante el evento KeyPress:
>
>PUBLIC SUB TextBox1_KeyPress()
>   Teclas()=20
>END
>.....
> =20
>
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

>
>
> =20
>