VBフォームが再登場

Question

を要求せずに、私はこの単純なケースに私の問題を縮小しているが、何が起こっているのかを見つけるように見えることはできません。

• 私は2つのボタンで上のフォーム、および持っていますそれ以外の空。再びボタンをクリックすると
• 、Form1の皮およびForm2の
• アップshowungとき、Form2のは非表示になりますを示しており、ショーをForm1

またVisibleChangedを入力するとき、Form2がMsgBoxに ザ・で停止しますコードが続きます。

は今、期待される動作は、ボタンをクリックしたときには、

• Form1が見えるが原因Form1が起因して偽回す見えるため
• 第二のMsgBox Form2.showを呼び出すには、真の転換のために
• 最初のMsgBoxを隠しだろうForm2が呼び出しMe.hide
• Form1が

このすべて行い起こっを示したが、その後、

• Form2のは、（Form1がまだそこにある）
• のMsgBoxが
（今偽form2.visibleであることを伝える）のMsgBoxが現れ
• （再び真form2.visibleであることを伝える）までを示して現れ
• Form2が

任意のアイデア理由を隠し？あなたの答えに感謝し、彼らは "完全な" VBコーダのために何をすべきかを伝える：閉じるためになるよう、

Public Class Form1 
    Private Sub ButtonGO_Click(sender As Object, e As EventArgs) Handles ButtonGO.Click 
     Me.Hide() 
     Form2.Show() 
    End Sub 
End Class 

とも

Public Class Form2 
    Dim calls As Integer = 0 
    Private Sub Form2_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged 
     calls += 1 
     MsgBox("calling : " & calls & "/Me.Visible : " & Me.Visible) 
     If Me.Visible Then 
      Me.Hide() 
      Form1.Show() 
     End If 
    End Sub 
End Class 

Answer 1

OK：ここ

コードです。

私の学生、つまりドラッグアンドドロップVBを使用している人は、Form1の条件を確認し、次にのみが表示されたらForm2を呼び出します。

注：これは簡単ではないかもしれませんが、「カプセル化」のアイデアに準拠していない可能性があります。それが私の場合、最初にこの問題を引き起こしたのです。