vb程序设计CAI第6章节窗体与基本控件幻灯片.pptVIP

表6.7 Shift参数的值 十进制 二进制 作 用 0 000 没有按下转换键 1 001 按下一个Shift键 2 010 按下一个Ctrl键 3 011 按下一个Ctrl+Shift键 4 100 按下一个Alt键 5 101 按下一个Alt+Shift键 6 110 按下一个Alt+Ctrl键 7 111 按下一个Alt+Ctrl+Shift键 6.4.2 键盘事件 当控制焦点置于某对象上，同时用户按下键盘中的任一键，便会使对象引发KeyDown事件，释放按键便引发对象的KeyUp事件。与KeyPress事件不同，KeyUp事件和KeyDown事件返回的是被按下或释放的键盘扫描码和组合键的状态。其事件过程形式如下： Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Sub object_KeyDown(［Index As Integer,］KeyCode As Integer,Shift As Integer) Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Sub object_KeyUp(［Index As Integer,］KeyCode As Integer,Shift As Integer) 6.4.2 键盘事件 其中： (1)KeyCode参数是用户所操作的那个键的扫描代码，它告诉事件过程，用户操作的物理键，也就是说，大写字母和小写字母使用同一个键，他们的KeyCode相同。对于有上档字符和下档字符的键，其KeyCode也是相同的，即为下档字符的ASCII码。表6.8列出的部分字符的KeyDown事件的KeyCode和KeyPress事件的KeyAscii码以供区别。 (2)Shift是一个整数，与鼠标事件过程中的Shift参数意义相同。 表6.8 KeyCode与KeyAscii码 键(字符) KeyCode KeyAscii A H41 H61 a H41 H61 B H42 H62 b H42 H62 5 H35 H35 % H35 H25 1(大键盘上) H31 H31(( 1(大键盘上) H61 H31 在VB中已把键盘上的功能键定义为常量，即vbKeyFX，这里的X可以是1到12的值。例如。vbKeyF5表示功能键F5。这些常量可以在程序中使用。 6.4.2 键盘事件 【例6.12】编写一个程序，当按下Alt+F5键时终止程序的运行。 【例6.13】编写一个程序，测试某个功能键是否被按下。 【例6.14】编写一个程序，当按下键盘上的某个键时，输出该键的KeyCode码。 6.4.3 鼠标光标的形状 6.4.4 设置鼠标光标形状 1.在代码中设置MousePointer属性格式：对象.MousePointer=设置值 功能：设置光标的形状。 说明： (1)对象可以是窗体、列表框、图像框、图片框等。 (2)设置值是1～15中其中的一个值。 【6.15】编写程序，显示鼠标的形状。 上述程序运行后，把鼠标光标移到窗体内，每单击一次变换一种鼠标光标的形状，将依次显示鼠标的15个属性。 6.4.4 设置鼠标光标形状 2.在属性窗口中设置MousePointer属性在属性窗口中设置MousePointer属性的操作步骤如下： (1)单击属性窗口的MousePointer属性条。 (2)单击设置框右端向下的箭头，将下拉显示MousePointer属性的15个属性值，如图6.25所示。 (3)单击某个属性值，即可把该值设置为当前活动对象的属性值。 3.自定义鼠标光标 4