画面を切り替える方法

質問

VisualBasic2005ExpressEditionを使用しています。
そこで質問なのです。
Form1のウインドウの画像（ピクチャボックス）やラベルをクリックしたときForm2の画面を表示し、Form1を閉じるには
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

End Sub
の真ん中にどういう風に記述すればいいのでしょうか。うえはラベルの場合です。
よろしくお願いします。

回答No.4

pen_pen_pen · ベストアンサー

なるほど。すみませんでした。
確認してみたら確かにForm2が一瞬で消えてしまいますね。
以下のようにしてください。
お望みの動きになると思います。
Form1を閉じたらプログラムが終了してしまうので、Form2を表示してForm1は非表示にするだけにしました。
Form2が閉じられたタイミングでForm1を閉じて、プログラムが終了となります。

Dim frm2 As New Form2

Me.Hide
frm2.ShowDialog
Me.Close

お礼

ありがとうございます！
この動作、感激です！！
本当になんどもありがとうございました。

回答No.3

pen_pen_pen

>移動するとき閉じてしまうようです・・・。
移動する時とは？？？
Form1からForm2に移動したときってことですか？
ラベルをクリックしたらForm2が表示されて、
Form1は閉じられていればいいんですよね？

補足

何回もありがとうございます。

すみません言い方がまちがってました＾＾；
Form1が閉じてForm2が開くのですが何もしないうちにForm2が閉じてしまうんです。
ほかの不要な文を消したりいろいろやっても同じ結果でした。

回答No.2

pen_pen_pen

Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

Dim frm2 As New Form2

frm2.Show
Me.Close

End Sub

お礼

ありがとうございます。
移動するとき閉じてしまうようです・・・。

回答No.1

starsip

'例えばフォーム１のボタン１クリックでフォーム１を非表示してフォーム２を表示
'フォーム２を閉じるとフォーム１を再表示

'Form1のコード

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub

'Form2のコード

Private Sub UserForm_Initialize()
UserForm1.Hide
End Sub

Private Sub UserForm_Terminate()
UserForm1.Show
End Sub

お礼

ありがとうございます！
一応別ウインドウが起動するところまではいったのですが、form1が閉じてくれません。
書くところが間違っているかもしれないので書くところを教えてください。よろしくお願いします。