+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Array de controles (/thread-96.html)
Array de controles - tincho - 08-09-2020
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.
Código:
Public Sub Button1_Click()
Dim i As Integer
For i = 1 To 3
ControlStamp(["Label", "Label" & CStr(i), "Bingo!!"])
Wait 0.5
Next
End
Public Sub ControlStamp(stx As String[])
Dim ct As Object
Dim i As Integer
Dim colex As New Collection
If stx.Count = 3 Then
Select stx[0]
Case "TextBox", "ComboBox", "Label" 'To be continued....
For Each ct In Me.Controls
If Object.Type(ct) = stx[0] Then
colex.Add(ct, ct.Name)
Endif
Next
If colex.Exist(stx[1]) Then
colex[stx[1]].Text = stx[2]
Endif
End Select
Endif
End