３５．フォームがロードされているかチェックする



＜　使用用途　＞
メモリチェックすることが出来る。

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！　
　　　＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
フォームがロード（メモリ上にあるか）されているかチェックする。

<　ＳＡＭＰＬＥ　＞
’フォーム：Form1,Form2を作成する。

’フォーム１モジュールソース
’フォーム１にはコマンドボタンを２つ貼りつけた状態です。
Private Sub Command1_Click()
　　　　 'フォーム２がメモリロードされているかチェック
　　　　For Each formWk In Forms
　　　　if formWk.Name = "Form2" Then
　　　　　　　　MsgBox "Form2はロードされています"
　　　　　　　　Exit For
　　　　End If
　　　　 Next formWk

　　　　 If Forms.Count = 1 Then
　　　　　　　　MsgBox "フォーム２はメモリロードされていません"
　　　　 End If
End Sub

Private Sub Command2_Click()
　　　 'フォーム２をロードする
　　　Form2.Show
　　　form1.SetFocus
End Sub

’フォーム２モジュールソース
’フォーム２にはコマンドボタンを１つ貼りつけた状態です。
Private Sub Command1_Click()
　　　'フォーム２を閉じる
　　　Unload Form2
End Sub