DragDrop 事 件

当完成拖放操作时发生

语 法

PROCEDURE Ob ject. DragDrop

LPARAMETERS [ nIndex, ] oSource , nXCoord , nYCoord

参 数 描 述

在事件处理中必须包含一个 LPARAMETERS 或 PAPAMETERS 语句 并且为每一个参数指定一个名称 Visual FoxPro 按下列顺序把三个或四个参数传递给 DragDrop 事件

nIndex

唯 一 标 识 控 件 数 组 中 的 控 件

oSource

引 用 被 拖 动 的 控 件 可 用 此 参 数 引 用 控 件 的 属 性 和 方 法

nXCoord , nYCoord

包 含 鼠 标 指 针 在 目 标 表 单 或 控 件 中 的 当 前 水 平 ( nXCoord ) 和 垂 直 ( nYCoord ) 坐 标 这 些 坐 标 通 常 使 用 目 标 坐 标 系 来 表 达 度 量 单 位 由 Scale Mode 属 性 确定

说 明

如果将控件拖动到另一个控件或表单上后释放鼠标按钮 或者调用了 Drag 方法并对

nAction 参数设置为 2 放下 拖放操作就算完成

使用 DragDrop 事件可以控件拖动操作完成后所发生的事情 例如 可将源控件移动到新位置 或把文件从一个位置复制到另一个位置

注 意 DragDrop 事 件涉及两个对象 即被拖动的控件和目标对象 DragDrop 事件是被目标对象触发 而不是由被拖动的控件触发

可使用 DragMode 属性和 Drag 方法指定如何开始拖动 一旦开始拖动 则可用

DragOver 事件处理在 DragDrop 事件之前的事件

应 用 于

复选框 组合框 命令按钮 命令组 容器对象 控件对象 编辑框 表单 表格图像 标签 线条 列表框 OLE 绑定型控件 OLE 容器控件 选项按钮 选项组页面 页框 形状 微调 文本框 工具栏

请 参 阅

Drag 方 法 , DragIcon 属 性 , DragMode 属 性 , DragOver 事 件 , M ouseDown 事 件 , M ouseUp 事 件 , M ouseMove 事 件