vb.net - AxVLCPlugin2 总是显示工具栏 VB.net

Question

我正在使用 AxVLCPlugin2。默认情况下，工具栏会自动隐藏。我希望它保持原样。如果有，则找不到正确的命令。我正在使用 VB.net 谢谢

Answer 1

您注意到当您在控件上挥动鼠标时工具栏是如何保持打开状态的吗？你可以模拟一下。将计时器放到您的表单上，将其设置为，假设默认 100 毫秒间隔并启用它。然后将以下代码放入 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

这是做什么的，每 100 毫秒隐藏鼠标光标，将其移动到 VLC 控件上的随机位置，然后返回并取消隐藏它。这发生在用户没有注意到的情况下，但它确实起到了作用 - 控件接收鼠标移动并且工具栏保持不变。