Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Array de controles
#1

Hola a todos.
En la lista internacional se dio una charla sobre como cambiar el texto de varias Labels en tiempo de ejecución.
les trasmito un procedimiento que se me ocurrió para editar el texto de algunos controles.
Dejo también el proyecto con el que hice el experimento por si a alguien le interesa.
GAMBAS
  1. Public Sub Button1_Click()
  2.  
  3.  
  4.   For i = 1 To 3
  5.     ControlStamp(["Label", "Label" & CStr(i), "Bingo!!"])
  6.     Wait 0.5
  7.   Next
  8.  
  9.  
  10. Public Sub ControlStamp(stx As String[])
  11.  
  12.   Dim ct As Object
  13.   Dim colex As New Collection
  14.  
  15.   If stx.Count = 3 Then
  16.     Select stx[0]
  17.       Case "TextBox", "ComboBox", "Label" 'To be continued....
  18.         For Each ct In Me.Controls
  19.           If Object.Type(ct) = stx[0] Then
  20.             colex.Add(ct, ct.Name)
  21.           Endif
  22.         Next
  23.         If colex.Exist(stx[1]) Then
  24.           colex[stx[1]].Text = stx[2]
  25.         Endif
  26.     End Select


Saludos.


Archivos adjuntos
.gz ejemplo-label-array-0.0.1.tar.gz Tamaño: 11.81 KB  Descargas: 1

1 Saludo.
    ¡Gracias!


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje
Último mensaje por tincho
24-05-2021, 11:40

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)