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

2024-11-28 15:55:18

推荐回答（3个）

回答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

回答2：

好像试一个键盘记录器吧

回答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