Dessin inversés, reproduit, dur a expliquer
Soyez le premier à donner votre avis sur cette source.
Vue 6 094 fois - Téléchargée 296 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 !
Merciiiiii a vous tous !
Marrez vous bien et voila
That's all folks
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
- Dessin dur
- Dessin un peu dur - Meilleures réponses
- Dessin très dur - Meilleures réponses
- Dessin turtle python code - Guide
- Dessin zoom infini - Forum - Flash
- Tete de chat dessin - Guide
- Décalquer un dessin - Guide
- Dessiner une etoile - Guide
3 juin 2006 à 15:02
26 déc. 2005 à 17:13
12 avril 2005 à 22:35
- Messages postés
-
2167
- Date d'inscription
- mardi 11 novembre 2003
- Statut
- Membre
- Dernière intervention
- 16 juillet 2009
112 avril 2005 à 19:26
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...
11 avril 2005 à 19:13
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.