键盘事件:参数是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分别表示进入、离开和经过对象 |
|