MOUSE GRAPHER
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
9 oct. 2004 à 20:44
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 23 févr. 2007 à 16:12
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 23 févr. 2007 à 16:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26698-mouse-grapher
https://codes-sources.commentcamarche.net/source/26698-mouse-grapher
23 févr. 2007 à 16:12
ce code gère mal les résolutions d'ecran...
elle doit être prévue, je dirai pour un 1024*768.
voici ce qui aurait pu etre fait à la place :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long
Private Type POINT
X As Long
Y As Long
End Type
Private Sub Command1_Click()
Picture1.Cls
'# On réinitialise la position : en effet, la méthode Cls la réinitialise
InitPos
End Sub
Private Sub InitPos()
Dim pt As POINT
'# Onprend ici en compte la résolution de l'ecran
Picture1.ScaleWidth = ScaleX(Screen.Width, vbTwips, vbPixels)
Picture1.ScaleHeight = ScaleY(Screen.Height, vbTwips, vbPixels)
'# On place le curseur graphique (invisible) a l'endroit désiré sur le pictureBox
GetCursorPos pt
Picture1.CurrentX = pt.X
Picture1.CurrentY = pt.Y
End Sub
Private Sub Form_Load()
InitPos
End Sub
Private Sub Timer1_Timer()
Dim pt As POINT
GetCursorPos pt
'# Inutile de mémoriser les coordonnées précédentes...
'# Ici, le trait est tracé entre la position du curseur graphique,
'# et le point dont on passe les coordonnées.
'# les coordonnées du curseur graphique sont ensuite automatiquement mises à jour.
Picture1.Line -(pt.X, pt.Y)
End Sub
13 oct. 2006 à 20:08
10 févr. 2005 à 11:43
9 oct. 2004 à 20:44
Picture1_MouseDown