MSFlexGrid问题

[sonygod]

If MSFlexGrid1.Col <= 5 And MSFlexGrid1.Row <= 12 Then
Text1.Width = MSFlexGrid1.CellWidth
Text1.Height = MSFlexGrid1.CellHeight
Text1.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
Text1.Text = MSFlexGrid1.Text
Text1.Visible = True
Text1.SetFocus
___________________________________________________________________
Text1.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
为什么 要这样写?

[haohaohappy]

这是TEXT控件与MSFLEXGRID控件的相对位置关系。

[tztz520]

就是让text1的高和宽等于MSFlexGrid1中一个表格,就是让text1复盖在这个表格上.可作修改MSFlexGrid1中的值.

[gg137zeus]

Private Sub Form_Load()
Grid1.Rows = 10
Grid1.Cols = 6
End Sub
Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim X As Long
Dim Y As Long
Dim L As Long
Dim Tmp As String
X = Grid1.Col
Y = Grid1.Row
Select Case KeyCode
Case 13
X = X + 1
If X >= Grid1.Cols Then
X = 1
Y = Y + 1
If Y >= Grid1.Rows Then Grid1.Rows = Grid1.Rows + 1
End If
Grid1.Col = X
Grid1.Row = Y
Case 8
Tmp = Grid1.Text
L = Len(Tmp) - 1
If L > -1 Then Grid1.Text = Left(Tmp, L)
Case Else
Grid1.Text = Grid1.Text & Chr(KeyCode)
End Select
End Sub
简单实用（转）

[sonygod]

我知道这代码的意思
但我不知道 MSFlexGrid1.CellLeft MSFlexGrid1.Left 所对应的具体位置

[sonygod]

If y <> "" Then
If MSFlexGrid1.Col - MSFlexGrid1.LeftCol <= 3 Then
MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1


————————————————————————————————
同样地我不知道MSFlexGrid1.LeftCol 到底是哪个位置？