2013-07-26 56 views

回答

1

你注意到當你在控件上拖動鼠標時工具欄是如何保持的?你可以模擬它。把一個計時器放到你的表單上,設置它,假設默認的100ms間隔並啓用它。然後把下面的代碼放入Timer_Tick事件處理程序:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    Dim curPos = Cursor.Position 

    Cursor.Hide() 
    Cursor.Position = New Point(Me.Left + MyAxVLCPlugin21.Left + 100 * Rnd(1), Me.Top + MyAxVLCPlugin21.Top + 100 * Rnd(1)) 

    Application.DoEvents() 

    Cursor.Position = curPos 
    Cursor.Show() 

End Sub 

這個做什麼,每100ms隱藏鼠標光標移動到了VLC控制的隨機位置,然後返回和取消隱藏它。這種情況不會被用戶注意到,但它確實有效 - 控制接收鼠標移動和工具欄停留。

+0

聽起來不錯..虐待它明天在辦公室.. – gezzuzz

+0

很高興爲你工作。那個賞金怎麼樣:)? –