[VB6]Comment obtenir le contenu textbox grace a checkbox ?

Bonjour,

Sous VB6.
j'ai creer une 20 cb et txt comme ci dessous
cb=checkbox, txt =textbox
1. cbAzerty - txtAzerty
2. cbBobo - txtBobo
...
Grace a ce code ci-dessous je recupere le checkbox qui a ete valide,j'extrais par exple depuis le nom du checkbox cbAzerty la chaine Azerty, et je voudrais grace a lui afficher le contenu de txtAzerty.

Attention, j'ai aussi besoins Azerty car c'est le nom d'un champ.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(i) Is CheckBox Then If Left(Me.Controls(i).Name, 2) = "cb" Then If Me.Controls(i).value = 1 Then 'MsgBox Right(Me.Controls(i).Name, Len(Me.Controls(i).Name) - 2) TB End If End If End If Next i

---

Merci.

Bonjour
personnellement, je créerai deux groupes de controles:
un de checkbox
un de textbox
liés par leur indice
ex

Code:

---

1 2 3 4 5

Private Sub Check1_Click(Index As Integer) Text1(Index) = Cstr(Index) 'Si t'as besoin d'autre chose, un tableau peut faire l'affaire Text1(Index) = tabNom(Index) End Sub

---

Si vraiment, tu as besoin de beaucoup d'autreS choseS
- soit un tableau de structure
- soit un controle utilisateur (ca c'est top, reutilisable, permet les evolutions en faisant gaffe à la compatibilité descandante et surtout cela commence à ressembler à de la progammation objet)