系统环境资源的应用.ppt

第八章 系统环境资源的应用 主要内容 §8.1 键盘事件 §8.2 鼠标属性 §8.3 鼠标事件 §8.4 拖放 §8.5 系统对象 §8.1 键盘事件 键盘事件和鼠标事件都是用户与程序之间交互操作中的主要元素。单击鼠标任意键和按下键盘上的任何按键都可触发事件。 只有获得焦点的对象才能够接受键盘事件。对于键盘事件，只有当窗体为活动窗体且其上所有控件均未获得焦点时，窗体才获得焦点。这种情况只有在空窗体和窗体上的控件都无效时才发生。但是，如果将窗体上的KeyPreview属性设置为True，则对每个控件在控件识别其所有键盘事件之前，窗体就会接受这些键盘事件。当您希望无论何时按下某按键都会执行同一个操作，而不管哪个控件在此时具有焦点时，设置KeyPreview属性将极为有用。 §8.1 键盘事件 一、 KeyPress 事件 1、当用户按下与ASCII字符相对应的键时，将触发此事件。通过KeyPress事件可对标准键盘编写代码来处理大多数按键。 2、此事件中只有一个参数，是用户按键的ASCII码值。ASCII字符不仅代表标准键盘的字母、数字和标点符号，而且也代表大多数控制键。但是KeyPress事件只识别Enter、Tab和BackSpace键。 §8.1 键盘事件 例1：将某文本框中正在输入的所有字符都强制转换为大写字符 Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(Ucase(Chr(KeyAscii))) End Sub 例2：检测用户是否正在按BackSpace键: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=8 then MsgBox “您按下了BackSpace键。”, ,”检测键盘” End Sub §8.1 键盘事件 二、KeyDown、KeyUp事件 1、KeyDown和KeyUp事件提供了最低级的键盘响应，在程序中可用这些事件检测下列KeyPress事件无法检测到的情况： （1）Shift、Ctrl和Alt键的特殊组合。 （2）方向键。 （3）PageUp和PageDown键。 （4）区分数值小键盘的数字键与标准键盘中的数字键。 （5）不仅响应按键操作而且响应释放键的操作。 （6）与菜单命令无联系的功能键。 §8.1 键盘事件 2、KeyDown和KeyUp事件通过提供KeyCode和Shift两个参数返回输入字符的信息。 （1）KeyCode参数指示按下的物理键。这时将“A”与“a”作为同一个键返回。它们是有相同的KeyCode值。但是请注意，主键盘上的“1”和数字小键盘的“1”被作为不同的键返回，尽管它们生成相同的字符。 （2）Shift参数指示Shift、Ctrl和Alt键的状态。只有检查此参数才能判断输入的是大写字母还是小写字母。 §8.1 键盘事件 例3：KeyCode参数通过ASCII值或键盘代码常数来识别键。字母键的键代码与此字母的大写字符的ASCII值相同。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then MsgBox 你按的是A键“ End Sub 例4：KeyDown和KeyUp事件可识别标准键盘上的大多数控制键。通过键代码常数或相应的ASCII值检测这些键。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyPageUp Then MsgBox 您按的是PageUp键。, ,键盘检测 End Sub §8.1 键盘事件 Shift参数是用来在事件发生时记录Shift，Ctrl和Alt键状态的一个整数，它实际上是一个位域，它用第0位对应Shift键，第1位对应Ctrl键，第2位对应Alt键，如图所示： §8.1 键盘事件 根据Shift、Ctrl、Alt键的状态可在Shift中设置任一位或设置所有位，下表列出了这些值和常数。 §8.2 鼠标属性 一、MousePointer MousePointer返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，显示的鼠标指针的类型。也就是说，鼠标在不同的对象上可以有不同的显示类型。 语法： Object.MousePointer=value 说明： Value：按照设置值中的说明指定显示的鼠标指针类型。Value的设置值见下表。 §8.2 鼠标属性 §8.2 鼠标