在窗体上放一MSFlexGrid和Text控件各一个。
代码如下：

Private Sub Form_Load()
    Text1.Move -10000, -10000, 1, 1
    Text1.Text = ""
    MSFlexGrid1.Cols = 6  '6列 可根据自己需要调整。
    MSFlexGrid1.Rows = 6 '6行
End Sub

Private Sub MSFlexGrid1_EnterCell()
    MSFlexGrid1.CellBackColor = vbBlue
    MSFlexGrid1.CellForeColor = vbWhite
    Text1.Text = MSFlexGrid1.Text
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub MSFlexGrid1_LeaveCell()
    MSFlexGrid1.CellBackColor = vbWhite
    MSFlexGrid1.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Text1.SetFocus
End Sub

Private Sub Text1_Change()
    MSFlexGrid1.Text = Text1.Text
End Sub

评论