Dessin (avec la souris)

Soyez le premier à donner votre avis sur cette source.

Vue 13 250 fois - Téléchargée 393 fois

Description

ce n'est pas tellement graphique mais voilà un code pour les débutant comme moi

Source / Exemple :


Dim art As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
art = True
CurrentY = Y
CurrentX = X
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If art Then
Line -(X, Y)
End If
DrawWidth = 6

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
art = False
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
62
Date d'inscription
samedi 21 septembre 2002
Statut
Membre
Dernière intervention
5 août 2003

Pas mal !!! C'est court et c'est bien !
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
126
Un peu basique comme code, mais pour un débutant, c'est un bon début ;-)

DARK SIDIOUS
tu te débrouille pas mal pr un débutant ... ta dépassé le code de BalckWizzard !

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.