教程：VB编程键盘和鼠标事件

1.了解鼠标和键盘事件的触发机制。 2.掌握鼠标的MouseDown，MouseMove，MouseUp事件中每个参数的含义和编程控制。 3.掌握键盘的KeyDown，KeyPress和KeyUp事件中的参数的含义和编程控制。 4.了解事件驱动的拖放和OLE拖放。本章的要求：第6章键盘和鼠标事件处理本章的重点：本章的难点：了解鼠标和键盘事件的触发机制在Visual Basic中使用事件驱动的拖放和OLE拖放，并提供三个键盘：KeyPress，KeyDown和KeyUp事件，接受键盘输入的窗体和控件都可以识别这三个事件。 KeyPress按下对应于某个ASCII字符的键。 KeyDown按下键盘上的任意键。 KeyUp释放键盘的任何键，只有具有焦点的对象才能接收键盘事件。 6. 1. 1 KeyPress事件当按下与ASCII字符对应的键时，将触发KeyPress事件。 6. 1键盘事件KeyPress事件过程的语法格式为：Sub Object_KeyPress（KeyAscii As Integer）其中：例如，如果要强制将文本框中的所有字符都转换为大写字符，则可以使用此事件在输入期间的转换情况：私有子Text1_KeyPress（作为整数的KeyAscii）KeyAscii = Asc（Ucase（Chr（KeyAscii）））End SubObject引用表单或控件对象的名称。 KeyAscii参数返回一个与ASCII字符代码相对应的整数值。

6. 1键盘事件示例6. 1通过编程，在文本框（文本1）中，只能输入数字和小数点，并且只能响应BackSpace键和Enter键。） Text1_KeyPress（KeyAscii As Integer）Select Case KeyAsciiCase 48到57,46,8,13Case ElseKeyAscii = 0End Select End SubKeyPress事件仅识别Enter，Tab和Backspace键，无法检测到其他功能键，编辑键和定位键6. 1键盘事件是在对象具有焦点的情况下按下键（KeyDown）或释放键（KeyUp）时发生的事件，它们报告键盘本身的确切物理状态：按下键（KeyDown）和释放键（KeyUp）。它可以检测其他功能键，编辑键和定位键，KeyUp和KeyDown事件过程的语法格式如下：Sub Object_KeyDown（键码为整数，Shift为整数）Sub Object_KeyUp（键码为整数，Shift为整数）说明：1.键码该参数表示物理k按下。

上移键字符和下移键字符也使用相同的键，并且它们的键码值相同。 。 6. 1键盘事件的Keycode参数通过ASCII值或键码常数来标识键。字母键的键码与此字母的大写字符的ASCII值相同。因此，“ A”和“ a”的键码是Asc（“ A”）返回的值。在下面的示例中，使用KeyDown事件来确定是否按下了“ A”键：6. 1键盘事件Private Sub Text1_KeyDown（KeyCode As _Integer，Shift As Integer）If KeyCode = vbKeyA ThenMsgBox“您按下了A键。 ”如果End Sub私有Sub Text1_KeyDown（KeyCode为_Integer，Shift为整数）则结束，如果KeyCode = vbKey1且shift = 1则MsgBox“您按下了！”键。如果结束Sub 6. 1键盘事件2，则结束。 shift参数shift表示事件发生时响应SHIFT，CTRL和ALT键的状态。是整数。

中的含义

与上一节中的MouseMove，MouseDown和MouseUp事件中的shift参数完全相同。 。例如：以下示例使用Shift参数确定是否按下字母的大写形式。 。私人子Text1_KeyDown（KeyCode AsInteger，Shift为整数）如果KeyCode = vbKeyA并且Shift = 1 ThenMsgBox“您按了大写字母A键。”如果结束Sub 6. 1键盘事件的思考问题，请结束：编写一个文本框（（Text 1）），该程序可以响应键盘组合操作。用户操作的每一步都会在标签框中显示相关信息（ （Label 1））。6. 1键盘事件6. 2鼠标事件大多数控件都可以识别鼠标的MouseMove，MouseDown和MouseUp事件，通过响应这些鼠标事件，应用程序可以响应位置变化。 MouseMove每当鼠标指针移到屏幕上时都会发生在位置上MouseDown会在按下任何鼠标按钮时发生MouseUp会在释放任何鼠标按钮时发生6. 2. 1鼠标事件过程MouseMove ，MouseDown，MouseUp这三个事件的处理语法格式如下：Sub Object_MouseMove（按钮为整数，Shift为整数，_X为单个，Y为单个）Sub Object _MouseDown（按钮为整数，Shift作为整数，_X作为单个，Y作为单个）子对象_MouseUp（B utton（整数），Shift（整数），_ X（单），Y（单））其中：1.对象是一个可选的对象表达式，可以是表单对象和大多数可视控件。

。 2。 Button参数指示按下或释放哪个按钮。 6. 2鼠标事件参数按钮值参数（按钮）值说明vbLeftButton1按下左按钮vbRightButton 2按下右按钮vbMiddleButton 4按下中间按钮6. 2鼠标事件参数Shift值参数（Shift）值描述vbShiftMask1 SHIFT键被按下vbCtrlMask2 CTRL键被按下vbAltMask4 ALT键被按下3。Shift参数指示按下或释放由Button参数指定的按钮时键盘的Shift，Ctrl和Alt键的状态。 6. 2鼠标事件Ctrl，Shift和Alt与三个键结合使用，如表12所示。-1 6. 2鼠标事件4.参数X，YX，Y是鼠标的位置指针。 X和Y参数返回一个数字，该数字指定鼠标指针的当前位置。 X和Y的值在对象的坐标系中表示。鼠标指针的当前位置。注意：鼠标事件用于识别和响应各种鼠标状态，并将这些状态视为独立事件。按下并释放鼠标按钮时，Click事件只能将该过程识别为一次单击操作。

鼠标事件可以区分每个鼠标按钮和键盘的SHIFT，CTRL和ALT键的状态。示例：使用MouseUp，MouseDown和MouseMove事件编写一个简单的程序，该程序使用鼠标在表单上绘制。 6. 2鼠标事件6. 3. 1控件拖放（简要介绍，通常不是必需的）在运行时拖动控件，通常无法自动更改控件的位置，因此必须使用Visual Basic拖动和drop Function通过编程可以拖动控件并在运行时更改其位置。按下鼠标按钮并移动控件的操作称为拖动，释放按钮的操作称为放下。 6. 3拖放操作DargDrop拖放事件：：在运行期间拖放鼠标以触发DragDrop事件。源和目标：源：是指被拖放的控件（不包括菜单，计时器，线条和形状控件）。 目标：指控件所在的对象，可以是表单，也可以是控件。注意：拖放操作将触发目标对象的DragDrop事件。语法：Private Sub Form_DragDrop（源为控件，x为单个，y为单个）私有子对象name_DragDrop（[index为整数，]源为控件，x为单个，y为单个）说明：•index：控件中的唯一标识符控制数组。

•源：控件被拖放。 •X，y：鼠标在目标对象中的位置坐标。 •流程名称中的表单或对象名称是目标对象。属性设置：（为了在运行时实现拖动）DragMode属性：源控件的DragMode属性设置为1，表示自动模式。 （默认值为0：手动模式）DragIcon属性：设置通过拖放显示的图标。 DragOver：当用户用鼠标拖动源对象以传递目标对象时，无论是否释放鼠标，都会触发目标对象的DragOver事件。 （源对象的RagMode = 1）语法：私有子Form_DragOver（源作为控件，x作为单个，y作为单个，状态为整数）私有子对象name_DragOver（[index作为整数，]源作为控件，x作为单个，y为单值，状态为整数）说明：•状态：表示要在目标对象上拖动的源对象的当前状态。值：0 = Enter（源对象进入目标对象的区域）1 =离开（源对象离开目标对象的区域）2 =跨越（源对象在目标对象的区域内移动）思考问题：在表单上放置1个图像控件，1个图片控件，1个标签控件，并设计一个如图所示的应用程序，实现对象的拖放功能6. 3拖放操作6. 3. 2 OLE拖放Visual Basic支持OLE拖放，使用此功能强大且实用的工具，您可以通过OLE拖放应用程序（例如Windows资源管理器，Word，Excel，等），在控件之间拖放数据。（简要介绍，通常不需要）6. 3拖放操作

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/bofangqi/article-317127-1.html