VBA控件教程:控件的DragDrop 事件

2015-06-04 12:32 阅读 350 次 评论关闭

在一个完整的拖放动作(即将一个控件拖动到一个对象上,并释放鼠标按钮)完成,或使用 Drag 方法,并将其 action 参数被设置为 2 (Drop) 时,该事件发生。

语法

Private Sub Form_DragDrop(source As Control, x As Single, y As Single)

Private Sub MDIForm_DragDrop(source As Control, x As Single, y As Single)

Private Sub object_DragDrop([index As Integer,]source As Control, x As Single, y As Single)

DragDrop 事件语法包含下列部分:

部分 描述 
object 一个对象表达式,其值是“应用于”列表中的一个对象。
index 一个整数,用来唯一地标识一个在控件数组中的控件。
source 正在被拖动的控件。可用此参数将属性和方法包括在事件过程中 — 例如,Source.Visible = 0。
x, y 是一个指定当前鼠标指针在目标窗体或控件中水平 (x) 和垂直 (y) 位置的数字。这些坐标值通常用目标坐标系统来表示,该坐标系是通过 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性而设置的。
说明

DragDrop 事件过程用来控制在一个拖动操作完成时将会发生的情况。例如,可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。

当 source 参数中可能使用多个控件时:

应使用 TypeOf 关键字和 If 语句一起确定与 source 表示的控件的类型。
应使用该控件的 Tag 属性来标识一个控件,然后使用 DragDrop 事件过程。
注意 应使用 DragMode 属性和 Drag 方法来指定开始拖动的方法。一旦开始拖动,可使用 DragOver 事件过程来处理位于 DragDrop 事件前面的事件。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA控件教程:控件的DragDrop 事件 | 猎微网

评论已关闭!