Bonjour,
Comment sont placés vos RadioButton ?
Sont-ils tous dans le même TableLayoutPanel ?
Si c'est le cas alors il suffit d'utiliser la méthode :
1 2 3 4 5 6 7 8 9
| Dim TableauRdn(100, 2) As RadioButton
Dim LigneColonne() As String
Dim Chaine As String
For Each rdb As RadioButton In TableLayoutPanel1.Controls
' attributation de chaque RadioButton dans le tableau
Chaine = rdb.Name.Substring(3)
LigneColonne = Chaine.Split("_")
TableauRdn(LigneColonne(0), LigneColonne(1)) = rdb
Next |
Quelque soit leur place, leur position, il suffit que leur nom soit toujours construit de la même manière : commencer par "rdn" (ou trois lettres) puis par le numéro de la ligne puis "_" et finir par le numéro de la colonne.
TableauRdn devra avoir les dimensions adéquates pour recevoir les 350 RadioButton.
Ne pas oublier que le tableau commence par l'index 0 donc si vos RadioButton commencent par 1, ça donnera une dimension vide...
Cordialement.
Partager