2013-07-26 30 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

很高兴为你工作。那个赏金怎么样:)? –