medaz
Messages postés22Date d'inscriptionmardi 14 janvier 2003StatutMembreDernière intervention 9 mai 2005
-
15 avril 2005 à 14:07
cs_raphael94
Messages postés1Date d'inscriptionsamedi 24 novembre 2007StatutMembreDernière intervention 4 décembre 2009
-
4 déc. 2009 à 08:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_raphael94
Messages postés1Date d'inscriptionsamedi 24 novembre 2007StatutMembreDernière intervention 4 décembre 2009 4 déc. 2009 à 08:53
Très bonne sources. Merci, à ceci près que j'ai mis l'image dans un panel et j'ai du inverser le calcul de la position relative sur l'image :
Dim _iOffsetSourceX As Integer = 0
Dim _iOffsetSourceY As Integer = 0
Dim _bOnMoveSource As Boolean = False
Private Sub picFileSource_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseDown
If e.Button = MouseButtons.Left Then
_iOffsetSourceX = e.X
_iOffsetSourceY = e.Y
_bOnMoveSource = True
End If
End Sub
Private Sub picFileSource_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseMove
If _bOnMoveSource = True Then
' Ici j'ai changé le calcul de la position relative
picFileSource.Left = picFileSource.Left + e.X - _iOffsetSourceX
picFileSource.Top = picFileSource.Top + e.Y - _iOffsetSourceY
End If
End Sub
Private Sub picFileSource_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseUp
_bOnMoveSource = False
End Sub
Private Sub pnlImgSource_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImgSource.MouseUp
_bOnMoveSource = False
End Sub
medaz
Messages postés22Date d'inscriptionmardi 14 janvier 2003StatutMembreDernière intervention 9 mai 2005 15 avril 2005 à 14:07
sa ma rendu service a moi
merci
par contre il ya un ptit problem ds le deplacement vertical si 'jarrive a le regler je t'envoi la source
4 déc. 2009 à 08:53
Dim _iOffsetSourceX As Integer = 0
Dim _iOffsetSourceY As Integer = 0
Dim _bOnMoveSource As Boolean = False
Private Sub picFileSource_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseDown
If e.Button = MouseButtons.Left Then
_iOffsetSourceX = e.X
_iOffsetSourceY = e.Y
_bOnMoveSource = True
End If
End Sub
Private Sub picFileSource_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseMove
If _bOnMoveSource = True Then
' Ici j'ai changé le calcul de la position relative
picFileSource.Left = picFileSource.Left + e.X - _iOffsetSourceX
picFileSource.Top = picFileSource.Top + e.Y - _iOffsetSourceY
End If
End Sub
Private Sub picFileSource_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picFileSource.MouseUp
_bOnMoveSource = False
End Sub
Private Sub pnlImgSource_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImgSource.MouseUp
_bOnMoveSource = False
End Sub
15 avril 2005 à 14:07
merci
par contre il ya un ptit problem ds le deplacement vertical si 'jarrive a le regler je t'envoi la source