第九章 交互界面设计.pptVIP

第九章 交互界面设计 本节的学习要点 键盘事件 KeyPress事件过程 KeyDown事件过程 KeyUp事件 鼠标事件 (1)鼠标点击 MouseDown事件 MouseUp事件 MouseMove事件 (2)鼠标拖放 DragDrop事件 DragOver事件 键盘事件 键盘事件: KeyPress事件：按下并释放一个会产生ASCII码的键时被触发 Sub Form_KeyPress(KeyAscii As Integer)　　　 说 明 （1）注意不同事件所引用的参数不同: KeyAscii： 字符的ASCII码。是KeyPress事件使用的参数， 方向键、功能键（如F1, Shift,Ctrl）没有ASCII码，KeyPress不会发生。 KeyCode：键盘扫描码。是KeyDown事件和KeyUp事件使用的参数。 Shift参数：指示Shift、Ctrl、Alt是否被按下。 说 明 （2）三个事件的先后顺序： 先是KeyDown，再是KeyPress，最后是KeyUP。 键盘事件的用途 　1. 修改输入数据： 例：窗体上的所有控件接收到的字符都转换成大写。 　 Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(a) And KeyAscii = Asc(z) Then KeyAscii = KeyAscii + Asc(A) - Asc(a) End If End Sub 2. 限制数据输入： 例：文本框只能接收“0”～“9”的数字字符。 Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub 3.用键盘控制图形图像的运动路线 键盘事件实例一 例1 编写一个程序，当按下Alt+F5时终止程序的运行。 (注：F5的KeyCode码为vbKeyF5) ‘先把窗体的KeyPreview设置为True，再编写如下的程序： Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyF5) And (Shift = 4) Then End End If End Sub 键盘事件实例二 例2 “警察抓小偷”游戏:通过按方向键移动“警察”，当遇到“小偷”后，屏幕显示按键的次数。 编程思路： 利用上、下、左、右四个箭头键控制“警察” ，KeyCode码为： “?”：37(H25) “?”：38(H26) “?”：39(H27) “?”：40(H28) (2)按下箭头键时触发窗体KeyDown事件，在该事件过程中移动“警察”。 　 (3)如果Abs(Picture1.Left - Picture2.left 300) And Abs(Picture1.Top - Picture2.Top 320)成立，则认为是重叠，“警察”抓住了“小偷”。 (4) 在窗体上的时钟控件(Timer1)过程中控制“小偷”的随机移动和计时。 鼠标事件 1. 除了Click、DblClick外，还有三个： MouseDown事件：按下任意一个鼠标按钮时被触发 Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) MouseUp事件：在释放任意一个鼠标按钮时被触发 Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseMove事件：在移动鼠标时被触发 Sub Form_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single) 注意： 鼠标事件可发生窗体上，也可以发生在控件上。 当鼠标指针位于窗体中没有控件的区域时，窗体将识别鼠标事件。当鼠标指针位于某个控件上方时，该控件将识别鼠标事件。 鼠标事件参数说明 (1) Button参数：指示按下或释放了哪个鼠标按钮。 鼠标事件参数说明 (2)Shift参数：同键盘事件的Shift参数。 鼠标事件参数说明 鼠标的形状