クリックするたびに、フォームが複数表示される

下記のコードだと

Private Sub Button1_Click(・・・
Dim f2 As New Form2()
f2.Show()
End Sub

ボタンをクリックするたびに、同じフォームが表示されます。
同じフォームが開かないようにしたいのですが、どうすればいいのでしょうか？

バージョンは、Visual Basic .NETです。

よろしくお願いします。

No.2 ベストアンサー 回答者： MARU4812 回答日時： 2011/07/20 09:59

Private m_f2 As Form2

Private Sub Button1_Click(・・・
　　If m_f2 Is Nothing OrElse m_f2.IsDisposed Then
　　　　m_f2 = New Form2
　　End If
　　m_f2.Show()
End Sub

この回答へのお礼

ありがとうございます。
希望通りのことができました。

実は、ネットで探して、この問題の対応策のページを見つけたのですが、私のｖｂのバージョンが古くて、ｍｙが対応していないため解決できませんでした。
これだと、私のバージョンでも問題が解決できたため助かりました。
ありがとうございました。

お礼日時：2011/07/20 10:44

No.1 回答者： yhc3594 回答日時： 2011/07/20 09:58

Dim f2 As New Form2()・・・この行で常にフォームが生成（新設）されます。

その後
f2.Show()・・・この行で新設されたフォームが表示されます。
*同一フォームが追加されて行く事になります。


Dim f2 As New Form2()の行を削除し、同一フォームが生成されない様にします。
f2.Show()をForm2.Show()として、フォームを表示します。

以上、お試し下さい。

この回答へのお礼

ありがとうございます。

つまり、
Private Sub Button1_Click(・・・
Form2.Show()
End Sub

ってことでしょうか？
これだと、ビルドするとエラーがでました。

お礼日時：2011/07/20 10:31