通知またはアラートフォームとしてタイマー(リマインダーとして)を使用して動的フォームを作成します。各フォームに名前を割り当てます。
そのため、更新されるたびに..特定のフォームのタイマーを閉じるか無効にして、(アラートとして)表示されないようにしたい。
タイマーを見つけるための各コントロールが機能しないため、無効にすることはできません。
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 に変更する方法を教えてください。