Recorrer los controles de nuestro formulario

Recorrer Controles en Gambas:

Ejemplo:

 Generar una lista de checkbox activados

Este es un ejemplo de como recorrer la lista de controles que tenemos en nuestro formulario.
En este caso, lo que hago es conseguir una lista de los checkbox que estan checkeados (value=true).
El resultado, los saco en un textarea y en la consola.

' Gambas class file

' fuente:

' http://www.gambas-es.org/recorrer-varios-controles-solucionado-vf1-vt1917.html?highlight=recorrer+controles

PUBLIC seleccionados AS String

PUBLIC ar_seleccionados AS NEW String[] 'array que contendrá los check box seleccionados

PUBLIC SUB ButtonMuestra_Click()

DIM a AS Integer 'para el for next

DIM hctl AS Control

DIM hcheck AS CheckBox

seleccionados = ""

FOR EACH hctl IN ME.Children

IF hctl IS CheckBox THEN

'como es un checkBox, para poder ver sus propiedades lo asigno a una variable tipo checkbox (hcheck)

hcheck = hctl

IF hcheck.Value THEN

'aqui le añado a seleccionados el texto que contenga el hchek

seleccionados &= hcheck.text & "/"

ENDIF

ENDIF

NEXT

TextArea1.text = ""

TextArea1.text = seleccionados

'conversion en arrays

ar_seleccionados = Split(seleccionados, "/")

FOR a = 0 TO ar_seleccionados.count - 1

PRINT ar_seleccionados[a]

NEXT

END

Código del ejemplo: http://manualgambasenaleman.googlecode.com/files/daniela-0.0.1.tar.gz



Fuente:
http://www.gambas-es.org/recorrer-varios-controles-solucionado-vf1-vt1917.html?highlight=recorrer+controles