Visual Basic 程序设计案例教程第15讲.pptVIP

3333333333332222222222222222222 * Visual Basic程序设计 第十五讲 2课时 教学目标及基本要求 了解键盘事件和鼠标事件的概念。 熟练应用键盘事件过程和鼠标事件过程编写程序。 了解鼠标的拖放操作。 教学重点 KeyPress、KeyDown和KeyUp三种键盘事件。 MouseUp 、MouseDown和MouseMove三种鼠标 应用键盘事件过程和鼠标事件过程编写程序。 教学难点 应用键盘事件过程和鼠标事件过程编写程序 教学内容 键盘事件 鼠标事件 鼠标光标 拖放 键盘事件 在Visual Basic中，窗体和接受键盘输入的控件都能识别这三种键盘事件： KeyPress：按下对应某ASCII字符的键； KeyDown：按下键盘的任意键； KeyUp：释放键盘的任意键。只有获得焦点的对象才能接受键盘事件。 键盘事件 KeyPress事件 当按下某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyPress事件，返回“所按字符”的ASCII码。 语法格式： Sub Object_KeyPress(KeyAscii As Integer) 说明： Object：是指窗体或控件对象名； KeyAscii：是指KeyAscii参数返回对应ASCII字符代码的整型数值； 键盘事件 KeyDown事件和KeyUp事件 当按下或松开某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyDown事件或者KeyUp事件，返回键盘的直接状态。 语法格式为： Sub Object_KeyDown(KeyCode As Integer，Shift As Integer) Sub Object_KeyUp(KeyCode As Integer，Shift As Integer) 键盘事件 说明 KeyCode参数：表示按下的物理键，以“键”为准，而不是以“字符”为准。即大小字母使用同一个键，KeyCode相同；上档键字符和下档键字符使用同一个键，KeyCode相同。 Shift是转换键，表示事件发生时3个转换键的状态，即Shift键、Ctrl键和Alt键的状态。 二进制数 十进制数 作 用 二进制数 十进制数 作 用 000 0 没有按下任何键 100 4 按下Alt 001 1 按下Shift 101 5 按下Alt+Shift 010 2 按下Ctrl 110 6 按下Ctrl+Alt 011 3 按下Ctrl+Shift 111 7 按下Ctrl+Alt+Shift 键盘事件 举例：用Shift参数来判断是否按下了字母的大写形式。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyC And Shift = 1 Then MsgBox 你按下的是Shift键+字母C键组合，即输入大写字母C End If End Sub 鼠 标 事 件 在Visual Basic中，提供了鼠标的MouseUp 、MouseDown和MouseMove事件，通过响应这些鼠标事件，应用程序能对鼠标位置及状态的变化作出响应操作。 MouseUp：释放任意鼠标键按钮时发生； MouseDown：按下任意鼠标键按钮时发生； MouseMove：每当鼠标指针移动到屏幕新位置时。 当鼠标事件发生时，鼠标指针位于哪个对象，就由哪个对象来识别鼠标事件。 鼠标事件过程 压下鼠标按钮事件过 Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single) End Sub 松开鼠标按钮事件过程 Sub Form_MouseUp(Button As Integer,Shift As integer,x As Single,y As Single) End Sub 移动鼠标光标事件过程 Sub Form_MouseMove(Button As Integer,Shift As integer,x As Single,y As Single) End Sub 鼠 标 事 件 鼠 标 事 件 说明 Button：被按下的鼠标按钮，可取3个值： 符 号 常 量 值 作 用 符 号 常 量 值 作 用 LEFT_BUTTON 1 按下鼠标左按钮 MIDDLE_BUTTON 4 按下鼠标中间按钮 RIGHT_BUTTON 2 按下鼠标右按钮 鼠 标 事 件 说明 Shift：表示Shift、Ctrl和Alt的状态，可取3个值 ： Shift参数值