Distinguir click y doble click con el mousedown
Buenas. Me urge el código para que cuando haga un solo click el programa haga mi tarea y que cuando haga doble click haga otra. He buscado por internet y se aconseja que utilice el mousedown. Soy un novato y el código que he realizado es el siguiente que seguramente tenga muchos errores.
Public Class Form1
Private isFirstClick As Boolean = True
Private isDoubleClick As Boolean = False
Private milliseconds As Integer = 0
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
If isFirstClick = True Then
isFirstClick = False
Timer1.Start()
' segundo click
Else
If milliseconds < SystemInformation.DoubleClickTime Then
isDoubleClick = True
End If
End If
End Sub
Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
milliseconds += 100
' sobrepasamiento del tiempo limite entre tics.
If milliseconds >= SystemInformation.DoubleClickTime Then
Timer1.Stop()
If isDoubleClick Then
Button1.Text = "doble"
Else
Button1.Text = "no doble"
End If
' inicialización
isFirstClick = True
isDoubleClick = False
milliseconds = 0
End If
End Sub
End Class
Gracias de antemano