戻る

すべてのフォームを閉じる

目的

ロードされているすべてのフォームをアンロードします。 End ステートメントの代替方法として利用できます。

ポイント

For Next ループを使用する方法と、Do Loop を使用する方法があります。

サンプルコード

Option Explicit Private Sub cmdClose_Click() ' すべてのフォームを閉じる     Dim i As Integer          For i = Forms.Count - 1 To 0 Step -1       Unload Forms(i)     Next End Sub Private Sub cmdClose2_Click() ' すべてのフォームを閉じる          Do While Forms.Count > 1       Unload Forms(0)     Loop End Sub

ソースのダウンロード