Pb De Syntaxe. Comment puis-je utiliser POUR i = 1 À 3 de la boucle dans la présente déclaration, le remplacement de ces numéros

CBX stands pour les Cases à Cocher , je veux minimiser les codes à l'aide de boucle, mais ne sais pas la syntaxe pour le PB de reconnaître les concaténations sur les déclarations

IF cbx_1.Checked = TRUE THEN
    fw_generate(1, cbx_1.Text)  

END IF

IF cbx_2.Checked = TRUE THEN
    fw_generate(2, cbx_2.Text)  

END IF

IF cbx_1.Checked = TRUE THEN
    fw_generate(3, cbx_3.Text)  

END IF
InformationsquelleAutor Sid | 2012-03-03
  1. 6

    Vous aurez besoin pour construire un tableau de Case à cocher objets que vous pourrez ensuite en boucle. Par exemple,

    Déclarer une variable d'instance sur la fenêtre de votre

    CheckBox boxes[]

    Ajouter du code dans la fenêtre de votre événement ouvert à collecter les objets que vous souhaitez faire une boucle à travers:

    integer i
for i = 1 to UpperBound(this.control)
    if TypeOf(this.control[i]) = CheckBox! Then
        boxes[UpperBound(boxes) + 1] = this.control[i]
    end if
next

    Note, vous pouvez utiliser ce que vous logique que vous souhaitez inclure (ou non) un contrôle donné dans la liste. Ici j'ai ajouté à CHAQUE case, vous pourriez avoir besoin de faire plus de test dans la condition if si vous voulez seulement QUELQUES cases à cocher.

    Boucle à travers le contrôle de la matrice de faire tout ce dont vous avez besoin. Par exemple, dans un événement clic du bouton de la suivante permet de basculer l'état activé.

    integer i
for i = 1 to UpperBound(boxes)
    boxes[i].Checked = NOT boxes[i].Checked
next

    Par la voie, IF cbx_1.Checked = TRUE THEN est redondant... La Checked propriété est un booléen, donc IF cbx_1.Checked THEN est suffisant.

    InformationsquelleAutor Jim O'Neil