计算机基础与Visual Basic程序设计 教学课件 作者 978 7 302 28844 2 第十章 用户界面设计 鼠标与键盘.pptVIP

例1 如果希望将文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事件转换 Private Sub Text1_KeyPress (KeyAscii As Integer) IF Not (KeyAscii=48 and KeyAscii=57) And KeyAscii46 And KeyAscii8 And KeyAscii13 Then KeyAscii=0 功能:取消该字符和这次按键操作 End If End Sub Private Sub Text1_KeyPress (KeyAscii As Integer) KeyAscii = 42 End Sub KeyDown 和 KeyUp 事件 10.4.2 鼠标事件 10.4.2 鼠标事件 10.4.2 鼠标事件 10.4.2 鼠标事件 10.4.2 鼠标事件 鼠标事件通常用于作图（画线(Line)/画圆等(Circle)）： 在鼠标（左键）按下时开始作图（记下作图起始坐标），或者结束一次作图； 在鼠标移动（拖动（左键/右键））过程中，连续作图或不作图； 在鼠标（左键/右键）按下/弹起时结束作图（或为下一次作图作好准备（记下坐标））。 在设计作图程序时，必须明白作图是在什么时候开始，在什么时候结束，在什么情况下作图？以选择正确的事件和在正确的事件过程中完成正确的操作。 10.4.3鼠标指针 MousePointer属性（0……15，99） vbDefault(0) vbArrow(1) vbCrosshair(2) MouseIcon属性：在MousePointer=99时有效 由用户指定鼠标指针形状 10.4.4 拖放操作 10.4.4 拖放操作 1. 理解鼠标、键盘事件的触发机制。 2. 掌握鼠标的MouseDown， MouseMove， MouseUp事件中各参数的含义及编程控制。 3. 掌握键盘的KeyDown， KeyPress， KeyUp 事件中各参数的含义及编程控制 4. 了解事件驱动的拖放和 OLE 的拖放。 本章要求： 第10章 键盘与鼠标事件过程 本章重点： 本章难点： 理解鼠标、键盘事件的触发机制运用 事件驱动的拖放和 OLE 的拖放 10.4.1 键盘事件 在Visual Basic中，提供KeyPress、KeyDown、KeyUp三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。 KeyPress 按下对应某ASCII 字符的键。 KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键 只有获得焦点的对象才能够接受键盘事件。 默认状态下控件的键盘事件优先于窗体的键盘事件，如果希望窗体优先接受键盘事件，必须把窗体的KeyPreview属性设置为True。 KeyPress 事件 在按下与ASCII字符对应的键时将触发KeyPress 事件，按 下无ASCII值的键将不产生此事件。 KeyPress 事件过程的语法格式是： Sub Object_KeyPress ( KeyAscii As Integer) …… End Sub （1）KeyAscii 参数代表所按按键的ASCII码值,可在事件过程中利用此值进行判断控制。 （2）可在过程体内给KeyAscii 赋新值来改变显示结果。 10.4.1 键盘事件 Private Sub Text1_KeyPress ( KeyAscii As Integer) KeyAscii = Asc( Ucase ( Chr( KeyAscii ) ) ) End Sub 例2 通过编程序，在一个文本框（Text1）中限定只能输 入数字(48-57)、小数点(46)、BackSpace 键(8)及回车键(13)。 缺点：条件表达太复杂，能否简化之？ 例3 使文本框中按任意键都显示一个星号（42） Private Sub Text1_KeyPress (KeyAscii As Integer) Select Case KeyAscii Case 48 to 57 , 46 , 8 , 13 Case Else KeyAscii=0 功能:取消该字符和这次按键操作 En