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

如何确定网格鼠标指针中的哪个单元格结束？

1 个答案: