Cloner objets

Soyez le premier à donner votre avis sur cette source.

Vue 3 860 fois - Téléchargée 217 fois

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

Ajouter un commentaire

Commentaires

Messages postés
282
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
12 février 2007

Il y a même plus simple sans utiliser de Dim imgindex :
Load Image1(Image1.Count)
Image1(Image1.Count-1).Visible=True
Image1(Image1.Count-1).Top = Image1(Image1.Count-1).Top + 540 * imgindex
Messages postés
63
Date d'inscription
samedi 22 décembre 2001
Statut
Membre
Dernière intervention
22 décembre 2003

Merci, c'est ce que je recherchais.

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.