vb 键盘事件过程

窗体上画两个文本框，其名称分别是Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus

End Sub

Private Sub text2_keydown(keycode As Integer, shift As Integer)
Text1.Text = Text1.Text + Chr(keycode - 4)

End Sub

程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容是什么？

答案是ABCDE。
是不是因为那个keycode - 4所以是abcde啊？可它前面是chr啊，那不是让转换为ASCII字符么？
还有为什么是大写啊？
再问一个：一直不是很明白类似的句子中Text2.SetFocus那个SetFocus是用来干嘛的。。给解释一下……
谢谢各位大侠。。。
还是不太懂为什么是大写……

就是你按下E，Text1.text原来为空
Text1.Text = Text1.Text + Chr(keycode - 4)
就相当于Text1.Text=Chr(keycode - 4) 而Chr(keycode - 4)=A
以后的就相当于累加了

keyascii是获取键的ascii值耶就是说你按下主键区的数字和按下数字键区的数字返回的是一个ascii值，但是keycode返回的相当于每个键的标号，每个键都不一样，如果你想回去的是值可以用keyascii，如果是按的什么键就用keycode，顺便说一句，只有keycode才能获取到上下左右键

Text2.SetFocus
VB焦点 焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。在 Microsoft Windows 界面，任一时刻可运行几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户输入。在有几个 TextBox 的 Visual Basic 窗体中，只有具有焦点的 TextBox 才显示由键盘输入的文本。
当对象得到或失去焦点时，会产生 GotFocus 或 LostFocus 事件。窗体和多数控件支持这些事件。
事件 描述
GotFocus 对象得到焦点时发生。
LostFocus 对象失去焦点时发生。LostFocus 事件过程主要用来对更新进行证实和有效性检查，或用于修正或改变在对象的 GotFocus 过程中建立的条件。
下列方法可以将焦点赋给对象。
运行时选择对象。
运行时用快捷键选择对象。
在代码中用 SetFocus 方法。
有些对象，它是否具有焦点是可以看出来的。例如，当命令按钮具有焦点时，标题周围的边框将突出显示
只有当对象的 Enabled 和 Visible 属性为 True 时，它才能接收焦点。Enabled 属性允许对象响应由用户产生的事件，如键盘和鼠标事件。Visible 属性决定了对象在屏幕上是否可见。注：。
注意 只有不包含任何可接收焦点的控件的窗体，才能接收焦点。

可能说的比较多

每个键对应的是 ascii值

例如a为97,b为98

得到ascii值方法：

private sub form_keypress(keyascii as integer)
msgbox keyascii
end sub

输入有ascii码的键都会得出键位的ascii码

如backspace之类没有ascii码的键可以用键盘码代替

 

改建工具 如果是原有按键还是能用的话 可以用sendkeys实现

private sub form_keypress(keyascii as integer)
if keyascii = 97 then

sendkeys （"b"）

end if
end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息