別フォームを表示させる時、Application.Run(フォーム)で表示されたフォームを非表示にしたい (ID:141668)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

アクアと申します。どうぞよろしくお願いします。

早速ですが例を示しますので参考にしてください。

FormMain
FormSub1
FormSub2
の3つのフォームを用意する。
FormMainにはButtonコントロールを2つ、FormSub1、FromSub2にはButtonを1つ配置する。

…FormMainのコードは以下の通り

Public Class FormMenu

Public Shared Sub Main()
        Application.EnableVisualStyles()
        Application.DoEvents()
        Application.Run(New FormMenu)
    End Sub

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button1.Click, Button2.Click

Select Case DirectCast(sender, Button).Name ' どのButtonコントロールのイベントかButtonの名前に応じて分岐処理
            Case Button1.Name
                Dim frm1 As FormSub1 = New FormSub1
                frm1.Show(Me)
            Case Button2.Name
                Dim frm2 As FormSub2 = New FormSub2
                frm2.Show(Me)
        End Select
        Me.Visible = False
    End Sub
End Class

…FromSub1のコード（FormSub2も同じく記述）

Public Class FormSub1

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

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _
        Handles Me.FormClosing
        Me.Owner.Visible = True
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る