Utiliser des variables dans les noms d'objet

**Torkan** · 15/03/2007, 00h02

Bonjour, je suis sur un gros projet en VB mais je bloc sur un bout de code qui s'emblait très simple au départ. J'ai besoin d'accèder à la propriété picture d'un picture box mais je ne peux pas prédire le quel. Un autre problème est que le nom est variable en deux endroit (on oublie donc les groupes d'objet). J'ai trouver une solution en VBA mais je n'ai aucune idée comment l'adapter en vb6.

Code :

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

"Pic" & Str(i) & "_" & Str(b).Picture = LoadPicture(App.Path & "\Ressources\Sol\herbe.gif")

En gros, j'essais de passer les variables i et b dans le nom d'un objet. Au final ça pourait ressembler à pic17_31.Picture = ...

J'espère que vous comprenez mon problème.
Merci de votre aide.

**zazaraignée** · 15/03/2007, 01h56

Salut

Essaierais-tu, par hasard, ce faire un tableau d'objets PictureBox?

**Torkan** · 15/03/2007, 04h28

Oui, exactement.

**ProgElecT** · 15/03/2007, 12h38

Chez moi sa fonctionne,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command2_Click()
Dim CntrL As Control
Dim NamPict As String
Dim i As Integer, b As Integer
i = 17: b = 31
NamPict = "pic" & CStr(i) & "_" & CStr(b)  'pic17_31
For Each CntrL In Me.Controls
  If CntrL.Name = NamPict Then
   CntrL.Picture = LoadPicture(App.Path & "\Ressources\Sol\herbe.gif")
   Exit For
  End If
Next
End Sub