Buenas

Estoy haciendo un formulario con un teclado para usarlo en un panel táctil, para ello he creado 80 etiquetas (las teclas)
y según el usuario pulse una u otra mediante el TAG se qué tecla ha pulsado y actúo en consecuencia.

Mi duda es si puedo acceder a las caption de las 80 etiquetas por código, imaginad por ejemplo que una de las teclas es SHIFT, en ese caso el "caption" de las etiqueta cambiaría de minúsculas a mayúsculas, eso en VB6 sería muy sencillo usando arrays de control pero como en gambas no existe, no veo cómo puedo acceder a ello y por código (una a una) lo veo inviable.

Ejemplo absurdo que NO funciona, es para explicarme un poco mejor:

Dim KB1 as string="0123456789"
Dim I as integer

For I=1 to 10
    etiqueta[i].caption=mid(KB1,I,1)
next

Pues algo parecido...

Hola, hice un ejercicio que creo que te ayudara para lo que queres hacer.

Saludos.

Tasagore escribió: [Ver mensaje]

he creado 80 etiquetas

Que tipo de Objecto son estas etiquetas (Label, TextLabel, etc...) ?

Tasagore escribió: [Ver mensaje]

arrays de control pero como en gambas no existe

Por "control" quieres decir "objectos" (Button, Label, etc...) ? O que otro ?

tincho escribió: [Ver mensaje]

Hola, hice un ejercicio que creo que te ayudara para lo que queres hacer.

Saludos.

Gracias pero esa es la parte que ya tengo hecha, el teclado me funciona perfectamente pero sigo sin saber cómo acceder de una manera rápida a los caption de las etiquetas ya que necesito poder cambiar lo que contienen y no de una en una.

vuott escribió: [Ver mensaje]

Tasagore escribió: [Ver mensaje]

he creado 80 etiquetas

Que tipo de Objecto son estas etiquetas (Label, TextLabel, etc...) ?

Son tipo LABEL.

Tasagore escribió: [Ver mensaje]

arrays de control pero como en gambas no existe

Por "control" quieres dices "objectos" (Button, Label, etc...) ? O que otro ?

Sí, como te digo, un objeto tipo Label, o Text, o Button...En mi caso por comodidad he usado objetos label, dependiendo de dónde el usuario ponga el dedo actúa como si fuera una tecla.

El tema es que son más de 80 objetos y un simple pulsado de "shift" debe cambiar las caption de la mayoría de esas labels, y una a una me parece un método muy "barroco".

Este es un proyecto de VB6 que estoy migrando a gambas y ahí era muy sencillo usando arrays del objeto Label pero aquí no veo la forma, con el TAG y el grupo tengo solucionada la gestión de eventos, pero no he averiguado como acceder a las propiedades en función del TAG (cambiar el caption de la label que tiene TAG 47, por ejemplo).

No creo que puedas evitar el bucle. Pero tampoco es tan complicado, algo así:

Sólo te faltaría controlar el bloqueo de mayúsculas con un Flag, por ejemplo.

Saludos.

===================
No podemos regresar

shordi escribió: [Ver mensaje]

No creo que puedas evitar el bucle. Pero tampoco es tan complicado, algo así:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Form_KeyPress()

    Dim c As Object
    
    If Key.Shift Then
        For Each c In Me.Controls
            If c Is Button Then
                c.text = Upper(c.text)
            Endif
        Next
    Endif

End

Public Sub Form_KeyRelease()

    Dim c As Object
  
    If Not Key.Shift Then
        For Each c In Me.Controls
            If c Is Button Then
                c.text = Lower(c.text)
            Endif
        Next
    Endif

End
 

Sólo te faltaría controlar el bloqueo de mayúsculas con un Flag, por ejemplo.

Saludos.

He puesto el ejemplo del shift pero puede que tenga que cambiar todos los caption, no es tan sencillo.

Pero me has dado una idea usando la colección Controls, voy a probar...

Perfecto, tu idea me vale, asumiendo que todas las etiquetas que quiero controlar se llaman "Labelxx":

Dim CT As Object
dim sKB as String

sKB = "1234567890qwertyuiopasdfghjklñzxcvbnm"

For Each CT In Me.Controls
    If Left(CT.Name, 5) = "Label" Then
       CT.Caption = Mid(sKB, CT.Tag, 1)
    Endif
Next

De este modo a sKB puedo asignarle el valor que toque y cambiar el caption de todas las teclas que necesite, luego al pulsarlas no tengo más que mirar el caption de la pulsada y tengo el valor que hay que recoger.

Gracias!

Tasagore escribió: [Ver mensaje]

Perfecto, tu idea me vale, asumiendo que todas las etiquetas que quiero controlar se llaman "Labelxx":

Dim CT As Object
dim sKB as String

sKB = "1234567890qwertyuiopasdfghjklñzxcvbnm"

For Each CT In Me.Controls
    If Left(CT.Name, 5) = "Label" Then
       CT.Caption = Mid(sKB, CT.Tag, 1)
    Endif
Next

De este modo a sKB puedo asignarle el valor que toque y cambiar el caption de todas las teclas que necesite, luego al pulsarlas no tengo más que mirar el caption de la pulsada y tengo el valor que hay que recoger.

Gracias!

Aunque ahora me pasa una cosa curiosa, si os fijáis en el código, en el string hay una "ñ", cuando pido el MID de esa posición almacena dos caracteres en lugar de uno y no devuelve correctamente la ñ ¿?

mid(sKB,30,1) debería ser una ñ pero me devuelve un caracter diferente
mid(sKB,31,1) debería ser una z pero me devuelve otro caracter diferente
mids(sKB,32,1) debería ser una x pero es una z, luego la ñ la está almacenando como dos dígitos

en el mundo windows esto me recuerda a las peleas CHAR/OEM, en gambas tengo que tener cuidado con la codificación de las variables? Me refiero en cuanto a que sean UTF8 o demás.

Tasagore escribió: [Ver mensaje]

Aunque ahora me pasa una cosa curiosa, si os fijáis en el código, en el string hay una "ñ", cuando pido el MID de esa posición almacena dos caracteres en lugar de uno y no devuelve correctamente la ñ ¿?
Me refiero en cuanto a que sean UTF8 o demás.

Tienes que usar

Tasagore escribió: [Ver mensaje]

... arrays de control pero como en gambas no existe

De todas formas en gambas el array de Controles existe.

Exemplum: