Utiliser des variables dans les noms d'objet

Version imprimable

15/03/2007, 00h02
Torkan

Utiliser des variables dans les noms d'objet

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:

"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.
15/03/2007, 01h56
zazaraignée

Salut

Essaierais-tu, par hasard, ce faire un tableau d'objets PictureBox?
15/03/2007, 04h28
Torkan

Oui, exactement.

Chez moi sa fonctionne,

Code:

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

15/03/2007, 19h01
Delbeke

Joli ! :king:
15/03/2007, 23h46
Torkan

Merci, ça règle mon problème :king:
15/03/2007, 23h54
ProgElecT

Si c'est bon pour toi, regardes la derniere ligne de ma signature :mouarf:

Salut