Zamanlayıcının zaman aralığının kullanıcı tarafından bir metin kutusundan ayarlandığı görsel temelde bir zamanlayıcı nasıl denetlenir

Question

Görsel temel konusunda yeniyim ve bir dizi kodu kullanıcı tarafından ayarlanan bir zaman aralığında çalıştırmaya çalışıyorum İkincisi, metin kutusundan herhangi bir zamanı değiştirebilir. lütfen oluşturduğum arayüzü ekte bulabilirsiniz.

Answer 1

Ben aralık değerini kullanıcı TextBox.TextChanged olayını işleyerek TextBox içinde sağ tamsayı değerini koyar her zaman ayarlamanızı önerir (eklemek veya değil uygun hatasız olabilir taşıma).

Bir örnek: Ayrıca şimdiki Aralığı bilmek istiyorsanız

Friend WithEvents Timer1 As New System.Windows.Forms.Timer 

Private Sub ResetTimerInterval(ByVal tmr As Timer, ByVal interval As Integer) 
    If (tmr IsNot Nothing) Then 
     With tmr 
      .Stop() 
      .Enabled = False 
      .Interval = interval 
      .Enabled = True 
      .Start() 
     End With 
    End If 
End Sub 

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _ 
Handles TextBox1.TextChanged 

    Dim value As Integer 

    If Integer.TryParse(DirectCast(sender, TextBox).Text, value) Then 
     Me.ResetTimerInterval(value) 
    End If 

End Sub 

---

, bir Mülkiyet ekleyerek izleyebilirsiniz:

Friend WithEvents Timer1 As New System.Windows.Forms.Timer 

Private Property TimerInverval As Integer 
    Get 
     Return Me.timerIntervalB 
    End Get 
    Set(ByVal value As Integer) 
     If (value <> Me.timerIntervalB) Then 
      Me.timerIntervalB = value 
      Me.ResetTimerInterval(value) 
     End If 
    End Set 
End Property 
' Backing field. 
Private timerIntervalB As Integer 

Private Sub ResetTimerInterval(ByVal tmr As Timer, ByVal interval As Integer) 
    If (tmr IsNot Nothing) Then 
     With tmr 
      .Stop() 
      .Enabled = False 
      .Interval = interval 
      .Enabled = True 
      .Start() 
     End With 
    End If 
End Sub 

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _ 
Handles TextBox1.TextChanged 

    Dim value As Integer 

    If Integer.TryParse(DirectCast(sender, TextBox).Text, value) Then 
     Me.timerIntervalB = value 
    End If 

End Sub