Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class RepeatButton Inherits System.Windows.Forms.Button Public Sub New() AddHandler timer.Tick, AddressOf OnTimer timer.Enabled = False End Sub Public Timer As New timer Public Property Interval() As Integer Get Return timer.Interval End Get Set(ByVal Value As Integer) timer.Interval = Value End Set End Property Private Sub OnTimer(ByVal sender As Object, ByVal e As EventArgs) 'fire off a click on each timer tick OnClick(EventArgs.Empty) End Sub Private Sub RepeatButton_MouseDown(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown 'turn on the timer timer.Enabled = True End Sub Private Sub RepeatButton_MouseUp(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp ' turn off the timer timer.Enabled = False End Sub End Class
public partial class Form1 : Form { private int i = 0; public Form1() { InitializeComponent(); } private void Form1_MouseDown(object sender, MouseEventArgs e) { if (!timer1.Enabled) { timer1.Enabled = true; } } private void Form1_MouseUp(object sender, MouseEventArgs e) { timer1.Enabled = false; } private void timer1_Tick(object sender, EventArgs e) { i++; label1.Text = i.ToString(); } }