Option Explicit
Dim DefColor
Dim Horizenw



Private Sub Form_Load()

＆#39;==========================
Dim I As Integer, lRow As Long
With MSFlexGrid1 ＆#39;初始化表格
.Cols = 9
.Rows = 8
For I = 1 To 4
.ColWidth(I) = 750
Next I
For I = 5 To 8
.ColWidth(I) = 950
Next I
lRow = 1
For I = 1 To 7
.TextMatrix(lRow, 4) = 1
.TextMatrix(lRow, 0) = 表达式 ＆ I
lRow = 1 lRow
.RowHeight(I) = 400
Next I
End With


End Sub


Private Sub MSFlexGrid1_DblClick()
Dim I
With MSFlexGrid1
If .MouseCol = 0 Or .MouseRow = 0 Then Exit Sub

Text1.Left = .Left .CellLeft: Text1.Top = .Top .CellTop
Text1.Height = .CellHeight: Text1.Width = .CellWidth
Text1.Text = .Clip
Text1.Visible = True: Text1.SetFocus
Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text)

End With
End Sub


Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, shift As Integer)
If KeyCode = vbKeyDelete Then MSFlexGrid1.Clip =
End Sub

Private Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.CellBackColor = DefColor
End Sub
Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
Text1.Visible = False
End With
End Sub
Private Sub MSFlexGrid1_Scroll()
With MSFlexGrid1
End With
End Sub

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

Private Sub Text1_KeyUp(KeyCode As Integer, shift As Integer)
Dim c As Long
Horizenw = 5 ‘默认到第5列时返回，可以取消
Select Case KeyCode
Case vbKeyRight, vbKeyReturn
If MSFlexGrid1.Col ＆lt; Horizenw - 1 Then
MSFlexGrid1.Col = MSFlexGrid1.Col 1
MSFlexGrid1_DblClick
ElseIf MSFlexGrid1.Row ＆lt; MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Col = 1: MSFlexGrid1.Row = MSFlexGrid1.Row 1
MSFlexGrid1_DblClick
Else
With MSFlexGrid1 ’追加一行
.Rows = .Rows 1
c = .Rows
.Col = 1: .Row = .Row 1
.TextMatrix(c - 1, 0) = 表达式 ＆ c - 1 ‘行头标志设置
.RowHeight(c - 1) = 400 ’保持行高
End With
MSFlexGrid1_DblClick

End If
Case vbKeyLeft
If MSFlexGrid1.Col > 1 Then
MSFlexGrid1.Col = MSFlexGrid1.Col - 1
MSFlexGrid1_DblClick
ElseIf MSFlexGrid1.Row > 1 Then
MSFlexGrid1.Col = MSFlexGrid1.Cols - 1: MSFlexGrid1.Row = MSFlexGrid1.Row - 1
MSFlexGrid1_DblClick
End If
Case vbKeyUp
If MSFlexGrid1.Row > 1 Then MSFlexGrid1.Row = MSFlexGrid1.Row - 1
MSFlexGrid1_DblClick
Case vbKeyDown
If MSFlexGrid1.Row ＆lt; MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Row = MSFlexGrid1.Row 1
MSFlexGrid1_DblClick
Case vbKeyF4 ‘删除
If MSFlexGrid1.Row > 1 Then
MSFlexGrid1.RemoveItem MSFlexGrid1.Row
End If

End Select
End Sub

评论