鼠标点击并按住事件？

Question

有没有人有一个想法如何处理在VB.NET中的鼠标点击和举行事件？

假设我想单击并按住一个按钮并在代码背后执行一些操作，比如更改按钮BackColor或更快地关闭窗口（就像当您在ms office 2013文件菜单中单击然后使用左箭头关闭该菜单）。

希望你明白我的意思

谢谢

Answer 1

您可以创建一个开始时的MouseDown被称为是全局定义一个计时器，然后结束对鼠标向上。然后，您可以设置一个条件，在您认为它是“长时间点击”之前需要经过多少毫秒。请参阅下面的示例代码：

Public Class Form1 
Dim WithEvents timer As New Timer 
Dim milliseconds As Integer 


Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown 
    timer.Start() 
End Sub 

Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp 
    timer.Stop() 
    Label1.Text = "Button held down for: " & milliseconds & " milliseconds" 
    If milliseconds >= 10 then 'Mouse has been down for one second 
     DoSomething() 
    End If 
End Sub 

Private Sub EggTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer.Tick 
    milliseconds += 1 
End Sub 


End Class 

Answer 2

的MouseDown是你在找什么