Visual Basic 程序设计1 (14).ppt

1、Visual Basic程序设计,第十五讲 2课时,教学目标及基本要求,了解键盘事件和鼠标事件的概念。 熟练应用键盘事件过程和鼠标事件过程编写程序。 了解鼠标的拖放操作。,教学重点,KeyPress、KeyDown和KeyUp三种键盘事件。 MouseUp 、MouseDown和MouseMove三种鼠标 应用键盘事件过程和鼠标事件过程编写程序。,教学难点,应用键盘事件过程和鼠标事件过程编写程序,教学内容,键盘事件 鼠标事件 鼠标光标 拖放,键盘事件,在Visual Basic中，窗体和接受键盘输入的控件都能识别这三种键盘事件： KeyPress：按下对应某ASCII字符的键； KeyDown

2、：按下键盘的任意键； KeyUp：释放键盘的任意键。只有获得焦点的对象才能接受键盘事件。,键盘事件,KeyPress事件 当按下某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyPress事件，返回“所按字符”的ASCII码。 语法格式： Sub Object_KeyPress(KeyAscii As Integer) 说明： Object：是指窗体或控件对象名； KeyAscii：是指KeyAscii参数返回对应ASCII字符代码的整型数值；,键盘事件,KeyDown事件和KeyUp事件 当按下或松开某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyDown事件或者Key

3、Up事件，返回键盘的直接状态。 语法格式为： 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参数来判断是否按

4、下了字母的大写形式。 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：按下任意鼠标键按钮

5、时发生； 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(But

6、ton 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）通常指接收鼠标事件的窗体或控件上的坐标。,鼠 标 事 件,鼠 标 事 件,举例：

7、下面过程可用来测试按下鼠标的哪一个键。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Print 按下鼠标左键 If Button = 2 Then Print 按下鼠标右键 If Button = 4 Then Print 按下鼠标中间键 End Sub,鼠 标 事 件,举例：下面过程可以判断是否同时按下了鼠标的左、右键。 Private Sub Form_MouseMove(Button As Integer, Shif

8、t As Integer, X As Single, Y As Single) If (Button And 3) = 3 Then Print 正同时按着鼠标的左、右键 End If End Sub,鼠 标 光 标,MousePointer属性 设置鼠标光标形状 在程序代码中设置MousePointer属性 在属性窗口中设置MousePointer属性 自定义鼠标光标,拖放,拖放：就是用鼠标从屏幕上把一个对象从一个地方拖拉（Dragging）到另一个地方再放下。 一般过程：把鼠标光标移到一个控件对象上，按下鼠标键（不要松开），然后移动鼠标，对象将随鼠标的移动而在屏幕上拖动，松开鼠标键后，对象

9、即被放下。 常常把原来位置的对象叫做源对象，而拖动后放下的位置的对象叫做目标对象，在拖动的过程中，被拖动的对象呈现灰色。,小结,Visual Basic应用程序能够响应多种键盘事件和鼠标事件。在Visual Basic中，提供了三种键盘事件：一是KeyPress，按下对应某ASCII字符的键；二是KeyDown，按下键盘的任意键；三是KeyUp，释放键盘的任意键。同时，也提供了三种鼠标事件：一是MouseUp，释放任意鼠标键按钮；二是MouseDown，按下任意鼠标键按钮；三是MouseMove，移动鼠标指针到屏幕新位置。通过响应这些键盘及鼠标事件，应用程序能对其位置及状态的变化作出响应操作。,作业,简述KeyDown与KeyPress