Visual Basic程序设计教程第10章.pptxVIP

第10章 键盘与鼠标操作键盘事件与鼠标相关的事件和属性拖放操作10.1 键盘事件键盘是一种输入数据或者信息的重要工具，有些控件（如窗体和文本框）本身已经具备了处理输入按键的功能，所以在简单编程的情况下可以不必编写键盘事件过程。但是，如果要识别组合键、功能键、光标移动键、小键盘（数字键盘）上的按键、区别按下和松开的动作、对输入字符进行筛选，就要使用键盘事件了，本节介绍的键盘事件有KeyPress事件、KeyDown事件和KeyUp事件。10.1.1 KeyPress事件KeyPress事件，就是当按下键盘上的一个可打印字符键（字母、数字和符号）时所激发的事件。我们知道，在某个时刻，输入焦点只能位于某一个控件上（如果窗体上没有活动的或可见的控件，则输入焦点位于窗体控件上），当一个控件拥有输入焦点时，该控件才能接受从键盘上输入的信息，所以当按下某个键时，所激发的是拥有输入焦点的那个控件的KeyPress事件。支持KeyPress事件的控件有窗体、命令按钮、文本框、复选框、单选框、列表框、组合框、滚动条与图片框等。该事件过程的语法是：其中object是指支持KeyPress事件的控件名，比如文本框控件的KeyPress事件的语法就是：整形参数KeyAscii传递的是按键字符的ASCII码。例如，当按下F键时，KeyAscii的值为70；按下！键时，KeyAscii的值为33等。我们可以使用Chr（KeyAscii）函数将KeyAscii参数转变为一个字符，例如Chr（70）=F。Private Sub object_KeyPress(KeyAscii As Integer)?End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)?End SubKeyPress事件只能够处理可打印的键盘字符和为数很少的几个功能键，如Enter（回车键）和BackSpace（退格键），对于其他功能键、编辑键和定位键，则不作响应。如果要处理不被KeyPress识别的击键，则应该使用KeyDown和KeyUp事件。KeyPress事件在截取对TextBox或ComboBox控件输入的击键时非常有用，它可以立即测试击键的有效性并在字符输入时对其进行处理。我们如果在KeyPress事件过程中改变了KeyAscii参数的值，就会改变实际输入的字符，将KeyAscii的值改变为0时可取消击键，这样对象便接收不到字符了。因为不同的字符的ASCII码是不同的，所以利用KeyPress事件可以判断和控制用户的输入，例如可以控制用户在文本框中只能输入数字或字母，还可以判断用户输入的字母是大写还是小写。我们把一个文本框控件（Text1）拖到窗体上，然后进入程序代码窗口，在“过程”框中选择KeyPress，编写如下代码：Private Sub Text1_KeyPress(KeyAscii As Integer) Text1.Text = If KeyAscii 48 Or KeyAscii 57 Then Beep KeyAscii = 0 Else KeyAscii = KeyAscii + 1 End IfEnd Sub上述过程首先控制用户的输入，它只允许用户输入0~9之间的数字（0的ASCII码是48，9的ASCII码是57）。如果输入有效数字，还要把输入的数字加1；如果输入其他字符，则响铃（Beep）并消除该字符； 运行上面的程序，在文本框中输入一个1，则会显示2；输入9的时候，则会显示一个英文冒号，因为英文冒号的ASCII码是58。上面我们说过，只有在窗体上没有活动或可见控件时，窗体才能接收键盘事件。如果我们希望优先激活窗体的键盘事件，则可以把窗体的KeyPreview属性设置为True。这个属性不只对KeyPress事件有用，对KeyDown和KeyUp事件同样有用。例10.1 编写一个程序，检查用户的输入，如果用户输入的字母或数字，则提示输入正确，反之提示错误。在窗体上画一个标签（Label1）和一个文本框（Text1），并修改它们的部分属性。把标签的Caption属性改为“请输入一个测试字符串，按回车键看结果”；再双击Font属性，在字体对话框中，字体选择“幼圆”，字形选择“粗体”，大小选择“小四”；把文本框的Text属性改为空；MaxLength属性改为10，允许用户最多只能输入10个字符。界面如下图所示。检查输入程序界面在“通用”里声明三个变量文本框的事件过程如下：Dim i As IntegerDim k As IntegerDim check As BooleanPrivate Sub Text1_KeyPress(KeyAscii As Integer) check = False If