VB编程中的键盘和鼠标知识总结！

大家好，今天我们来学习VB编程中的键盘与鼠标知识。

读书改变命运，这个理论在当今社会仍然适用。并且越喜欢读书学习的人，越有更多机会去选择自己想要的生活。

不要惧怕读书的苦，这是你通向美好未来最好的路，共同努力！

---

VB中的键盘与鼠标事件

---

KeyPress事件

KeyPress事件简介

在窗体上画一个控件（指可以发生KeyPress事件的控件），并双击该控件，进入程序代码窗口后，从'过程'框中选取KeyPress，即可定义KeyPress事件过程。

一般格式为：

Private Sub Text1_KeyPress(KeyAscii As Integer)

    '用户按下并释放一个能产生ASCII码的键时被触发

End Sub

KeyPress事件带有一个参数，这个参数有两种形式：

第1种形式是Index As Integer，只用于控件数组；

第2种形式是KeyAscii As Integer，用于单个控件。

---

KeyDown和KeyUp事件

KeyDown和KeyUp事件简介

KeyDown和KeyUp事件的参数也有两种形式，其中Index As Integer

只用于控件数组，而KeyCode As Integer,Shift As Integer用于单个控件。

KeyDown和KeyUp事件都有两个参数，即KeyCode和Shift。

①KeyCode是按键的实际ASCII码。该码以'键'为准，而不是以'字符'为准。

②Shift转换键。它指的是3个转换键的状态，包括Shift，Ctrl和Alt键，这3个键分别以二进制数形式表示，每个键有3位，即Shift键为001，Ctrl键为010，Alt键为100。

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

'用户按下任一个键时被触发

End Sub

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)

'用户释放任一个键时被触发

End Sub

---

鼠标事件

鼠标事件简介

为了实现鼠标操作，Visual Basic中提供了以下3个事件过程。

(1)按下鼠标键事件过程；

(2)松开鼠标键事件过程；

(3)移动鼠标光标事件过程

按下鼠标事件过程

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

松开鼠标事件过程

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

移动鼠标光标事件过程

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

上述事件过程使用于窗体和大多数控件，包括复选框、命令按钮、单选按钮、框架、文本框、目录框、文件框、图像框、图片框、标签、列表框等。

3个鼠标事件过程具有相同的参数，含义如下。

 Button:被按下的鼠标键，可以取3个值：

• 值为1：按下鼠标左键；

• 值为2：按下鼠标右键；

• 值为3：按下鼠标中键。

 Shift：表示Shift、Ctrl和Alt键的状态（是否同时按下）。

 X，Y：鼠标光标的当前位置。

---