新Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 李勇帆 第15讲.pptVIP

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键的状态。 键盘事件 举例：用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个值： 鼠 标 事 件 说明 Shift：表示Shift、Ctrl和Alt的状态，可取3个值 ： 鼠 标 事 件 说明： x、y：鼠标光标的当前位置。这里的x、y不须要给出具体的数值，它随鼠标光标在窗体上移动而变化。 当移到某个位置时，如果按下键，则产生MouseDown事件；如果松开按键，则产生MouseUp事件。 （x，y）通常指接收鼠标事件的窗体或控件上的坐标。 鼠 标 事 件 举例：下面过程可用来测试按下鼠标的哪一个键。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Print 按下鼠标左键 If Button =