第10章 键盘与鼠标事件过程(2014)

VB编程中的键盘和鼠标知识总结！大家好，今天我们来学习VB编程中的键盘与鼠标知识。

读书改变命运，这个理论在当今社会仍然适用。

并且越喜欢读书学习的人，越有更多机会去选择自己想要的生活。

不要惧怕读书的苦，这是你通向美好未来最好的路，共同努力！VB中的键盘与鼠标事件KeyPress事件KeyPress事件简介在窗体上画一个控件（指可以发生KeyPress事件的控件），并双击该控件，进入程序代码窗口后，从'过程'框中选取KeyPress，即可定义KeyPress事件过程。

一般格式为：Private Sub Text1_KeyPress(KeyAscii As Integer)'用户按下并释放一个能产生ASCII码的键时被触发End SubKeyPress事件带有一个参数，这个参数有两种形式：第1种形式是Index As Integer，只用于控件数组；第2种形式是KeyAscii As Integer，用于单个控件。

KeyDown和KeyUp事件KeyDown和KeyUp事件简介KeyDown和KeyUp事件的参数也有两种形式，其中Index As Integer只用于控件数组，而KeyCode As Integer,Shift As Integer用于单个控件。

KeyDown和KeyUp事件都有两个参数，即KeyCode和Shift。

①KeyCode是按键的实际ASCII码。

该码以'键'为准，而不是以'字符'为准。

②Shift转换键。

它指的是3个转换键的状态，包括Shift，Ctrl和Alt键，这3个键分别以二进制数形式表示，每个键有3位，即Shift 键为001，Ctrl键为010，Alt键为100。

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)'用户按下任一个键时被触发End SubPrivate Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)'用户释放任一个键时被触发End Sub鼠标事件鼠标事件简介为了实现鼠标操作，Visual Basic中提供了以下3个事件过程。

VB中的键盘事件、鼠标事件、拖放技术键盘事件：参数是KeyAscii，每次按一下键盘上的一个键，相应的键的Ascii码值都要赋给参数KeyAscii，然后再执行相应的操作KeyPreview：接受键盘事件。

默认情况下，窗体的KeyPreview 属性为False，只有窗体获得焦点才能相应键盘事件；若窗体的KeyPreview属性为True，窗体会在空件之前首先截获键盘事件。

Shift And 7: 取Shift参数的低三位，因为7的二进制数是111，shift参数与111进行按位And运算，得到是按了三个功能键中的哪一个。

命令按钮控件的default属性用于设置默认命令按钮.，设置为true时,按[Enter键]相当于用鼠标单击了该按钮，Cancel属性为True，则Esc键触发按钮的Click事件快捷键的优先级高于键盘事件，鼠标事件：参数X和Y表示鼠标指针的位置Clc：清除图像。

划线函数Line格式：Line (x1, y1) -(x2, y2), [color], [B][F](x1, y1) 可选的。

Single （单精度浮点数），直线或矩形的起点坐标。

(x2, y2) 必选的。

Single （单精度浮点数），直线或矩形的终点坐标。

color 可选的。

Long （长整型数），画线时用的 RGB 颜色，可用RGB函数B 可选的。

如果包括，则利用对角坐标画出矩形。

F 可选的。

如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。

不能不用 B 而用F。

例：Line (0, 0)-(X, Y), vbGreen, BF拖放技术:DragMode属性：0—手动拖放，1—自动拖放DragDrop事件：Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)Source.Move X, YEnd Sub---Source表示拖放的控件，即DragMode属性为1的控件；xy 表示鼠标指针的位置坐标。

键盘与鼠标事件过程(总分44,考试时间90分钟)一、选择题1. 以下叙述中错误的是______ 。

A. 双击鼠标可以触发DblClick 事件B. 事件的名称可以由编程人员确定C. 移动鼠标时，会触发MoussMove 事件D. 控件的名称可以由编程人员设定2. 下列与拖放操作无关的是______ 。

A. KeyPress 事件B. Drag 方法C. DragOver 事件D. DragDrop 事件3. 编写如下事件过程；Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 1 Then Print "BBBB" End If End Sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______ 。

A. 同时按下Shift 键和鼠标左键B. 同时Ctrl、Alt 键和鼠标左键C. 同时按下Shift 键和鼠标右键D. 同时按下Ctrl、Alt 键和鼠标左键4. 以下说法中正确的是______ 。

A. 当MousePointer 属性为1时，将把鼠标的形状设置为Windows 的默认值B. MouseIcon属性的设置要受到KeyDown事件的影响C. 自定义鼠标光标通过MouseIcon属性设置D. 为了定义用户自己的鼠标光标，必须把MousePointer 属性设置为995. 拖放要触发两个事件，这两个事件是______ 。

A. Dragover 事件和DragDrop 事件B. Drag 事件和DragDrop 事件C. MouseDown 事件和KeyDown 事件D. MouseUp 事件和KeyUp 事件6. 下列与改变鼠标光标形状有关的是______ 。

A. MouseMove 事件B. MouseDown 事件C. MousePointer 属性D. MouseUp 事件7. 设有如下程序；Private Sub Form_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______ 。

第八章键盘与鼠标操作 (2w)程序在运行过程中，经常需要知道用户对键盘和鼠标的具体操作，例如用户按下键盘上的“A”键时是想输入字符“A”还是输入“a”呢，当用户利用鼠标选中“删除”时是想彻底删除还是想放入回收站呢等等，以便于根据不同的情况，执行不同的具体操作。

为此Visual Basic专门定义了和键盘与鼠标有关的事件和方法。

8-1键盘操作当我们敲击一下键盘上的某个按键时，将会先后触发对应对象的KeyDown、KeyPress、(对于文本框之类的对象还会触发Change)、KeyUp等一系列事件。

根据不同的具体应用，我们可以选择不同的事件进行编程。

需要说明的是，对键盘的某个按键进行操作时，触发的是目前具有输入焦点(Focus)对象的事件。

一般情况下窗体对象不响应这些事件，除非满足下面几个条件：1.目前窗体上没有添加任何对象，则窗体接收键盘事件。

2.目前窗体上有对象，但是它们属于下面两种情况：1)这类对象不具有接收焦点的能力，例如：标签、框架、形状(Shape)、Timer、Image等等2)这类对象本来可以接收焦点(例如：文本框)，但目前处于Disabled状态。

3.窗体的KeyPreview属性为True。

所谓KeyPreview的属性为True，就是说无论在窗体内的什么控件内利用键盘输入，都需要事先经过窗体进行检查。

其中，前两种情况下只触发窗体的KeyDown、KeyPress、KeyUp事件，第三种情况下将先后触发窗体的KeyDown、控件的KeyDown、窗体的KeyPress、控件的KeyPress、窗体的KeyUp、控件的KeyUp事件。

8-1-1 KeyPress事件KeyPress事件过程的的形式有两种：Private Sub 对象名_KeyPress(KeyAscii As Integer) '用于非控件数组Private Sub 对象名_KeyPress(Index As Integer, KeyAscii As Integer) '用于控件数组其中：KeyAscii的值在本过程中由系统自动提供，就是用户输入字符的ASCII值。

全国计算机等级考试二级VB考试题型剖析及解题技巧讲义前言每年的全国计算机等级考试一直是让很多同学头疼的问题，怎样才能顺利通过考试呢？综合分析历次考试试卷，我发现其实每次考试难度波动很小、题型类似或一样的很多。

因此在我们这门课程的教学中，我归纳总结了历年的所有题型，结合考试大纲知识点，以视频的方式为大家进行详细讲解与操作演示，帮助大家顺利通过考试,发挥出较好的水平！一、教材基本结构及往年考试分值分布2010年全国计算机等级考试二级VB考试,辅导用书《全国计算机等级考试二级教程:Visual Basic语言程序设计(2010年版) 》(高等教育出版社),本书共十五章:第1章 Visual Basic程序开发环境（2分左右，以识记为主）第2章对象及其操作(一般在机试题里考核)第3章简单程序设计(笔试2分左右)第4章 VB程序设计基础（笔试6分左右，一般结合其他章节知识点一起考核）第5章数据的输入与输出(本章内容通常与其他章节知识点结合起来考，机试题中出现在简单应用题和综合应用题中。

纯本章知识点在笔试中仅占2~4分左右)第6章常用标准控件(考试重点，笔试8~12分左右、机试的三种题型都考到标准控件)第7章VB控制结构(考试重点，笔试20分左右，一般和其他章节知识点结合考核、机试题中出现在简单应用题和综合应用题)第8章数组(考试重点：笔试6~10分左右、机试题中一般出现在综合应用题)第9章过程(考试重点：笔试6~10分左右、机试题中一般出现在综合应用题)第10章键盘与鼠标事件过程（笔试4分左右、机试一般出现在简单应用题）第11章菜单程序设计（笔试2~4分左右、机试出现机率不高）第12章对话框程序设计（笔试2分左右、机试出现机率不高）第13章多重窗体程序设计与环境应用( 机试题中偶尔出现在综合应用题,一般考标准模块内容)第14章数据文件(考试重点：笔试8~10分左右、机试题中出现在综合应用题)第15章上机指导二、考试题型题量考试题型剖析及解题技巧三、考试题型剖析及解题技巧1、VB考试笔试两种题型:选择题和填空题，其中选择题共35题，分值70分，填空题共15空，分值30分。

键盘和鼠标作文篇1键盘身上有许多按键，他长得并不好看，但他为主人服务一向是忠心耿耿，埋头苦干，从来没有一句怨言。

鼠标的处境可就不一样了，她长得很漂亮，动起来还会发出好听的声音。

但即使主人那样喜欢她，她一张嘴还是满腹怨气，什么天气太闷啦，窗帘发出的声音太难听啦，风吹进来太吵啦，这些话键盘听得耳朵都结出了老茧。

逐渐，主人开始讨厌鼠标了。

“喂，你干什么呀，别认为主人护着你就很了不起！”鼠标从来都没有改变她的.一贯作风。

“对不起，我不小心才把水弄到你身上的，请你原谅！”键盘对于鼠标乱发脾气的行为已经司空见惯了，每次他都像一位哥哥面对撒娇的妹妹一样，连胜道歉。

“小人！无耻！”鼠标不知从哪儿学来了这两个新词语，其实她非常嫉妒键盘，认为这样拼命朝他泼冷水，方能够解心头只恨。

其实在患难之中见真情，令鼠标意想不到的是，还没过几天，发生了一件大事。

女主人是一位作家，她很爱写故事，写出的故事也十分生动、有趣。

同时，她也很爱干净。

有一天，她在擦桌子的时候，不小心把鼠标掉到了窗外，就在这个鼠标快要坠落的时候，女主人用键盘上的电线捆住了鼠标的电线，在自以为是的鼠标即将粉身碎骨的前一刻，将她救了上来！“鼠标，鼠标，你醒醒呀！”鼠标的耳畔传来了键盘急切而又轻柔的呼唤声。

鼠标醒了。

“从此以后，你就是我的哥哥！”鼠标郑重地把手放在了键盘上，微笑着说。

从此以后，他俩竟然再也没有吵过架。

篇2一天，键盘和鼠标吵架了。

鼠标说：“你看我本领多大，主人要打开某个网页还不是用我！”键盘听了不高兴了，“哼，谁说的。

主人要玩游戏还不是用我来控制方向！”鼠标不服气的说：“主人打枪又不用你！”键盘又说：“我也能打开网页啊，只要用上下左右的控制，把它移到要打开的网页，再按回车，不就打开了！”“我的'本领大。

”“我的本领大”鼠标说：“我不要和你在一起，你这个没用的东西。

”键盘说：“我才不要和你在一起呢！”通过这件事，它俩就分开了。

结果，主人要用键盘开车，键盘却不在。

android中的MotionEvent 及其它事件处理2014-09-18 08:47 7386人阅读评论(0) 收藏举报MotionEvent对象当用户触摸屏幕时将创建一个MotionEvent对象。

MotionEvent包含关于发生触摸的位置和时间等细节信息。

MotionEvent对象被传递到程序中合适的方法比如View对象的onTouchEvent()方法中。

在这些方法中我们可以分析MotionEvent对象那个，以决定要执行的操作。

MotionEvent对象是与用户触摸相关的时间序列，该序列从用户首次触摸屏幕开始，经历手指在屏幕表面的任何移动，直到手指离开屏幕时结束。

手指的初次触摸(ACTION_DOWN 操作)，滑动(ACTION_MOVE操作)和抬起(ACTION_UP)都会创建MotionEvent对象。

所以每次触摸时候这三个操作是肯定发生的，而在移动过程中会产生大量事件，每个事件都会产生对应的MotionEvent对象记录发生的操作，触摸的位置，使用的多大压力，触摸的面积，合适发生，以及最初的ACTION_DOWN和时发生等相关的信息。

在设置事件时我们有2种设置的方式，一种是委托式一种是回调式。

第一种就是将事件的处理委托给监听器处理，你可以定义一个View.OnTouchListener接口的子类作为监听器，其中有onTouch()方法。

而第二种是重写View类自己本身的onTouchEvent方法，也就是控件自己处理事件。

onTouch方法接收一个MotionEvent参数和一个View参数，而onTouchEvent方法仅接收MotionEvent参数。

这是因为监听器可以监听多个View 控件的事件。

通过MotionEvent方法getation可以得到该Motionevent具体是哪个操作如ACTION_DOWN。

1、MotionEvent中getAction()与getActionMasked()的区别如果我们在监听Ontouch()里面测试的时候会发现，这两个返回值竟然是一样的。

附件4：广东省高等教育自学考试Visual Basic程序设计课程（课程代码：07759）考试大纲目录一、课程性质与设置目的二、课程内容与考核目标第一章Visual Basic编程环境第一节可视化与事件驱动型语言第二节Visual Basic 的启动与退出第三节主窗口第四节其他窗口第二章对象第一节对象及其属性设置第二节窗体第三节控件第四节控件的画法和基本操作第三章建立简单的Visual Basic应用程序第一节语句第二节编写简单的Visual Basic应用程序第三节程序的保存、装入和运行第四节Visual Basic应用程序的结构与工作方式第四章数据类型、运算符与表达式第一节基本数据类型第二节常量和变量第三节变量的作用域第四节常用内部函数第五节运算符与表达式第五章数据输入输出第一节数据输出—Print方法第二节数据输入—InputBox函数第三节MsgBox函数和MsgBox语句第四节字形第六章常用标准控件第一节文本控件第二节图形控件第三节按钮控件第四节选择控件——复选框和单选按钮第五节选择控件—列表框和组合框第六节滚动条第七节计时器第八节框架第九节焦点与Tab顺序第七章Visual Basic 控制结构第一节选择控制结构第二节多分支控制结构第三节For循环控制结构第四节当循环控制结构第五节Do循环控制结构第六节多重循环第七节GoTo型控制第八章数组与记录第一节数组的概念第二节动态数组第三节数组的基本操作第四节数组的初始化第五节控件数组第六节记录第七节记录数组第九章过程第一节Sub过程第二节Function过程第三节参数传送第四节可选参数与可变参数第五节对象参数第六节局部内存分配第七节递归第十章键盘与鼠标事件第一节KeyPress事件第二节KeyDown和KeyUp事件第三节鼠标事件第四节鼠标光标的形状第五节拖放第十一章菜单程序设计第一节Visual Basic中的菜单第二节菜单编辑器第三节用菜单编辑器建立菜单第四节菜单项的控制第五节菜单项的增减第六节弹出式菜单第十二章对话框程序设计第一节概述第二节文件对话框第三节其他对话框第十三章多窗体程序设计与环境应用第一节建立多窗体应用程序第二节多窗体程序的执行与保存第三节Visual Basic工程结构第四节闲置循环与DoEvents语句第五节系统对象第十四章文件第一节文件概述第二节文件的打开与关闭第三节文件操作语句和函数第四节顺序文件第五节随机文件第六节用控件显示和修改随机文件第七节二进制文件第八节文件系统控件第九节文件基本操作三、关于大纲的说明与考核实施要求【附录】题型举例一、课程性质与设置目的（一）课程性质与设置目的本课程是广东省高等教育自学考试数字媒体艺术专业（独立本科段）的必考课程之一，本课程是数字媒体艺术专业的应用型基础课。

VB键盘与鼠标事件过程在VB中，键盘和鼠标事件是通过事件处理程序来实现的。

事件处理程序是一段代码，当用户与应用程序的用户界面交互时，会触发这段代码。

下面将详细介绍VB中键盘和鼠标事件的过程。

键盘事件过程：1.事件注册：在VB中，要处理键盘事件，首先需要将事件与特定的控件关联起来。

可以通过在设计视图中选择控件，然后在属性窗口中选择“事件”选项卡来注册事件。

2.事件处理程序：在事件注册后，可以在代码视图中看到为该事件创建的事件处理程序。

事件处理程序是一个特定的过程或函数，当事件触发时，会执行这段代码。

可以在事件处理程序中编写逻辑代码来响应键盘事件。

3. 事件参数：在事件处理程序中，可以使用事件参数来获取有关事件的信息。

键盘事件参数通常包括键码（KeyCode）和修饰键（Shift、Ctrl、Alt等）。

通过使用这些参数，可以确定用户按下的是哪个键，并采取相应的操作。

4.事件处理：在事件处理程序中，可以根据需要执行特定的操作。

例如，可以根据用户按下的键，执行不同的操作或调用不同的函数。

可以使用条件语句（如If语句）来根据键码执行不同的逻辑。

5.事件冒泡：在VB中，键盘事件通常具有冒泡的特性。

这意味着，当用户在一个控件上按下键时，除了该控件的键盘事件被触发外，还会触发其父控件的键盘事件。

这样可以在不同层次的控件中处理键盘事件。

鼠标事件过程：1.事件注册：与键盘事件类似，要处理鼠标事件，首先需要将事件与特定的控件关联起来。

可以通过在设计视图中选择控件，然后在属性窗口中选择“事件”选项卡来注册事件。

2.事件处理程序：在事件注册后，可以在代码视图中看到为该事件创建的事件处理程序。

事件处理程序是一个特定的过程或函数，当事件触发时，会执行这段代码。

可以在事件处理程序中编写逻辑代码来响应鼠标事件。

3. 事件参数：在事件处理程序中，可以使用事件参数来获取有关事件的信息。

鼠标事件参数通常包括鼠标按钮（Button）和鼠标位置（X、Y 坐标）。

第10章键盘与鼠标事件10.1键盘事件默认情况下，控件的键盘事件优先于窗体的键盘事件若要窗体先接收键盘事件，需把窗体的KeyPreview属性设置为True10.1.1KeyPress事件程序运行中，按下某个键，触发当前拥有输入焦点的那个控件的KeyPress事件。

KeyPress事件发生时，可以获得当前所按键的字符的ASCII码值。

【例10.1】设计一个窗体，用于输入口令，如果口令正确，则显示相应的信息，如果不正确，则要求重新输入。

3次输入的都不正确，则停止输入。

步骤：① 新建一个“标准EXE”工程，自动在工程中添加一个名为Form1的窗体。

② 在Form1中添加一个标签Label1和一个文本框Text1。

将Label1的Caption属性设为“请输入口令：”，将Text1的Text 属性内容设为空字符串。

③ 编写程序代码。

Private Sub Text1_KeyPress(KeyAscii As Integer)Static PWord As String '保存本次输入的口令字符串Static Counter As Integer '本次输入字符个数计数，达到4后变为0 Static Numberoftries As Integer '对输入口令的字符计数Numberoftries = Numberoftries + 1 '每输入一个字符加1If Numberoftries = 12 Then End '口令为4个字符，满3次后程序退出Counter = Counter + 1PWord = PWord + Chr$(KeyAscii) '保存本次键入字符与以前的字符连成的字符串KeyAscii = 0 '键入的字符不在文本框中显示Text1.Text = String$(Counter, "*") '本次输入几位口令，文本框显示几个星号If LCase$(PWord) = "abcd" Then '将口令转换成小写字母后与"标准值"比较Text1.Text = ""PWord = ""MsgBox "口令正确，继续..."Counter = 0Print "continue...."ElseIf Counter = 4 Then '已经输入4位口令且不正确Counter = 0 '下一次输入前初始化PWord = ""Text1.Text = ""MsgBox "口令不对，请重新输入"End IfEnd Sub思考题：事件过程中用到的变量为什么定义成静态变量？10.1.2KeyDown和KeyUp事件程序运行中，按下某个键，则产生KeyDown事件，放开该键产生KeyUp事件。