Private Sub Form_Load() MSHFlexGrid1.Cols = 11 MSHFlexGrid1.Rows = 11For i = 0 To 10 For j = 0 To 10 MSHFlexGrid1.TextMatrix(i, j) = i + j Next Next End Sub Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) MsgBox MSHFlexGrid1.Col MsgBox MSHFlexGrid1.Row End Sub
很简单的问题 只是我不知道~~ 知道的说下·
··谢了·
MSHFlexGrid1.Cols = 11
MSHFlexGrid1.Rows = 11For i = 0 To 10
For j = 0 To 10
MSHFlexGrid1.TextMatrix(i, j) = i + j
Next
Next
End Sub
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MsgBox MSHFlexGrid1.Col
MsgBox MSHFlexGrid1.Row
End Sub
求人不如求自己
解决