Discussion :

[JockdiL]

salut a tous,
je développe sous vb6, pour mon application j'ai besoin de placer un objet shape sur une feuille à chaque endroit où l'utilisateur fait un clique.
j'ai créé un objet shape de référence et je souhaiterais en faire une copie à chaque fois, que je placerai à l'endroit voulu.
mes questions:
Primo
-Existe-t-il une syntaxe pour copier mon shape de référence?
Deusio
-Admettons l'existence de plusieurs shapes sur une même feuille, comment y faire référence en utilisant une boucle? j'ai essayé la syntaxe suivante:

Code :

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

1
2
3
4
5
dim ShapeLoop as shape
for each ShapeLoop in MyForm
       'mes instructions
       '......
next ShapeLoop

ShpaeLoop a toujours la valeur 0, ça ne marche pas!!!

[ucfoutu]

Bonsoir,

Méthode la plus simple (surtout avec ce que tu veux faire) :

- Insère sur ta Form une Shape nommée Shape1
- Donne-lui l'index 0 (propriété index)

Ensuite (exemple) :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
 For i = 1 To 4
   Load Shape1(i)
   Shape1(i).Visible = True
   Shape1(i).Move Shape1(i - 1).Left * 1.2, Shape1(i - 1).Top + Shape1(i - 1).Height * 1.05
 Next
End Sub

Tu créeras ainsi 4 autres shapes Shape1(1),Shape1(2)...Shape1(4)
qui constitueront un groupe de contrôles indexés et que tu pourras donc traiter en tant que tels.

[JockdiL]

merci UcFoutou, j'ai essayé ce que tu m'a dit, ça marche à feu doux.