VB.NET別フォーム

プログラム中でインスタンスを生成して、フォームを操作する

フォームを表示する

Dim fm2 As New Form2()
fm2.Show()

モーダルで表示する

Using fm2 As New Form2()
    fm2.ShowDialog()
End Using

フォームの表示位置を設定する

フォームの初期位置は、FormStartPosition列挙体で指定します。

'親フォームの中央に表示されます
fm2.StartPosition = FormStartPosition.CenterParent

フォームをアクティブにする

fm2.Activate()

フォームを隠す

fm2.Hide()

フォームを閉じる

fm2.Close()

フォームを[OK]または[Cansel]で終了する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'OK終了
    Me.DialogResult = DialogResult.OK

    または

    'Cancel終了
    Me.DialogResult = DialogResult.Cancel
End Sub

'呼び出し側
Using fm As New Form2()
    If (fm.ShowDialog = DialogResult.OK) Then
        MessageBox.Show("OKボタンが押されました。")
    End If
End Using

フォームが閉じられるのをキャンセルする

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    If MessageBox.Show("閉じますか?", "確認", MessageBoxButtons.YesNo) = DialogResult.No Then
        e.Cancel = True
    End If
End Sub