分享

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

 hdzgx 2017-10-22

键盘事件:参数是KeyAscii,每次按一下键盘上的一个键,相应的键的Ascii码值都要赋给参数KeyAscii,然后再执行相应的操作

KeyPreview:接受键盘事件。默认情况下,窗体的KeyPreview属性为False,只有窗体获得焦点才能相应键盘事件;若窗体的KeyPreview属性为True,窗体会在空件之前首先截获键盘事件。

Shift And 7: Shift参数的低三位,因为7的二进制数是111shift参数与111进行按位And运算,得到是按了三个功能键中的哪一个。

命令按钮控件的default属性用于设置默认命令按钮.,设置为true,[Enter]相当于用鼠标单击了该按钮,Cancel属性为True,则Esc键触发按钮的Click事件

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

鼠标事件:

参数

第三位

第二位

第一位

Button

中键

右键

左键

Shift

Shift

Ctrl

Alt

参数XY表示鼠标指针的位置

Clc:清除图像。

划线函数Line格式:Line  (x1, y1) -(x2, y2), [color], [B][F]

(x1, y1) 可选的。Single (单精度浮点数),直线或矩形的起点坐标。

(x2, y2) 必选的。Single (单精度浮点数),直线或矩形的终点坐标。

color 可选的。Long (长整型数),画线时用的 RGB 颜色,可用RGB函数

可选的。如果包括,则利用对角坐标画出矩形。

可选的。如果使用了 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有三种状态benterbleavevbover分别表示进入、离开和经过对象

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多