各位大家好,谁能帮我看一下这段是什么意思:Private Sub MSF1_KeyPress(KeyAscii As Integer)
Dim L As Integer
If KeyAscii = 8 Then
L = Len(MSF1.text) - 1
If L >= 0 Then MSF1.text = Left(MSF1.text, L)
Else
If KeyAscii <> 13 Then MSF1.text = MSF1.text + Chr(KeyAscii)
If KeyAscii = 13 Then
If kzf <> "csv" And MSF1.TextMatrix(MSF1.Rows - 1, 1) <> "" Then
MSF1.Rows = MSF1.Rows + 1
MSF1.TextMatrix(MSF1.Rows - 1, 0) = MSF1.TextMatrix(MSF1.Rows - 2, 0)
MSF1.Row = MSF1.Rows - 1: MSF1.Col = 1
End If
If kzf = "csv" And MSF1.TextMatrix(MSF1.Rows - 1, 1) <> "" Then
MSF1.Rows = MSF1.Rows + 1
MSF1.Row = MSF1.Rows - 1: MSF1.Col = 1
MSF1.TextMatrix(MSF1.Row, 0) = MSF1.Row
End If
End If
End If
End Sub
