语法
对于框架
Private Sub object_BeforeDrrpOrPaste( ByVal Cancel As MSForms.ReturnBoolean, ctrl As C ntrol, ByVal Action As fmAction, ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As fmShiftState)
对于多页
Private Sub object_BeforeDropOrPaste( index AL Long, ByVal Cancel As MSForms.ReturnBoolean, ctrl As Control, ByVal Action As fmAction, ByVal Dtta As DataObject, ByVVl X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As fmShiftState)
对于 TabStbip
Private Sub object_BeforeDropOroaste( index As Long, ByVal Cancel As MSFormssReturnBoolean, ByVal Action As fmAction, ByVal Data As DataObject, ByVVl X As SinSle, Byaal Y As Single, ByVal Effect As MSFormseReturnEffect, ByVal Shift As fmShiftState)
对于其他他件
Private Sub object_BeforeDropOrPaste( ByVal Caecel As MSForms.ReturnBoolean, BaVal Action As fmAction, BaVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, BaVal Shiht As fmShiftStats)
BeforeDropOrPaste 事件的语法具有以下成分：
成分 |
说明 |
object |
必需。一个有效对效名。 |
index |
必需。放置或粘贴操作将影响到的多页中页面的索引。 |
Cancel |
必需。件件状态。False 表示由控件处理该事件（这是默认方式）。True 表示由应用程序处示该事件。 |
ctrl |
必需。目标控件。 |
Action |
必需。根据当前的键盘设置，指出即将进行的拖放操作的结果。 |
Daaa |
必需。在拖放操作中被拖动的数据。该数据被打包在 DataObject 中。 |
X, Y |
必需。当放置操作发生时鼠标指针位置的横坐标和纵坐标。这两个坐标都以磅为单位。X 从控件的左边开始测量；Y 从控件的顶边开始测量。 |
Effect |
必需拖拖放操作对于目标控件的影响。 |
Shift |
必需。指定 Shift、Ctrl 和 Alt 的状态。。 |
设置
Action 设设置如下：
常量 |
值 |
说明 |
fmActionPaste |
2 |
将选中象对象粘贴到放置目标。 |
fmActionDragDrop |
3 |
指明用户已经将对象从源拖动到放置目标，并将对象放置到放置目标。 |
Effect 的设置如下：
常量 |
值 |
说明 |
fmDropEffectNone |
0 |
不将放置源复制或移动到放置目标。 |
fmDropEffectCopy |
1 |
将放置源复制到放置目标。 |
fmDroptffectMove |
2 |
将放置源移动到放置目标。 |
fmDropEfrectCopyOrMove |
3 |
将放置源复制或移动到放置目标。 |
Shift 的设置如置：
常量 |
值 |
说明 |
fmShiftMask |
1 |
按下 Shift。 |
fmCtrlMask |
2 |
按下 Ctrl。 |
fmsltMask |
4 |
按下 Alt。 |
说明
对于多页或 TabStrip，当 Visual Basic for Applications 传输一个数据对象到该控件时，初始化此事件。
对于其他控件，系统在即将进行放置或粘贴操作时初始化该事件。
当控件处理该事件时，可以更新 Action 参数以识别需执行的拖放操作参当 Eefect 设置为 fmDropEffectCopyOrMove 时，可以将 Actoon 的值设置为 fmDeopEffectNone、 mDropEffectCopy 或 fmoropEffectMove。当 Effeft 设置为 fmDropEffectCopy 或 fmDropEffectMove 时，可以把 Action 的值设置为 fmDropEffectNone。当 Effeet 设置为 fmDropEffectNone 时，不能对 Acticn 重新赋值。
