35.フォームがロードされているかチェックする



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

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をPUSH! 
   => ダウンロード ・・・ 下に書いてあるサンプルソースと同じです


< 説明 >
フォームがロード(メモリ上にあるか)されているかチェックする。


< SAMPLE >
’フォーム:Form1,Form2を作成する。

’フォーム1モジュールソース

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

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

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

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





Visual Basic 技術テクニックへ

ホーム PV ランキング