msFlexGrid 实现 直接修改单元格内容

今天在做维护学生基本信息模块时，我想直接在msflexGrid控件中显示，并修改想改变的基本信息。msflexGrid控件不能直接编辑，所以我们首先要实现能在msflexGrid控件中直接编辑的功能。实现此功能，我使用text控件来辅助我完成。
首先当msflexGrid控件发生keypress事件时，我得使text处于显示编辑状态，并能将此控件覆盖在选中的单元格上（所以，在这里我们还要设置一下text的位置及大小，涉及到msflexGrid控件的CellWidth,RowHeight,left,top,CellLeft,CellTop等属性）。
然后，当msflexGrid控件发生leaveCell事件时，我们就要将所输入的内容付给要修改的单元格了。
最后我们将所修改的内容写入数据库就好了。
但我们在操作时，会发现我们点击一个单元格而不去更改，就去选取其他单元格时，会出现刚才的单元格内容为空，或发生其他改变（根据代码不同显示结果不同，我做时由于发生leaveCell事件时，会将刚才的单元格内容等于text的值，所以出现内容为空）。并且，我们的第一行应该是字段名字而不是字段值，所以应该将第一行固定才好。
想解决这些问题就要弄懂msflexGrid控件的一下属性或方法，而且要将他们联系起来思考。
1、      msflexGrid.text指的是当前单元格内容
2、      发生msflexgrid_leaveCell事件，即我们有去点击其他事件的转变过程中时，它的Row和Col指的是刚才处于要修改的单元格
3、      而click事件则是现在选中的单元格的Row和Col
在了解这些属性和调试不和情理的地方时我们可以使用msgbox来协助，最重要的是在了解了这些属性后，要能够分析出他们同我们要解决的问题之间的关系。把关系整明白，才有可能在这些属性方法的基础上解决好问题。
一下是部分代码，有兴趣可以看看
通用
Option Explicit
Dim strCellValue As String
Dim booChange As Boolean
——————————————
 
Private Sub MSFlexGrid1_Click()
    Dim intRow As Integer
    Dim intCol As Integer
    intRow = MSFlexGrid1.Row
    intCol = MSFlexGrid1.Col
   
    strCellValue = MSFlexGrid1.TextMatrix(intRow, intCol)
   
End Sub
 
'使text2得到msflexgri控件里的内容
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
  
    If KeyAscii = 13 Then
        Text2.Text = Trim(MSFlexGrid1.Text) + Text2.Text
        Text2.SelStart = Len(Text2.Text)
        booChange = True
    Else
        Text2.Text = Chr(KeyAscii) + Text2.Text
        Text2.SelStart = 1
        booChange = True
       
    End If
    Call ShowText
    KeyAscii = 0
   
End Sub
 
'定位text2 的位置，与选中的单元格位置大小重合
Private Sub ShowText()
    Text2.Visible = False
    Text2.Width = MSFlexGrid1.ColWidth(MSFlexGrid1.Col)
    Text2.Height = MSFlexGrid1.RowHeight(MSFlexGrid1.Row)
    Text2.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
    Text2.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
    Text2.Visible = True
    Text2.SetFocus
End Sub
 
'修改了内容才改变单元格内容，没有进行修改，则依旧赋值原先的值
Private Sub MSFlexGrid1_LeaveCell()
    If booChange = True Then
        MSFlexGrid1.Text = Text2.Text
        Text2.Visible = False
        Text2.Text = ""
    Else
        MSFlexGrid1.Text = strCellValue
    End If
End Sub