Faire disparaitre une image avec une autre en 3 étape

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 892 fois - Téléchargée 41 fois

Contenu du snippet

c'est marker ds le titre
(besoin de 2 picture et d'un boutton)
ne pas oublier de mettre les deux en autoredraw

Source / Exemple :


Private Sub Command1_Click()
For x = 0 To Picture1.Height Step 40
For y = 0 To Picture1.Width Step 40
Picture2.Line (x, y)-(x + 20, y + 20), Picture1.Point(x, y), BF
DoEvents
Next
Next
For x = 20 To Picture1.Height Step 40
For y = 20 To Picture1.Width Step 40
Picture2.Line (x, y)-(x + 20, y + 20), Picture1.Point(x, y), BF
DoEvents
Next
Next
Picture2 = Picture1
End Sub

Conclusion :


n'utiliser pas des images trop grosse !

A voir également

Ajouter un commentaire

Commentaires

Messages postés
102
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
9 septembre 2003

merci je vais voir a sa pour la version 2 ;-)
Messages postés
2671
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
1
Pas mal du tout ton code ... Pas trop dur a comprendre....
Sauf qu'a la fin de ton code tu triche en mettant le picture2 = picture 1 ;)
Sans ca la reproduction n'est pas total ... Mais ca reste une bonne idée ;)

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.