通过

BeforeDragOver 事件

  • 项目

在正在执行拖放操作时发生。

语法

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

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

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

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

BeforeDragOver 事件的语法包含以下部分：

Part 说明
object 必填。 有效的对象名称。
index 必填。 拖放操作会影响的 MultiPage 中页面的索引。
Cancel 必填。 事件状态。 False 指示应由控件处理事件（默认）。 True 指示由应用程序处理事件。
Ctrl 必填。 被拖过的控件。
Data 必填。 在拖放操作中拖动的数据。 数据打包在 DataObject 中。
X, Y 必填。 控件位置的水平和垂直坐标。 两个坐标都用磅来测量。 X 从控件的左边缘测量；Y 从控件的上边缘测量。
DragState 必填。 被拖动数据的切换状态。
Effect 必填。 拖放源支持的操作。
Shift 必填。 指定 Shift、Ctrl 和 Alt 的状态。

设置

DragState 的设置是：

常量 值 Description
fmDragStateEnter 0 鼠标指针在目标的范围内。
fmDragStateLeave 1 鼠标指针在目标的范围外。
fmDragStateOver 2 鼠标指针在新位置，但仍保留在同一目标的范围内。

Effect 的设置是：

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

Shift 的设置为：

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

备注

使用此事件可在鼠标指针进入、离开或直接停留在有效目标上时进行监视。 当拖放操作正在进行时，系统会在用户移动鼠标、按下或释放鼠标的一个或多个按键时启动此事件。 鼠标指针位置确定接收此事件的目标对象。 通过检查 DragState 参数可以确定鼠标指针的状态。

当事件处理此事件时，可以使用 Effect 参数标识要执行的拖放操作。

当 Effect 设置为 fmDropEffectCopyOrMove 时，拖放源支持复制 (fmDropEffectCopy)、移动 (fmDropEffectMove) 或取消 (fmDropEffectNone) 操作。

当 Effect 设置为 fmDropEffectCopy 时，拖放源支持复制或取消 (fmDropEffectNone) 操作。

当 Effect 设置为 fmDropEffectMove 时，拖放源支持移动或取消 (fmDropEffectNone) 操作。

当 Effect 设置为 fmDropEffectNone 时，放置源支持取消操作。

大多数控件不支持拖放，而 Cancel 为 False，这是默认设置。 这意味着控件拒绝尝试拖放控件上的任何内容，并且控件不会启动 BeforeDropOrPaste 事件。 TextBox 和 ComboBox 控件是例外：即使 Cancel 为 False，这些控件也支持拖放操作。

另请参阅

支持和反馈

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