複数のフォームをアンロードする方法

戻る

複数のフォームをアンロードする方法

動作環境 Windows95/98 開発環境 Visual Basic 6.0 (+SP2)

説明複数のフォームを使用したアプリケーション開発で、確実にプログラムを終了するために必要な処理ですよね。

用意するもの：標準フォームを幾つか。

メインとなるフォームのアンロードイベントに以下のように記述してみてください。

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer
i = 0

Do While Forms.Count > 1
If Forms(i) Is Me Then
i = i + 1
Else
Unload Forms(i)
End If
Loop

End Sub

複数のフォームをアンロードする方法
動作環境	Windows95/98	開発環境	Visual Basic 6.0 (+SP2)
説明	複数のフォームを使用したアプリケーション開発で、確実にプログラムを終了するために必要な処理ですよね。
用意するもの：標準フォームを幾つか。
メインとなるフォームのアンロードイベントに以下のように記述してみてください。 Private Sub Form_Unload(Cancel As Integer) Dim i As Integer i = 0 Do While Forms.Count > 1 If Forms(i) Is Me Then i = i + 1 Else Unload Forms(i) End If Loop End Sub