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事件

快捷键的优先级高于键盘事件，

鼠标事件：

参数	第三位	第二位	第一位
Button	中键	右键	左键
Shift	Shift	Ctrl	Alt

参数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, Y

End Sub

 ---Source表示拖放的控件，即DragMode属性为1的控件；xy表示鼠标指针的位置坐标。

Drag方法：格式：<对象名>.Drag [action]  例 If Button = 1 Then   Text1.Drag vbBeginDrag

If Button = 1 Then  Text1.Drag vbEndDrag

DragOver事件：当源对象被拖动经过目标对象时，触发该对象的DragOver事件，参数Source表示被拖动的对象，State有三种状态benter、bleave、vbover分别表示进入、离开和经过对象