1

通知またはアラートフォームとしてタイマー(リマインダーとして)を使用して動的フォームを作成します。各フォームに名前を割り当てます。

そのため、更新されるたびに..特定のフォームのタイマーを閉じるか無効にして、(アラートとして)表示されないようにしたい。

タイマーを見つけるための各コントロールが機能しないため、無効にすることはできません。

 For Each f As Form In My.Application.OpenForms


        If (f.Name = Label10.Text) Or (f.Name = "notification" & Label9.Text) Then

           Dim timer = Me.components.Components.OfType(Of IComponent)().Where(Function(p) p.[GetType]().FullName = "System.Windows.Forms.Timer").ToList()
              For Each cmd In timer
                  If Not cmd Is Nothing Then
                        Dim tmp As Timer = DirectCast(cmd, Timer)
                           tmp.Enabled = False
                           tmp.Stop()
                  End If
              Next

       End If

 Next

(Me.Components.Components) を私のフォーム (f.Components.Components) である f に変更する方法を教えてください。

4

1 に答える 1