如何在VB 2010中發送鼠標左鍵HOLD + DRAG？

Question

我想在Visual Basic 2010創建我的應用程序的功能會：

• 模擬一個鼠標左鍵點擊+按住並拖動一個計時器滴答事件
• 設置一個新的XY座標對於鼠標拖動項目到新的位置
• 取下鼠標左鍵點擊+按住Command

如何去爲這個功能呢？

Answer 1

我認爲這是你在找什麼

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