Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 035 fois - Téléchargée 43 fois
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
20 mai 2002 à 16:36
20 mai 2002 à 16:34
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.