Je ne savais pas expliquer pour le titre
En faite, on dessine dans un picturebox et
ça le reproduit inversés dans un autre
comme quand on plie un papier et q
u'on coupe dedans.
Regardez la capture
Sur la capture, c'est totalement par
hasard que j'ai fait cette tête de E.T.
y a des centaines de possibilités
C'est vraiment un tout petit code !
Source / Exemple :
Ceci est un code vraiment sans prétentions mais qui est marrant, si il y avait une catégorie
en dessous de débutant, je l'aurait mis là. Je sais que certains vont critiquer et j'assume.
Je n'ai pas mis cette source pour une compétition mais pour aider les débutant et rigoler
un peu grâce à ce code car comme vous le voyez sur la capture on peut faire des dessins
insolites. Je sais que le code peut laisser à désirer (Bug, ariables en trop,...).
J'ai essayer de commenter.
Le Clique gauche fait un faux effets de gomme. Je sais que c'est un peu minable de ma part.
Si vous avez la moindre question ou besoin d'aide contactez moi à:
rgaillard@gmail.com
Ha oui j'oubliais, si vous voulez à l'heure qui l'est (20:10 le 10/04/2005) il me reste 49 invitations
Gmail.
########################
Alors:
- Une Form (Form1)
- Six Pictures (Ecran0, Ecran, Ecran1, Ecran2, Ecran3, Ecran4, Ecran5)
- Un bouton (Command1) et comme Caption: "Effacer"
- Si vous vous voulez, des textes descriptifs comme sur le screenshot
- Pour le positionnement, voyez la capture !
################
'Par Romain Gaillard
'Merci à VBFrance et tous ceux qui essayent ma source
Private Sub Command1_Click()
Ecran0.Cls 'Efface Grâce à la fonction CLS
ecran.Cls
ecran2.Cls
Ecran3.Cls
Ecran4.Cls
Ecran5.Cls
End Sub
Private Sub Ecran0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim x2 As Integer 'Déclaration des variables d'inversement
Dim y2 As Integer
Dim x3 As Integer
Dim y3 As Integer
Dim x4 As Integer
Dim y4 As Integer
Ecran0.DrawWidth = 25 'Taille du pinceau, vous pouvez le réduire bien sur ou l'augmenter
ecran.DrawWidth = 25
ecran2.DrawWidth = 25
Ecran3.DrawWidth = 25
Ecran4.DrawWidth = 25
Ecran5.DrawWidth = 25
x2 = 2055 - X 'Définition de la valeur des variables
y2 = Y
x3 = X
y3 = 1815 - Y
x4 = 2055 - X
y4 = 1815 - Y
If Button = 1 Then 'Clique gauche
Ecran0.PSet (X, Y), &HFF& 'Tracer en noir
ecran.PSet (X, Y), &H0&
ecran2.PSet (x2, y2), &H0&
Ecran3.PSet (x3, y3), &H0&
Ecran4.PSet (x4, y4), &H0&
Ecran5.PSet (x3, y3), &H0&
Ecran5.PSet (x4, y4), &H0&
Ecran5.PSet (x2, y2), &H0&
Ecran5.PSet (X, Y), &H0&
End If
If Button = 2 Then 'Clique droit
Ecran0.PSet (X, Y), &H8000000F 'Tracer en couleur de fond, donner un effet de gomme
ecran.PSet (X, Y), &H8000000F
ecran2.PSet (x2, y2), &H8000000F
Ecran4.PSet (x3, y3), &H8000000F
Ecran3.PSet (x4, y4), &H8000000F
Ecran5.PSet (x3, y3), &H8000000F
Ecran5.PSet (x4, y4), &H8000000F
Ecran5.PSet (x2, y2), &H8000000F
Ecran5.PSet (X, Y), &H8000000F
End If
End Sub
Conclusion :
Merciiiiii a vous tous !
Marrez vous bien et voila
That's all folks
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.