vb6 - グリッドマウスポインタのどのセルが終わっているかを判断するにはどうすればよいですか？

Question

Private Sub Grid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If  ????????????  Then Grid1.ToolTipText = <contents of cell>

End Sub

XおよびY座標を使用して、マウスポインタが現在上にあるセルを特定するにはどうすればよいですか？

Grid私が使用している実装にはイベントのみがあり、MouseMoveイベントはありませんMouseOver。

Answer 1

Private Sub Grid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim intRow As Integer, intCol As Integer
  With Grid1
    For intRow = 0 To .Rows - 1
      If y > .RowPos(intRow) Then
        If y < .RowPos(intRow) + .RowHeight(intRow) Then
          For intCol = 0 To .Cols - 1
            If x > .ColPos(intCol) Then
              If x < .ColPos(intCol) + .ColWidth(intCol) Then
                .ToolTipText = .TextMatrix(intRow, intCol)
              End If
            End If
          Next intCol
        End If
      End If
    Next intRow
  End With 'Grid1
End Sub