二级visual basic辅导讲义6-鼠标键盘

VisualBasic辅导讲义计算机与数学基础教学部：刘冰键盘和鼠标事件MouseDown：鼠标的任一键被按下时触发该事件。MouseUp：鼠标的任一键被释放时触发该事件。MouseMove：鼠标被移动时触发该事件。以Form对象为例，它们的语法格式为：PrivateSubForm_MouseDown（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）鼠标事件——在需要判断鼠标点击的时候适用【例】设计鼠标事件过程。要求：1．鼠标移动时，标签上显示鼠标当前坐标值。2．在窗体某个位置单击鼠标左键时，以该位置为圆心，500为半径画圆。3．在单击鼠标同时如果按下Shift键，则圆显示为红色；按下Ctrl键，显示为绿色；按下Alt键，显示为蓝色。

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimcolorAsLongIfButton=1Then

SelectCaseShift

Case0color=RGB(0,0,0)'黑

Case1color=RGB(255,0,0)'红

Case2color=RGB(0,255,0)'绿

Case4color=RGB(0,0,255)'蓝

EndSelectForm1.Circle(X,Y),500,color'画圆

EndIfMousePointer（形状）属性鼠标光标属性MouseIcon（自定义图标形状）属性注意：MousePointer=99时，MouseIcon属性才有效。在程序中使用LoadPicture函数装入以.ico或.cur为扩展名的图标文件，用来设置MouseIcon属性。形状属性值(15个)：0

由对象决定1箭头2十字线3I型……向上箭头11沙漏……99由MouseIcon自定义事件过程格式：SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub对具有焦点的控件按下并释放键盘某个键时产生键盘事件过程。

键盘事件过程常用键盘事件：KeyDown、KeyUp、KeyPress事件。 按下(键值)释放按下(字符ASCⅡ值)参数说明：Shift

控制键值。KeyCode

按键代码。大小写共用一个键（大写）；上下档字符取下档字符；功能键用键代码或常量字符：如：F1112VBKeyF1获得按键值：PrintKeycodeKeyPress(KeyAsciiAsInteger)IfKeyCode=vbKeyF1Then……Endif参数说明：KeyAscii识别按键字符的ASCII码。默认小写，shift或大写锁定变大写；因此，可以对输入值进行限制。字符：A(65),a(97),0(48),9(57)少量功能键：回车键(13),Esc(27)0:取消按键

PrintKeycodePrintKeyAscii用户按下一个键时触发KeyDown事件SubObject_KeyDown（KeyCodeAsInteger，ShiftAsInteger）释放引发KeyUp事件SubObject_KeyUp（KeyCodeAsInteger，ShiftAsInteger）KeyPress只响应按下标准ASCII字符表中对应的键时的事件SubObject_KeyPress（KeyAsciiAsInteger）键盘事件PrivateSubCommand1_Click()ClsEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Form1.ForeColor=vbRedPrintKeyCodeEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Form1.ForeColor=vbBluePrintKeyAsciiEndSubKeyPreview（键预览）属性

默认状态下，当窗体上加入控件后，焦点始终在控件上（除非控件不可用或者不可见），而此时窗体接收不到keydown等事件，此时将窗体的keypreview改为true,则无论焦点在哪个控件上，窗体都可以接受到keydown,keypress等事件。3.2003年9月（14）窗体的MouseDown事件过程

Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

有4个参数，关于这些参数，正确的描述是______。

A）通过Button参数判定当前按下的是哪一个鼠标键

B）Shift参数只能用来确定是否按下Shift键

C）Shift参数只能用来确定是否按下Alt和Ctrl键

D）参数x,y用来设置鼠标当前位置的坐标5.2005年4月（26）把窗体的KeyPreview属性设置为True，然后编写如下事件过程

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。A)AB)BC)CD)D13.2004年9月(18)以下叙述中错误的是

。

A)在KeyPress事件过程中不能识别键盘的按下与释放

B)在KeyPress事件过程中不能识别回车键

C)在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母

D)在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符1.2006年4月(9)在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Left(U