Ajouter des objets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 489 fois - Téléchargée 45 fois

Contenu du snippet

Pour ajouter des objets en même temps que l'execution,voilà une astuce.
quand vous cliquez sur command1 une picture s'ajoute est un message vous donne le total des picture, il vous faut:
>>form
>>command1
>>Picture1(0)

Source / Exemple :


private sub command1_click()

 load picture1(picture1.count)
 a=picture1.count-1
 picture1(a).visible=true
 picture1(a).height= picture1(a-1).height
 picture1(a).width= picture1(a-1).width
 picture1(a).left= picture1(a-1).left + picture1(a-1).width
 picture1(a).top= picture1(a-1).top

end sub

A voir également

Ajouter un commentaire Commentaires
cs_NeoCortex
Messages postés
48
Date d'inscription
dimanche 17 juin 2001
Statut
Membre
Dernière intervention
11 décembre 2008

15 mai 2002 à 19:52
Je te remerci pour ton code cela fait un bout de temps que je cherchais ca !
encore merci.
Ylaosusdiande
Messages postés
15
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
13 mars 2006

12 avril 2002 à 18:00
mais j'ai écris picture1(0) au début!!!
il faut crée une picturebox, puis dans sa propriété, index ecrivez 0.
WhiteDwarf
Messages postés
510
Date d'inscription
samedi 29 décembre 2001
Statut
Membre
Dernière intervention
23 mai 2008

11 avril 2002 à 21:42
t'a oublié qu'il faut d'abord creer sur la form une Picture1 puis faire un groupe de control avec la picture sinon car vb créé la picture a partir de ce qu'il connait qui est déja sur la form avec le code que t'a donné...

---------------
WhiteDwarf
---------------

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.