哪位vb高手可以帮我解释一下下面程序的意思?
PrivateSubForm_KeyPress(KeyAsciiAsInteger)IfKeyAscii<>13ThenIfCurrentX>=ScaleWidthThe...
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
这是一个键盘输入的小程序,挺简单的但是我有点不太理解它的意思,请朋友帮我分解一下!
谢谢各位朋友了! 展开
If KeyAscii <> 13 Then
If CurrentX >= ScaleWidth Then
End If
Print Chr(KeyAscii);
Else
Me.Cls
End If
End Sub
这是一个键盘输入的小程序,挺简单的但是我有点不太理解它的意思,请朋友帮我分解一下!
谢谢各位朋友了! 展开
3个回答
展开全部
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
If KeyAscii <> 13 Then '如果是回车键 13 是回车键的ASCII码
If CurrentX >= ScaleWidth Then '判断当前鼠标坐标是不是在窗体范围内(在=true)
Print '不在的话什么也不输出
End If
Print Chr(KeyAscii); '在的话输出当前按键码
Else
Me.Cls '清屏
End If
End Sub
2008-12-21 · 知道合伙人软件行家
关注
展开全部
好像试一个 键盘记录器 吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
If KeyAscii <> 13 Then '如果不是按的回车键
If CurrentX >= ScaleWidth Then '判断当前鼠标X坐标是不是超出窗体的宽度
Print '若超宽则换行
End If
Print Chr(KeyAscii); '输出当前按键
Else
Me.Cls '若是按的回车键,则清屏
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询