Concaténation sur radio

**bugland** · 04/04/2007, 20h35

Bonsoir à tous...

Je m'explique mon but est de désactiver des bouton radio au moyen d'une boucle mais pour cela il faut que je concatène des indice avec le nom du bouton radio.
C'est un groupe de contrôle radio, il s'appelle option1 et possède 4 indice allant de 0 à 3.

Donc il y a :
--Option1(0)
--Option1(1)
--Option1(2)
--Option1(3)

Voila ce que j'ai essayé de faire avec une variable nommé "radio" déclaré en String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
radio = "option" & i & "(" & i & ")"
    radio.Enabled = False

Mais cette solutio ne marche pas j'ai essayé ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option" & i & "(" & i & ")".enabled = false

Mais ça marche pas non plus alors si quelqu'un peut m'aider merci.

**OhMonBato** · 04/04/2007, 20h44

Si ta question s'était limité à "Je m'explique mon but est de désactiver des bouton radio au moyen d'une boucle " ben il y aurait pas de problème, encore faut-il mettre une boucle effectivement.

**bugland** · 04/04/2007, 21h00

La boucle je l'ai pas mis car c'est pas tellement ca mon problème mais je vais la mettre si ça peut aider à comprendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Do While (j <= 11)
        Do While (k <= 3)
            radio = "Option" & "j" & "(k)".enabled = false
            radio.Enabled = False
            Next k
        Loop
        Next j
    Loop

**OhMonBato** · 04/04/2007, 21h29

T'es sur que c'est pas les boucles ton problème justement ?

Je te conseille fortement de commencer par là :
Tu vas sur Google, tu tapes "boucle vb -net" et tu vas voir que le premier lien te ramènes à une page qui n'est pas loin d'ici. Je pense que ça pourrait t'interesser et tu vas découvrir que, si, les boucles, c'est un des tes problèmes pour le moment.

**bugland** · 04/04/2007, 22h23

en faite je veux savoir si c'est possible de concaténé un indice a un nom de controle radio c'est tout après peut etre que j'ai fait une erreur de syntaxe pour les boucles mais je m'en occuperais plus tard, vb m'a mis un message d'erreur sur ma ligne de concaténation.

**OhMonBato** · 04/04/2007, 22h28

dans ton premier message tu dis qu'il ya 4 controles qui s'appellent :

--Option1(0)
--Option1(1)
--Option1(2)
--Option1(3)

Pourquoi veux tu ensuite les appeler autrement ? Tu ne peux concaténer que des chaines e caractères, pas des noms de controle !
Si tu nous disais ce que VB donne comme erreur et sur quel ligne (ce qu'on devrait faire dans son premier message quand on a un pb de plantage) ?

**ProgElecT** · 04/04/2007, 22h31

concaténation

le principe est le même regarde ce post

**OhMonBato** · 04/04/2007, 22h36

Ok, je viens de comprendre, en fait il a des groupes de boutons appelés Options1, d'autres Options2 etc... , désolé, j'avais pas compris...
Alors oui, la méthode donnée par ProgElect marche, mais j'étais à 100 milles de là moi, faut que j'aille me reposer.

**bugland** · 05/04/2007, 19h22

Merci pour ton script ProgElecT je pense que je vais y arrivé avec, mais est ce que c'est possible que tu me détail un peu plus les fonctionnalités pour que j'arrive mieux à comprendre le fonctionnement?

**ProgElecT** · 05/04/2007, 19h38

On ne peut remplacer le nom d'un control par une variable, car cette variable est forcement un String, et un String ne peut pas avoir les propriété ni les evenement d'un control, par contre une variable String peut être comparée au nom d'un control car Controlx.Name est de type String.
Moi je me suis compris

, par contre ai je réussis à me faire comprendre ?

**bugland** · 05/04/2007, 21h23

Oui merci j'ai compris mais c'était plus pour l'instruction for each que je ne connaissais pas. Meric en tout cas.

**ProgElecT** · 05/04/2007, 21h43

Envoyé par MSDN

Le bloc For...Each entre dans la boucle si l'argument group contient au moins un élément. Une fois le bloc entré dans la boucle, toutes les instructions de cette dernière sont appliquées au premier élément de group. Si group comporte plusieurs éléments, la boucle continue de s'exécuter pour chaque élément. Une fois que tous les éléments de group ont été traités, la boucle est fermée et l'exécution se poursuit par l'instruction située après l'instruction Next.

Donc sa permet de retrouver un control et de l'utiliser, pour ton post, une fois trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If CntrL.Name = Maconcaténation Then CntrL.Enabled = True : Exit For

**Delbeke** · 05/04/2007, 22h34

Pour préciser ce que dit ProgElect que je salue au passage

l'instruction for each Objet in Collection permet de parcourir tous les éléménts d'une collection
on peut egalement utiliser une boucle classique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For iPnt=1 to Collection.Count
  Set Objet = Collection(iPnt)
Next

**Vld44** · 06/04/2007, 10h33

Tiens je n'avais jamais utilisé de next dans une boucle do while, ça incrémente c'est tout ? Franchement on me l'aurait dit oralement je n'aurais jamais parié sur l'acceptation par VB

**Delbeke** · 06/04/2007, 14h20

lol, tu as raison, le next n'a rien a faire dans une bouble do while
j'avais pas vu

**alain_bx_33** · 06/04/2007, 14h38

pas besoin de concatener. s'il s'agit de boutons radio indexés, (option1(0)..à..option(4)), ce code suffit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To 4
    Option1(i).Value = False
Next

Bonne journée

**bugland** · 06/04/2007, 18h10

Alain ta facon marche bien mais le problème c'est que j'ai 12 groupe d'option donc je suis obligé de faire cette boucle 12 fois. Donc j'ai vais prendre l'autre solution sauf si j'y arrive pas.

**bugland** · 06/04/2007, 18h32

Voila j'ai ajouté mon nouveau code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
j = 1
For Each radio In Me.Controls
    NomRadio = "Option" & j
    If radio.Name = NomRadio Then
        radio.Enabled = False
    End If
    j = j + 1
Next

Le programme s'éxécute bien ca passe bien dans la boucle mais cela me met pas mes contrôle radio en grisé je ne comprend pas pourquoi ?

**OhMonBato** · 06/04/2007, 18h44

Toi tu ne veux "scanner" que tes boutons radio mais VB est pas au courant, alors lui, un peu con, il cherche tous les contrôles de ta feuille voila pourquoi ça ne marche pas.
Une instruction plus qu'utile s'appelle Debug.print, amuse toi à mettre "debug.print radio.name" avant ton test tu verras

Il faut donc plutot tester que c'est bien un controle RadioButton si tu veux vraiment les rendre TOUS disable
donc ton test deviendrait plutot quelquechose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each Ctl In Controls
  If TypeOf Ctl Is OptionButton Then
    Ctl.Enabled = False
  End If
Next

**ProgElecT** · 06/04/2007, 18h57

For Each radio In Me.Controls
NomRadio = "Option" & j
If radio.Name = NomRadio Then
radio.Enabled = False
End If
j = j + 1
Next

ATTENTION
si, tes controls sont indexés, NomRadio contient "leControl1", la condition If n'est donc jamais rempli.

Concaténation sur radio

VB 6 et antérieur

Discussions similaires

Partager

Partager