首页
社区
课程
招聘
[旧帖] [求助]帮我看一下代码. 0.00雪花
发表于: 2009-3-22 10:46 2097

[旧帖] [求助]帮我看一下代码. 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

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回
//