Discussion :

[Mmmuzik]

Bonjour,

je voulais juste savoir si c'est possible de faire une concaténation sur un controle quelquonque ??? J'en ai déjà eu besoin à plusieurs reprise ... Voici un exemple assez simple avec une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub MoveMenu(i As String, j As String, o As String)
If Me.Label4.BackStyle = 1 Then
    Me.Label& o.BackStyle = 1
    Me.Label& i.BackStyle = 0
    Me.Label& j.BackStyle = 0
ElseIf Me.Label5.BackStyle = 1 Then
    Me.Label& o.BackStyle = 1
    Me.Label& i.BackStyle = 0
    Me.Label& j.BackStyle = 0
ElseIf Me.Label6.BackStyle = 1 Then
    Me.Label& o.BackStyle = 1
    Me.Label& i.BackStyle = 0
    Me.Label& j.BackStyle = 0
End If
End sub

Merci ...

[ucfoutu]

Bonjour,

je crois comprendre (n'en suis pas certain) que tu devrais t'intéresser à la collection Controls

Ainsi : Controls("toto" & n) se réfère au contrôle toto1 (si n = 1), toto2 (si n = 2) , etc...
Je te rappelle également qu'existent, sous VB6, les groupes de contrôles indexés.