Dessin inversés, reproduit, dur a expliquer

Soyez le premier à donner votre avis sur cette source.

Vue 5 813 fois - Téléchargée 257 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
Hihihi, ce bon vieux code me fera toujours bien rire :p
romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
Houla je viens de revoir ce code à moi, je vais essayer de l'optimiser même s'il est dejà très bien lol
romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
Je vais arranger ça pour ce que j'ai écrit
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Oui mais sur cette page du site on ne peut meme pas
tout lire ce que tu a écrit.
Et si on ne pense pas à revenir à la ligne quand on écrit ça donne ça : blablablablablablablablablablablablablablablablabla
et on ne voit pas la fin des phrases...
romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
Oui dsl mais j'ai fournit le Zip !

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.