Ajouter des objets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 311 fois - Téléchargée 43 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
Messages postés
48
Date d'inscription
dimanche 17 juin 2001
Statut
Membre
Dernière intervention
11 décembre 2008

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

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

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.