在窗体上放一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

评论