dessin de ligne dans une image

Bonjour John-Pet,
John-Pet a écrit :

Bonjour

J'ai une Form avec une image dedans
je voudrais pouvoir dessiner une ligne( dans cette image ) avec la
souris en cliquant avec le bouton de la souris
dans la form j'y arrive, mais dans l'image cette ligne est cachée par
l'image

Quel code utilise tu ?
Avec ce code, pour moi, ça tourne :

Option Explicit

Dim XStart As Long, YStart As Long

Private Sub Image1_MouseDown(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
Screen.MousePointer = vbCrosshair
XStart = X + Me.Image1.Left
YStart = Y + Me.Image1.Top
End Sub

Private Sub Image1_MouseUp(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
Screen.MousePointer = vbNormal
Me.Line (XStart, YStart)-(X + Me.Image1.Left, Y + Me.Image1.Top),_
vbBlue
End Sub


--
Cordialement,

Jacques.

Merci Jacques93

ca fonctionne , mais mon, code est à peu près similaire juste un
movemouse au lieu de upmouse, bref je comprend pas le pourquoi, peu
etre dans le reste du code car j'ai essayer ton code dans mon projet ,
marche pas non plus

avec ton code , tu peu debordé du cadre image(pas bien) et quand
l'image de celui ci change les traits disparaissent ou aussi quand une
autre form superpose cette image

je continue donc mon avancée

JP
Jacques93 avait écrit le 23/03/2006 :

Bonjour John-Pet,
John-Pet a écrit :

Bonjour

J'ai une Form avec une image dedans
je voudrais pouvoir dessiner une ligne( dans cette image ) avec la souris
en cliquant avec le bouton de la souris
dans la form j'y arrive, mais dans l'image cette ligne est cachée par
l'image

Quel code utilise tu ?
Avec ce code, pour moi, ça tourne :

Option Explicit

Dim XStart As Long, YStart As Long

Private Sub Image1_MouseDown(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
Screen.MousePointer = vbCrosshair
XStart = X + Me.Image1.Left
YStart = Y + Me.Image1.Top
End Sub

Private Sub Image1_MouseUp(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
Screen.MousePointer = vbNormal
Me.Line (XStart, YStart)-(X + Me.Image1.Left, Y + Me.Image1.Top),_
vbBlue
End Sub

--
Adresse mail : john-pet@wanadoo.fr
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Bonsoir John-Pet,
John-Pet a écrit :

Merci Jacques93

ca fonctionne , mais mon, code est à peu près similaire juste un
movemouse au lieu de upmouse, bref je comprend pas le pourquoi, peu
etre dans le reste du code car j'ai essayer ton code dans mon projet ,
marche pas non plus

avec ton code , tu peu debordé du cadre image(pas bien) et quand l'image
de celui ci change les traits disparaissent ou aussi quand une autre
form superpose cette image

Form1.AutoRedraw = True

C'est mieux ?

Bon OK, ça déborde toujours ...

;-)

--
Cordialement,

Jacques.