tracé de ligne sur une image

Question

j'ai un pb, je veux tracer une ligne sur une image à partir de 2 clics de souris.
j'ai utilisé l'api getcursopos mais la ligne ne se trace pas au bon endroit et elle est pas de la bonne taille.

Voici mon code : 

Private Sub Image1_Click()
If (click = False) Then
click = True
Dim PNT_Position As POINTAPI
'on récupère la position du curseur
GetCursorPos PNT_Position
x1 = PNT_Position.X
y1 = PNT_Position.Y
Else
click = False
GetCursorPos PNT_Position
x2 = PNT_Position.X
y2 = PNT_Position.Y
Form2.Line (x1, y1)-(x2, y2)
End If

End Sub 

de plus, si je déplace l'image, mes lignes ont disparues. Comment faire, pour qu'elles suivent le mvt.

cs_rene38 · Answer

Bonjour

"Form2.Line " : tu ne traces pas sur l'image mais sur la feuille.
Un contrôle Image n'a pas de méthode Line.
Utilise plutôt un contrôle Picture et le code suivant :

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Xdépart As Single, Ydépart As Single
Static clic As Boolean
If Not clic Then
    Xdép = X
    Ydép = Y
    clic = True
Else
    Picture1.Line (Xdépart, Ydépart)-(X, Y)
    clic = False
End If
End Sub

Tracé de ligne sur une image

1 réponse

Discussions similaires