Soyez le premier à donner votre avis sur cette source.
Vue 6 094 fois - Téléchargée 296 fois
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
3 juin 2006 à 15:02
26 déc. 2005 à 17:13
12 avril 2005 à 22:35
12 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.