【VB.NET】フォームを表示する／閉じるには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、フォームを表示する／閉じる方法をご紹介します。

フォームを表示する／閉じる
使用するメソッド
サンプルプログラム
- フォームをモーダル、モードレスで開く
- フォームを閉じる
関連記事

フォームを表示する／閉じる

使用するメソッド

ShowDialogメソッド

解説

フォームをモーダルダイアログボックスとして表示します。

モーダルとは、表示したフォームが開いている間は、ほかのフォームの操作ができない状態をいいます。

Showメソッド

解説

フォームをモードレスで表示します。

モードレスの場合は、フォームを表示したままで、元のフォームの操作ができる状態です。

Closeメソッド

解説	フォームを閉じます。

Disposeメソッド

解説	リソースを開放します。
	ダイアログボックスとして表示されるフォーム（ShowDialog）は、Disposeメソッドを呼び出してリソースを開放します。

サンプルプログラム

フォームをモーダル、モードレスで開く

Public Class Form1
    ''' <summary>
    ''' フォームを表示する（モーダル表示）ボタンクリック時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim newForm As New Form2

        newForm.ShowDialog()

        newForm.Dispose()

    End Sub
    ''' <summary>
    ''' フォームを表示する（モードレス表示）ボタンクリック時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim newForm As New Form2

        newForm.Show()

    End Sub
End Class

Public Class Form1

''' <summary>

''' フォームを表示する（モーダル表示）ボタンクリック時

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim newForm As New Form2

newForm.ShowDialog()

newForm.Dispose()

End Sub

''' <summary>

''' フォームを表示する（モードレス表示）ボタンクリック時

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim newForm As New Form2

newForm.Show()

End Sub

End Class

7	「フォームを表示する（モーダル表示）」ボタンがクリックされた場合、以下処理を行う。
9	開くフォームのインスタンスを作成する。
11	フォームをモーダルダイアログボックスとして表示します。
13	モーダルダイアログボックスとして表示したフォームのリソースを開放します。
21	「フォームを表示する（モードレス表示）」ボタンがクリックされた場合、以下処理を行う。
23	開くフォームのインスタンスを作成する。
25	フォームをモードレスで表示します。

フォームを閉じる

Public Class Form2
    ''' <summary>
    ''' フォームを閉じるボタンクリック時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close()

    End Sub
End Class