MSFlexGrid1求教，谢谢！！！

[msdn165168]

MSFlexGrid1求教，谢谢！！！

我想实现当鼠标停在某个格上，就提示那个格所在的列和行（如在第3行第4列，就提示（3，4）），谢谢！！！

[杨哥儿]

最笨的方法:
在鼠标移动事件下:
1.获得grid的left与top;
2.获得grid每行的高度与每列的高度数组;
3.获得当前鼠标的X与Y;
4.计算当前在哪个行与列.

[SYSSZ]

Private Sub Form_Load()
MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 20
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Text1.Text = "鼠标在" & MSHFlexGrid1.MouseRow + 1 & "行" & MSHFlexGrid1.MouseCol + 1 & "列"
End Sub

[zhushoudong]

顶楼上

[yachong]

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MSFlexGrid1.ToolTipText = "(" & CStr(MSFlexGrid1.MouseRow) & "," & MSFlexGrid1.MouseCol & ")"
End Sub

[ArmStronger]

学习

[hongxuemin5741822]

2楼和4楼的都可以用，那我就不用写了

[rmini]

MSFlexGrid1_MouseMove

[贝隆]

有正确方法了，帮顶！

[clear_zero]

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = "(" & CStr(MSFlexGrid1.MouseRow) & "," & MSFlexGrid1.MouseCol & ")"
End Sub