メッセージを１つだけ表示

分類:[VB.NET]　

分類:[VB.NET]　

こんにちは。

今Timerを使って、一定時間ごとにメッセージを表示させています。
下のプログラムでは一定時間ごとに次々とメッセージが出てきてしまいます。
すでにメッセージが表示されている場合には、新しいメッセージを表示させないようにするには
どうすればいいのか教えていただけませんか。
メッセージボックスがすでに出ているかどうかをどう確認すればよいかが分かりません。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

　If MessageBox.Show("変更しますか", "", _
　　　MessageBoxButtons.YesNo, _
　　　MessageBoxIcon.Question) = 　DialogResult.Yes Then

　Me.label1.Text = "変更しました"

　End if
End Sub

すみませんがよろしくお願いします。

ぱっと思いついた方法。
メッセージボックスを表示していますよフラグを使う。

メンバ変数に Boolean型の変数を用意して(初期値False)、

If Not Me.msgShowFlag Then
Me.msgShowFlag = True
　 If MessageBox.Show("変更しますか", "", _
　　　 MessageBoxButtons.YesNo, _
　　　 MessageBoxIcon.Question) = 　DialogResult.Yes Then

　Me.label1.Text = "変更しました"
End If
Me.msgShowFlag = False
　End if

としてみるとどうでしょうか？

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

メッセージを１つだけ表示

過去ログには書き込み不可