Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click If Not tmrClick.Enabled Then ' Le Timer se déclenchera en fin de période, s'il n'a pas été stoppé ' par un second click tmrClick.Interval = GetDoubleClickTime tmrClick.Enabled = True Else tmrClick.Enabled = False ' Le clic a lieu dans les temps Debug.Print("Double-Clic") End If End Sub Private Sub tmrClick_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles tmrClick.Tick ' Annule la tempo d'attente d'un second click tmrClick.Enabled = False Debug.Print("Simple Clic") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question