Cloner objets

Description

Slt tt le monde!

Cette source sert à cloner des objets (bt commande, image...).

Sur une feuille, mettre une image (image1), et mettre un index = 0, et un bt de commande (command1).
Et mettre ca en code :

Source / Exemple :


Dim imgindex

Private Sub Command1_Click()
imgindex = imgindex + 1
Load Image1(imgindex)
Image1(imgindex).Visible = True
Image1(imgindex).Top = Image1(imgindex).Top + 540 * imgindex
End Sub

Conclusion :


(dans l'avant dernière ligne, la valeur 540 est le height de votre image)

Voila, ya un zip si vs voulez.
Bon, je sé, ce code sert pas à gd chose, ms ca peut tj servir à quelqu'un!
Soyez pas trop severe avec moi, mettez moi au moins 1 :-)

@+!

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.