Me.Controls für Timer erklärt zur Laufzeit

Question

aufgrund einiger VS Probleme, die ich begonnen haben, Timer zur Laufzeit wie

Private WithEvents _TmrAll As New Timer 

nun erklärt, wenn ich Shutdown meine app, ich alle Timer deaktivieren möchten. Ich benutzte es, um wie so:

Private Sub pDisableAllTimers() 

    For Each T As Control In Me.Controls 
     Dim sName As String = T.GetType.Name 
     If sName = "Timer" Then 
      T.Enabled = False 
     End If 
    Next T 
End Sub 

Aber für die Timer zur Laufzeit erklärt, dies scheint nicht zu funktionieren. Zumindest sind sie nicht in der Schleife gefunden.

Vielen Dank.

Answer 1

Wenn Sie dies zur Laufzeit ausführen möchten, müssen Sie den Container components (falls erforderlich) erstellen und Ihre Timer hinzufügen. Weitere Informationen finden Sie auf this

If components Is Nothing Then 
     components = New System.ComponentModel.Container() 
    End If  
    components.Add(_TmrAll) 

und dann Code pDisableAllTimers wie folgt:

Private Sub pDisableAllTimers() 

    For Each T As Component In components.Components 
     Dim sName As String = T.GetType.Name 
     If sName = "Timer" Then 
      CType(T, Timer).Enabled = False 
     End If 
    Next T 

End Sub