Discussion :

[enibris]

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 :

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

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.

[AdHoc]

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

Code :

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

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)