第6章 键盘与鼠标的控制.pptVIP

第6章 键盘与鼠标的控制 第6章 键盘与鼠标的控制 目 录 第1章 可视化编程与VB开发环境 第2章 VB简单应用程序的设计 第3章 VB程序设计语言基础 第4章 VB过程 第5章 VB窗体与常用控件 第6章 键盘与鼠标的控制 第7章 菜单与工具栏 第8章 文件管理 第9章 图形处理与多媒体 第10章 数据库应用程序的开发 6.1键盘的控制 6.2鼠标的控制 6.3拖放 第一章 节 目 录 6.4案例四设计 第一节 原子结构1 掌握在程序中处理键盘、鼠标的各种输入； 熟悉与键盘、鼠标相关的事件； 能够编写简单的拖放程序。 学习目标 【案例四】一个有趣的拖放动画 拖放动画 如何实现拖放？ 如何实现动画？ 如何监视控件的状态？ 6.1 键盘的控制 键盘事件 键盘的3个事件并不互相排斥。当按下一个键时将触发KeyPress和KeyDown事件，而松开此键后将触发KeyUp事件。 键盘事件 触发原因 KeyPress 按下和松开一个 ANSI 键时发生 KeyDown 按下任意键时发生 KeyUp 松开任意键时发生 6.1 键盘的控制 KeyDown与KeyUp事件 不是所有的按键KeyPress事件都能检测，对于不能检测的按键可以通过KeyDown和KeyUp事件来控制 事件过程的一般格式 Private Sub 对象名_KeyDown|KeyUp(KeyCode As Integer, Shift As Integer) End Sub 参数KeyCode：按键的键代码，一个键只有一个KeyCode 6.1 键盘的控制 KeyDown与KeyUp事件 Shift 参数：反映3个控制键(Shift、Ctrl、Alt)状态的参数 Alt Ctrl Shift 2 1 0 二进制数 VB常数 含义 000 3个键均未按下 001 vbShiftMask 按下Shift键 010 vbCtrlmask 按下Ctrl键 …… …… …… 111 bAltMask+vbCtrlMask+vbShiftMask 3个键同时按下 6.1 键盘的控制 【例6-1】编写一个程序输出按键的KeyCode码。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Static i i = i + 1 If i Mod 10 = 0 Then Print Chr(KeyCode); --; Hex(KeyCode); ; Print: Print ElseIf KeyCode = 13 Then i = 0 Print: Print Else Print Chr(KeyCode); --; Hex(KeyCode); ; End If End Sub 6.2 鼠标的控制 常用鼠标事件 鼠标事件 需要注意事件发生在哪一个对象上 Click、DblClick事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发 6.2 鼠标的控制 常用鼠标事件 事件过程模板 Private Sub 对象名_事件名(Button As Integer, Shift As Integer, X As Single, Y As Single) ? End Sub Button：是一个检测鼠标按键的参数 Shift：是一个检测3个控制键的参数 x,y：表明了鼠标指针的位置 6.2 鼠标的控制 鼠标按键的检测 Button参数 十进制数 二进制数 VB常数 含义 1 001 vbLeftButton 按下鼠标左键 2 010 vbRightButton 按下鼠标右键 3 011 vbRightButton+vbLeftButton 同时按下左键和右键 【例6-2】MouseDown事件的应用—画连直线 6.2 鼠标的控制 鼠标与键盘的结合 通过Shift参数 【例6-4】窗体上有一幅图片，指向图片按Shift键并单击，使图片移到窗体的正中间。 6.3 拖放 拖放概述 “拖放”是指用鼠标将一个对象从一个地方拖(Dragging)到另一个地方再放下(Dropping)的操作 DragMode属性：设置对象的拖放模式 自动拖放(1-Automatic) 手工拖放(0-Manual) 如果将一个对象的DragMode属性设置为1，则该对象将不再接收Click事件和MouseDown事件。 6.3 拖放 拖放概述 DragIcon属性：拖放时显示的图标或图片 与拖放相关的事件与方法 DragDrop事件：一个对象拖到一个