vb编一个程序把桌面上的文件自动拖到垃圾箱 知道它们的相对坐标 怎么做...

发布网友 发布时间：1天前

我来回答

共2个回答

热心网友 时间：1天前

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Function MoveMouse(hand As Long, x As Long, y As Long, xTo As Long, yTo As Long)
'将鼠标指针移到起始坐标
SetCursorPos x, y
'按住左键不放
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
'将鼠标指针移到目标坐标
SetCursorPos xTo, yTo
'释放左键
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
End Function

Private Sub Form_Click()
MoveMouse GetDesktopWindow, 272, 102, 975, 674
End Sub

热心网友 时间：1天前

为什么不用FSO文件系统呢？或者用Driver、Dir、File控件组合也行呐。
用Kill方法就行了。