VB中的键盘事件、鼠标事件、拖放技术

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, 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分别表示进入、离开和经过对象。