MouseDown and MouseMove Events

[byleth]

hi,


I want to move a control at runtime so i've starting by implement the following simple code:


Private Sub label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
IsDragging = True
End Sub


Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
If IsDragging Then
Label1.Location = New Point(e.X, e.Y)
End If

End Sub


Private Sub label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
IsDragging = False
End Sub



well, the problem is that for some reason, while in mousedown "mode", the rotine doesn't enter the mouseMove event.

is this the way it should be? while in mouseDown can't raise mouseMove?


thanks

 

[ThatRickGuy]

Mouse move firing on the label object, switch you mouse move sub to handle Label1.mousemove

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[byleth]

with that and this modification...



Private Sub label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If IsDragging Then
Label1.Location = New Point(Me.ParentForm.MousePosition.X, Me.ParentForm.MousePosition.Y)

End If

End Sub


...it does the trick


thnaks