Faire disparaitre une image avec une autre en 3 étape

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

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.