0
我想在Visual Basic 2010創建我的應用程序的功能會:如何在VB 2010中發送鼠標左鍵HOLD + DRAG?
- 模擬一個鼠標左鍵點擊+按住並拖動一個計時器滴答事件
- 設置一個新的XY座標對於鼠標拖動項目到新的位置
- 取下鼠標左鍵點擊+按住Command
如何去爲這個功能呢?
我想在Visual Basic 2010創建我的應用程序的功能會:如何在VB 2010中發送鼠標左鍵HOLD + DRAG?
如何去爲這個功能呢?
我認爲這是你在找什麼
If Windows.Forms.Cursor.Position = Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)) Then
Timer1.Enabled = False
Button2_MouseDown(New Button, New MouseEventArgs(MouseButtons.Left, 1, Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 0))
End If
If Windows.Forms.Cursor.Position.X <> Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).X Then
If Windows.Forms.Cursor.Position.X > Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).X Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X - 1, Windows.Forms.Cursor.Position.Y)
ElseIf Windows.Forms.Cursor.Position.X < Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).X Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X + 1, Windows.Forms.Cursor.Position.Y)
End If
End If
If Windows.Forms.Cursor.Position.Y <> Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).Y Then
If Windows.Forms.Cursor.Position.Y > Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).Y Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y - 1)
ElseIf Windows.Forms.Cursor.Position.Y < Button2.PointToScreen(New Point(Button2.Width/2, Button2.Height/2)).Y Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y + 1)
End If
End If
這是一個有點長,張貼在這裏,所以我已經創建了一個簡單的項目。
示例程序Here
全部來源Here
你能在「模擬」和「刪除鼠標左鍵點擊+持有命令」更具體?這些自動化(沒有用戶交互)操作? – rcdmk 2012-03-04 21:18:28