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

■No12406 (マルコ さん) に返信
Public Class 入力画面
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
(省略)
#End Region

    Private Sub 参照ボタン_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 参照ボタン.Click
        Dim frm As New 照会画面
        frm.ShowDialog()
        If frm.DialogResult = DialogResult.OK Then
            Me.txt項目.Enabled = True
        Else
            Me.txt項目.Enabled = False
        End If
        frm.Dispose() 'ShowDialog の場合に必要
    End Sub
    
End Class

Public Class 照会画面
    Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
(省略)
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.OK
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

End Class

■No12454 (マルコ さん) に返信
> 魔界の仮面弁士 さん ありがとうございました。
> うまくいきました。ほんとにありがとうございました。
> 
> この応用で、フォームの削除とかもできるのでしょうか？
> 入力画面に削除ボタンを押すと、参照ボタンで開いたフォームを削除する仕様なのですが
> 可能でしょうか？

削除というのはフォームを閉じるということですよね。
それであれば可能ですよ。

フォームを閉じる時は Close メソッドを呼ぶだけです。簡単ですね。
魔界の仮面弁士さんのサンプルを例に言うと
変数 f を Show メソッドで開いているのと同じように
f に対して Close メソッドを呼んであげます。
コードはこのようになります。Button2 をあらかじめ用意しておいてください。

    Private WithEvents f As New Form2()
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        f.Close()
    End Sub

もちろんフォームを閉じるためには、フォームが開いている状態でないとダメですよ。