MouseMove Непознанное положение

Question

Я использую приведенный ниже код, чтобы изменить изображение курсора в зависимости от положения курсора. Я заметил, что если курсор перемещается по метке или текстовому полю или что-то в этом роде, курсор не изменится, пока он не войдет в часть моей таблицы, что может изменить среднюю страницу.

Private Sub TableLayoutPanel1_MouseMove(sender As Object, e As MouseEventArgs) Handles TableLayoutPanel1.MouseMove 
    If e.Location.X > Me.Width - 7 And e.Location.Y > 12 And e.Location.Y < Me.Height - 12 Then 
     Me.Cursor = Cursors.SizeWE 
    ElseIf e.Location.X < 6 And e.Location.Y > 12 And e.Location.Y < Me.Height - 12 Then 
     Me.Cursor = Cursors.SizeWE 
    ElseIf e.Location.Y > Me.Width - 12 And e.Location.X > 12 And e.Location.X < Me.Width - 12 Then 
     Me.Cursor = Cursors.SizeNS 
    ElseIf e.Location.Y < 6 And e.Location.X > 12 And e.Location.X < Me.Width - 12 Then 
     Me.Cursor = Cursors.SizeNS 
    Else 
     Me.Cursor = Cursors.Default 
    End If 
End Sub 

Что интересно, есть ли другой MouseMove событие, которое будет сосредоточено только на позиции курсора, а не то, что его путешествие по. Я пробовал сделать mousemove, но это не сработало.

Надеюсь, что это имеет смысл.

Answer 1

Вы можете обработать событие MouseMove для родителя TableLayoutPanel и всех его детей одним способом и просто перевести местоположение по мере необходимости.

Private Sub TableLayoutPanel1_MouseMove(sender As Object, e As MouseEventArgs) Handles TableLayoutPanel1.MouseMove 
    Dim ctrl = DirectCast(sender, Control) 
    Dim location = TableLayoutPanel1.PointToClient(ctrl.PointToScreen(e.Location)) 

    'location is now a Point relative the the top-left corner of TableLayoutPanel1. 
    '... 
End Sub 

Private Sub HandleMouseMoveForTableChildren() 
    For Each child As Control In TableLayoutPanel1.Controls 
     RemoveHandler child.MouseMove, AddressOf TableLayoutPanel1_MouseMove 
     AddHandler child.MouseMove, AddressOf TableLayoutPanel1_MouseMove 
    Next 
End Sub 

Просто позвоните, что secoind методе в любое время дочернего элемента управление добавляется в таблицу и первый метод, то будет работать, как вы хотите.