get mouseeventargs

[Sam]

Hi,

Protected Overrides Sub OnControlAdded( ByVal e As
System.Windows. Forms.ControlEv entArgs)
AddHandler e.Control.Mouse Move, DirectCast(Chec kCursor(),
System.Windows. Forms.MouseEven tHandler)
End Sub

The above code is to redirect the MouseMove event of any controls added
to my panel to the method CheckCursor. This works except that
CheckCursor needs the MouseEventArgs you would normally pass to it. How
can I get it for the current child control ?

Public Function CheckCursor(ByV al e As
System.Windows. Forms.MouseEven tArgs) As Object

Thx

[Larry Lard]

Sam wrote:

Hi,

Protected Overrides Sub OnControlAdded( ByVal e As
System.Windows. Forms.ControlEv entArgs)
AddHandler e.Control.Mouse Move, DirectCast(Chec kCursor(),
System.Windows. Forms.MouseEven tHandler)
End Sub

The above code is to redirect the MouseMove event of any controls added
to my panel to the method CheckCursor. This works except that
CheckCursor needs the MouseEventArgs you would normally pass to it. How
can I get it for the current child control ?

Public Function CheckCursor(ByV al e As
System.Windows. Forms.MouseEven tArgs) As Object

It looks like you have the syntax slightly muddled. I think you just
need to do a

AddHandler e.Control.Mouse Move, AddressOf CheckCursor

(note the AddressOf here)

and make CheckCursor have the correct signature:

Public Function CheckCursor(ByV al sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) As Object

and you are done. Note that DirectCast'ing to xxxHandler isn't really
meaningful: the procedure either has the right signature to be a
xxxHandler or it doesn't.

--
Larry Lard
Replies to group please

[Sam]

thx.
but it still don't work :

Protected Overrides Sub OnControlAdded( ByVal e As
System.Windows. Forms.ControlEv entArgs)
AddHandler e.Control.Mouse Move, AddressOf CheckCursor
End Sub

Public Function CheckCursor(ByV al sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) As Object
gives :

Method 'Public Function CheckCursor(sen der As Object, e As
System.Windows. Forms.MouseEven tArgs) As Object' does not have the same
signature as delegate 'Delegate Sub MouseEventHandl er(sender As Object,
e As System.Windows. Forms.MouseEven tArgs)'.
Can you help further ?
thx

[Sam]

oups sorry, was just function to replace with sub...

I'm testing now.

[Sam]

Ok I've got the following code now :

Protected Overrides Sub OnControlAdded( ByVal e As
System.Windows. Forms.ControlEv entArgs)
AddHandler e.Control.Mouse Move, AddressOf CheckCursor
End Sub

Public Sub CheckCursor(ByV al sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs)
If Not m_chkAnchor.Che cked Then
Dim pt As New Point(e.X, e.Y)

If Not DirectCast(send er,
Control).Client Rectangle.Conta ins(pt) Then
Collapse()
End If
End If
End Sub

and in the constructor of my inherited panel control:

AddHandler Me.MouseMove, AddressOf CheckCursor

There are 3 different cases now:
-mouse moves in panel and leaves -> collapse OK
-mouse moves in child control only -> not collapse
-mouse moves in panel and then in child control and then leaves ->
collapse OK

I don't understand what';s going on here ?!?!

[Sam]

After debugging, I've noticed that in case the mouse moves in the panel
and then in the child control, the sender in
Sub CheckCursor(ByV al sender As Object, ByVal e As
System.Windows. Forms.MouseEven *tArgs)
is still my panel instead of being the child control...
Why ?