2键盘鼠标.pptVIP

鼠标 有三个事件： mouseDown当鼠标的任意一个按钮按按下是被触发。 mouseUp当鼠标的任意一个按钮放开时被触发。 mouseMove当鼠标被移动时触发。 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Button值为1，表示按下或释放了左键。 值为2，表示按下或释放了右键。 值为4，表示按下或释放了中键。 Shift值为1，表示为按下了shift键。 值为2，表示按下了ctrl键。 值为4，表示按下了alt键。 对象有一个拖放事件dragdrop Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Picture1.Move (X - Picture1.Width / 2), (Y - Picture1.Height / 2) End Sub 键盘 三个事件： Keypress事件：用户按下并且释放一个会产生ASCII码的键时被触发。 Keyup事件：用户释放键盘上任意一个键时被触发。 Keydown事件：用户按下键盘上任意一个键时被触发。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) End Sub 并不是按下键盘上的任意一个键都会引发keypress键，它只会对会产生ASCII码的按键有反应，包括数字、大小写字母、Enter、Backspace、Ese、Tab等。对于方向键这样不会产生ASCII码的按键，keypress事件不会被触发。 一般来说，当用户对当前具有控制焦点的对象进行按下并释放的键盘操作时，直接引发该对象的keypress事件，如果窗体的keypriview属性设置为true时，则首先触发窗体的keypress事件。 利用keypress事件，可以对输入的数据进行限制。如：窗体上有一个文本框编写如下过程，该文本框只按收0-9的数字字符，如果输入了其它字符，则响铃，并且消除该字符。 Sub txtexalmle_keypress(keyascii as integer) If keyasciiasc(“0”) or keyasciiasc(“9”) then Beep Keyascii=0 End if End sub Keycode 是用户所操作的那个键的扫描代码，它告诉事件过程用户操作的物理键。 大小写字母的keycode相同，值为大写字母的keyascii码。 有上档字符和下档字符的键，键的keycode也是相同的，为下档字符的keyascii码。 * *