## **描述** 在指定坐标出鼠标按下，然后移动到另外一个坐标松开。可以指定相对于本窗口还是相对于屏幕，还可以设置每次鼠标坐标时的前后延时。 ## **语法** DragTo(*x1, y1, x2, y2[, PositionMod = relative[, delayMilliSecondsBefore = 0[, delayMilliSecondsAfter = 0]]]*) **该语法中有下列命名参数：** | 参数 | 描述 | | --- | --- | | x1 | Long类型，表示鼠标移动起始坐标的Left值。 | | y1 | Long类型，表示鼠标移动起始坐标的Top值。 | | x2 | Long类型，表示鼠标移动结束坐标的Left值。 | | y2 | Long类型，表示鼠标移动结束坐标的Top值。 | | PositionMod | 可选的。enumPositionMode 类型，表示坐标使用绝对还是相对方式。如果忽略，**缺省值是relative，它表明坐标使用相对方式**，例如点击100,100这个点，默认会点击相对于窗口左顶点的位置100,100，如果要相对于屏幕可以设置本参数值为absolute。关于enumWindowVisible类型的介绍请参考下面“**enumPositionMode类型的设置值**”表的介绍。| | delayMilliSecondsBefore | 可选的。Long 类型，**表示设置鼠标位置前延时**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击前不延时。| | delayMilliSecondsAfter | 可选的。Long 类型，**表示设置鼠标位置后延时**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击后不延时。| **enumPositionMode类型的设置值：** | 设置 | 描述 | | --- | --- | | absolute | 坐标使用绝对方式 | | relative | 坐标使用相对方式 | ## **返回值** | 无 | | --- | | - | ## **示例** > 说明：请向窗口添加按钮Command1，然后复制下面代码后点击按钮运行。运行前先打开记事本，记事本里至少要有10行以上内容。 ``` Private Sub Command1_Click() Dim w As New clsWindow w.GetWindowByClassName "Notepad" '获得记事本窗口 w.Wait 500 w.Focus '设置记事本窗口为活动窗口 w.Wait 500 w.DragTo 100, 100, 200, 200 '在坐标(100,100)处按下，在(200,200)松开，此方法非常适用于网页验证中的滑块拖动 End Sub ```