Question

哪位vb高手可以帮我解释一下下面程序的意思？

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then
If CurrentX >= ScaleWidth Then
Print
End If
Print Chr(KeyAscii);
Else
Me.Cls
End If
End Sub
这是一个键盘输入的小程序，挺简单的但是我有点不太理解它的意思，请朋友帮我分解一下！
谢谢各位朋友了！

Answer 1

Private Sub Form_KeyPress(KeyAscii As Integer) '捕捉按键
If KeyAscii <> 13 Then '如果是回车键 13 是回车键的ASCII码
If CurrentX >= ScaleWidth Then '判断当前鼠标坐标是不是在窗体范围内(在=true)
Print '不在的话什么也不输出
End If
Print Chr(KeyAscii); '在的话输出当前按键码
Else
Me.Cls '清屏
End If
End Sub

Answer 2

好像试一个 键盘记录器 吧

Answer 3

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then '如果不是按的回车键
If CurrentX >= ScaleWidth Then '判断当前鼠标X坐标是不是超出窗体的宽度
Print '若超宽则换行
End If
Print Chr(KeyAscii); '输出当前按键
Else
Me.Cls '若是按的回车键，则清屏
End If
End Sub