如何通过在特定位置上使用MouseHover禁用鼠标单击窗口上的窗体

Question

Private Sub admin_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover 
    ContextMenuStrip1.Enabled = False 
End Sub 

Private Sub Label1_MouseHover(sender As Object, e As EventArgs) Handles Label1.MouseHover 
    ContextMenuStrip1.Enabled = True 
    ContextMenuStrip1.Show() 
End Sub 

Answer 1

您不禁用点击 - 您无法实际执行此操作。你所做的是根据需要分离并附加处理程序。

你可能想是这样的：

Private Sub admin_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover 
    RemoveHandler ContextMenuStrip1.Click, AddressOf ContextMenuStrip1_Click 
End Sub 

Private Sub Label1_MouseHover(sender As Object, e As EventArgs) Handles Label1.MouseHover 
    AddHandler ContextMenuStrip1.Click, AddressOf ContextMenuStrip1_Click 
End Sub 

Private Sub ContextMenuStrip1_Click(sender As Object, e As EventArgs) 
    ' Code here 
End Sub 

只要确保你不线了ContextMenuStrip1_Click在代码隐藏 - 即注意，没有Handles条款。让上面的方法为你做。