-
-
[旧帖] [求助]帮我看一下代码. 0.00雪花
-
发表于: 2009-3-22 10:46 2097
-
各位大家好,谁能帮我看一下这段是什么意思: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
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
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!
赞赏
看原图
赞赏
雪币:
留言: