通过

BeforeDropOrPaste 事件

  • 项目

在用户刚要将数据拖放或粘贴到对象上时发生

语法

对于 Frame
Private Sub对象 _BeforeDropOrPaste ( ByValCancelAs MSForms.ReturnBoolean，
Ctrl作为控件，
ByValActionAs fmAction，
ByValDataAs DataObject，
ByValXAs Single，
ByValYAs Single，
ByVal效果作为 MSForms.ReturnEffect，
ByValShiftAs fmShiftState)

对于 MultiPage
Private Sub对象 _BeforeDropOrPaste (indexAs Long，
ByValCancelAs MSForms.ReturnBoolean，
Ctrl作为控件，
ByValActionAs fmAction，
ByValDataAs DataObject，
ByValXAs Single，
ByValYAs Single，
ByVal效果作为 MSForms.ReturnEffect，
ByValShiftAs fmShiftState)

对于 TabStrip
Private Sub对象 _BeforeDropOrPaste (indexAs Long，
ByValCancelAs MSForms.ReturnBoolean，
ByValActionAs fmAction，
ByValDataAs DataObject，
ByValXAs Single，
ByValYAs Single，
ByVal效果作为 MSForms.ReturnEffect，
ByValShiftAs fmShiftState)

对于其他控件
Private Sub对象 _BeforeDropOrPaste ( ByValCancelAs MSForms.ReturnBoolean，
ByValActionAs fmAction，
ByValDataAs DataObject，
ByValXAs Single，
ByValYAs Single，
ByVal效果作为 MSForms.ReturnEffect，
ByValShiftAs fmShiftState)

“BeforeDropOrPaste”事件语法包含以下部分：

Part 说明
object 必填。 有效的对象名称。
index 必填。 MultiPage 中页面的索引，删除或粘贴操作会影响。
Cancel 必填。 事件状态。 False 指示应由控件处理事件（默认）。 True 指示由应用程序处理事件。
Ctrl 必填。 目标控件。
操作 必填。 基于当前键盘设置指示未决拖放操作的结果。
Data 必填。 在拖放操作中拖动的数据。 数据打包在 DataObject 中。
X, Y 必填。 出现拖放时鼠标指针的水平和垂直位置。 两个坐标均用磅衡量。 X 从控件的左侧边缘开始测量；Y 从控件的顶部开始测量。
Effect 必填。 目标控件上的拖放操作的效果 。
Shift 必填。 指定 Shift、Ctrl 和 Alt 的状态。

设置

操作 的设置为：

常量 值 Description
fmActionPaste 2 将所选对象粘贴到拖放目标中。
fmActionDragDrop 3 指示用户已将对象从其源拖动到拖放目标，并在拖放目标上拖放。

效果 的设置为：

常量 值 Description
fmDropEffectNone 0 不将放置源复制或移动到放置目标。
fmDropEffectCopy 1 将放置源复制到放置目标。
fmDropEffectMove 2 将放置源移动到放置目标。
fmDropEffectCopyOrMove 3 将拖放源复制或移动到拖放目标。

Shift 的设置为：

常量 值 Description
fmShiftMask 1 已按下 Shift 键。
fmCtrlMask 2 已按下 Ctrl 键。
fmAltMask 4 已按下 Alt 键。

备注

对于 MultiPage 或 TabStrip，Visual Basic for Applications在将数据对象传输到控件时启动此事件。

对于其他控件，系统在拖放或粘贴操作前即时启动此事件。

控件处理此事件时，可更新操作 参数已识别要执行的拖放操作。

效果 设置为 fmDropEffectCopyOrMove 时，可将操作 分配给fmDropEffectNone、fmDropEffectCopy 或 fmDropEffectMove。

效果 设置为 fmDropEffectCopy 或 fmDropEffectMove 时，可重新将 操作 分配给fmDropEffectNone。 效果 设置为 fmDropEffectNone 时，不可重新分配操作。

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。