この記事を作成した当時はギリギリ１年目なのでまだ新人です！心は！！（だが三十路）
VB.NETでフォームを呼び出す方法はいくつかありますが、大きく分けて「インスタンス化する方法」と「インスタンス化せずに呼び出す方法」があります。フォームは広義ではクラスと一緒で、インスタンス化しなくても呼び出すことが可能ですが、今回は基本的な呼び出し方を紹介します。
プログラマとして駆け出しの頃、VB.NETで親フォームに子フォームを呼び出すボタンが２つあり、それぞれのボタンを押すと同じ子フォームを呼び出すというシステムを触っていました。しかし、それはちょっと残念な作りでした。
- 親フォームからボタン１を押す。
→ShowDialogで子フォームが呼び出されて、テキストボックスに値を入れて子フォームを閉じる。 - 親フォームからボタン２を押す。
→ShowDialogで子フォームが呼び出されて、テキストボックスに①で入れた値が入っている（！）
Public Class Form1
‘ボタン１をクリック
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Form2.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
‘ボタン２をクリック
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Form2.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
スタティックなForm1（親フォーム）からスタティックなForm2（子フォーム）をShowDialogで呼び出すという簡単な作りです。コピペで再現してみて下さい。
親フォームからボタン１をクリック
何でもいいのでテキストボックスに値を入れて閉じる
ボタン２をクリックして子フォームを呼び出すと値が残ってる！！！※ちなみに、再びボタン１を押しても値は残っています。
これは仕様なのかなと思って確認したら、ただのバグでしたとさ（めでたし）。
いやいや、めでたくありません。インスタンス化してあげるべきです。仮にフォームを開いた時に初期値を入れておきたい場合は、その処理を記述すべきです。この現象に初めて遭遇した当時、古株のエンジニアのおじさんに相談したところ、VB6時代に頻繁に見られた現象だそうで、フォーム名をダイレクトに指定して表示させると前の値が残るので、FormLoadのイベントで各変数やコンポーネントの値を初期化する記述をガリガリ記述していたとのことです。
その当時の意図は分かりかねますが、開くたびに初期化の記述をガリガリ記載するくらいなら、インスタンス化して呼び出した方が断然早いです。
そんなわけで、今回はフォームを呼び出す際にインスタンス化する方法を紹介します。
1. フォームを呼び出す方法
1-1. Application.Run()を使用してフォームを呼び出す
さあ、実際にフォームを呼び出してみましょう。過去の記事でMainメソッドを作成しましたが、そのMainメソッドからフォームをインスタンス化して呼び出してみます。適当にForm1というフォームをインスタンス化して呼び出したのが下記のソースです。
_
Shared Sub Main()
Try
Application.Run(New Form1())
Finally
End Try
End Sub
1-2. ShowDialog()を使用してフォームを呼び出す
ShowDialog()メソッドを使用してフォームを呼び出すことが出来ます。モーダルフォームとして呼び出したい時に使用します。Form1型のインスタンスobjFormを作成し、ShowDialog()メソッドを使ってフォームを呼び出します。
_
Shared Sub Main()
‘宣言&インスタンス化
Dim objForm As New Form1
Try
objForm.ShowDialog()
Finally
End Try
End Sub
Module Module1
Sub Main()
Dim objForm As New Form1
Try
objForm.ShowDialog()
Finally
End Try
End Sub
End Module
Public Class Form1
‘ボタン１をクリック
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objForm As Form2 = New Form2
Try
objForm.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
‘ボタン２をクリック
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim objForm As Form2 = New Form2
Try
objForm.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
親フォームからボタン１をクリック
何でもいいのでテキストボックスに値を入れて閉じる
ボタン２を押下して子フォームを呼び出してみると、子フォームをインスタンス化して呼び出しているので残りません。1-3. Show()メソッドを使用してフォームを呼び出す
ちょっとおまけの紹介です。使い方はShowDialog()メソッドと同じです。モードレスフォームとして呼び出したい時に使用します。
_
Shared Sub Main()
Dim objForm As New Form1
Try
objForm.Show()
Finally
End Try
End Sub
※モードレスフォーム：呼び出し先の画面が表示されていても呼び出し元の画面が操作出来る。
まとめ
・フォームを呼び出すにはインスタンス化して呼び出す・ShowDialog()とShow()は性質が異なるので、時と場合によって使い分ける
