VB鼠标的左键拖动控件到窗体的任意位置.ppt

第一节 KeyPress事件 针对键盘的事件，主要是以下三种： KeyDown、KeyUp事件：按键的按下/放开事件。 KeyPress事件：按键事件。 用户按下任一键则引发KeyDown事件，松开则引发KeyUp事件。用户按下并释放按键，便引发KeyPress事件。 在用键盘输入的场合，如在文本框中输入信息，KeyPress 事件常用于判断按了什么键，当在键盘上按键时将触发该事件。 每按一次键，拥有输入焦点的控件都会发生这个事件，可以用其检测如输入密码时字符的合法性等。 某一时刻，只有一个控件拥有输入焦点，如果窗体上没有活动的或可见的控件，则输入焦点位于窗体上。 能响应KeyPress事件的控件有：窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条及与文件有关的控件。 要用法如：对输入的信息进行合法性检测，前面讲过的口令文本框中只允许输入数字字符，输入其它字符则响呤，并取消输入的字符。又如小写换大写。 例如，如果希望将文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事件转换大小写： Private Sub Text1_KeyPress (KeyAscii As Integer) KeyAscii = Asc(Ucase(Chr(KeyAscii))) End Sub 第二节 KeyDown和KeyUP事件 keydown——按下事件、keyup——弹起事件过程的形式为： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 语句 End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 语句 End Sub 1、Keycode 返回的是用户所按键的ASC码；大小写字母用同一个按键，其ASC码为大写字母的ASC码；单键双字符键中，返回的是其下档字符的ASC码。另外，大键盘上的数字键与小键盘上的数字键不同。 如按下“A”、“a”则返回的Keycode均为65（即H41）。 2、Shift Shift用于返回用户在按键时，是否按下shift、ctrl或Alt键构成组合状态。 一般情况下，在程序中，通过判断Keycode和Shift两个参数的值，来确定用户按了什么键。 如下：当用户按下某个键时，在标签中显示出对应的字符，当放开按键时，消失。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = Str(KeyCode) + - + Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Label1.Caption = End Sub 对于组合键，对多种可能的情况都要一一判断： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift Case 0 X$ = 按下 Case 1 X$ = 按下Shift Case 2 X$ = 按下Ctrl Case 3 X$ = 按下Shift、Ctrl Case 4 X$ = 按下Alt Case 5 X$ = 按下Shift、Alt Case 6 X$ = 按下Ctrl、Alt Case 7 X$ = 按下Shift、Ctrl、Alt End Select Label1.Caption = X + - + Str(KeyCode) + - + Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Label1.Caption = End Sub 第三节 鼠标事件 前面所学的鼠标事件主要是： Click事件：以鼠标左键单击对象时所引发的事件。 另外与此比较相近的还有DblClick事件：以鼠标左键单击对象时所引发的事件。 1、MouseDown事件 将鼠标指针置于对象上，按下某一键时被触发。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 语句 End Sub 2、MouseUp事件 释放所按的键时被触发。 Private Sub Form_MouseUp(Button As Integer, Shift As Integer,