White Tiger

全てのフォームをアンロードする方法

◆概要

　このページは、Visual Basic 6.0において、全てのフォームをアンロードする方法について記載しています。

以下のコードをメインフォームの Unload イベントに書き加えてください。終了する前に、全てのフォームを閉じてから、アプリケーションが終了します。

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
    While Forms.Count > 1
    '---自分以外のフォームを探します
    i = 0
    While Forms(i) Is Me
        i = i + 1
        Wend
        Unload Forms(i)
    Wend

    '---自分自身もアンロードし、アプリケーションは終了します
    Unload Me
    End

End Sub

Link