计算机二级vb教程mouse1.pptVIP

键盘与鼠标事件过程 §1. KeyPress事件 §2. KeyDown和KeyUp事件 §3. 鼠标事件 §4. 鼠标光标的形状 §5. 拖放 * * 使用键盘事件过程，可处理当按下或释放键盘上某个键时所执行的操作，鼠标事件过程可用来处理与鼠标光标的移动和位置有关的操作。 当压下键盘上某个键时，将发生KeyPress事件，所触发的是拥有输入焦点的那个控件的KeyPress事件。在某一时刻，输入焦点只能位于一个控件上，如窗体上没有活动的或可见的控件，则输入焦点位于窗体上。当一个控件或窗体拥有焦点时，该控件或窗体将接收从键盘上输入的信息。 KeyPress事件过程格式为： Private Sub Text1_KeyPress(KeyAscii As Integer) ? End Sub KeyPress事件带有一个参数，这个参数有两种形式。第一种形式是Index As Integer，只用于控件数组；第二种形式是KeyAscii As Integer，用于单个控件。KeyPress事件用来识别按键的ASCII码。参数KeyAscii是一个预定义的变量，执行KeyPress事件过程时，KeyAscii是所按键的ASCII码。利用KeyPress事件可对输入的值进行限制。 默认情况下，控件的键盘事件优先于窗体的键盘事件。如希望窗体先接收键盘事件，则必须把窗体的KeyPreview属性设置为True，否则不能激活窗体的键盘事件。 KeyDown和KeyUp事件返回的是键盘的直接状态，而KeyPress并不反映键盘的直接状态。即KeyDown和KeyUp事件返回的是“键”，而KeyPress事件返回的是“字符”的ASCII码。如按字母“A” KeyDown得到的KeyCode码(KeyDown事件的参数)与按字母“a”是相同的，而对KeyPress来说，得到的ASCII码不一样。 KeyDown和KeyUp事件的参数也有两种形式，其中Index As Integer用于控件数组；而KeyCode As Integer，Shift As Integer用于单个控件。 KeyDown和KeyUp事件都有两个参数，即KeyCode和Shift，其含义为： 1.KeyCode：它是按键的实际的ASCII码。该码以“键”为准，不是以“字符”为准，即大写字母与小写字母使用同一个键，它们的KeyCode相同(使用大写字母的ASCII码)。但大键盘上的数字键与数字键盘上相同的数字键的KeyCode是不一样的。对有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码。KeyCode可通过程序求出。 2.Shift：转换键。指的是3个转换键的状态，包括Shift、Ctrl和Alt，这3个键分别以二进制形式表示，每个键有3位，Shift键为001，Ctrl键为010，Alt键为100。当按下Shift时，Shift参数值为001(十进制数1)，按下Ctrl键时，Shift参数值为010(十进制数2)，按下Alt键时，Shift参数值为100(十进制数4)。如同时按下两个或3个转换键，则Shift参数值为上述两者或三者之和。 KeyDown是当一个键被按下所产生的事件，而KeyUp是松开被压下的键时所产生的事件。 利用逻辑运算符And可判断是否按下了某个转换键。如先定义3个符号常是：Const Shift=1, Const Ctrl=2, Const Alt=4 然后用下面的语句判断是否按下Shift、Ctrl或Alt键： 如果 Shift And Shift0 则按下了Shift键 如果 Shift And Ctrl0 则按下了Ctrl键 如果 Shift And Alt0 则按下了Alt键 窗体上的每个对象都有自己的键盘处理程序。一般一个键盘处理程序是针对某个对象(包括窗体和控件)进行的，而有些操作可能具有通用性，适用于多个对象。在这种情况下，可编写一个适用于各个对象的通用键盘处理程序。对某个对象来说，当发生某个键盘事件时，只要通过传送KeyCode和Shift参数调用通用键盘处理程序就可以了。 注意：在设计阶段，应把窗体的KeyPreview属性设置为True。 VB中已把键盘上的功能键定义为常量，即vbKeyFx，这里的x可以是1～12的值。如vbKeyF5表示功能键F5，这些常量可直接在程序中使用。 为实现鼠标操作，VB提供了3个过程模板： ⑴压下鼠标键事件过程 Sub Form_MouseDown(Butto