MSFlexGrid问题

Question

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
为什么 要这样写?

Answer 1

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

Answer 2

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

Answer 3

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
简单实用（转）

Answer 4

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

Answer 5

If y <> "" Then
     If MSFlexGrid1.Col - MSFlexGrid1.LeftCol <= 3 Then
        MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1
————————————————————————————————
同样地我不知道MSFlexGrid1.LeftCol 到底是哪个位置？