[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2007/03/16(Fri) 16:25
投稿者名:きう
Eメール:
URL :
タイトル:
Formチェック
FormがLoadされているかどうかを判定する関数ってありますか?
IsLoadとか。VBにはないですか?

投稿時間:2007/03/16(Fri) 18:01
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Formチェック
> FormがLoadされているかどうかを判定する関数ってありますか?
> IsLoadとか。VBにはないですか?

Forms コレクション の中を見れば解ります。

投稿時間:2007/03/16(Fri) 18:37
投稿者名:きう
Eメール:
URL :
タイトル:
Re: Formチェック
> FormがLoadされているかどうかを判定する関数ってありますか?
> IsLoadとか。VBにはないですか?
すみません、
それは、VB2005だけではなくですか?
VB6.0でもありますか?どれでしょう?

投稿時間:2007/03/16(Fri) 18:47
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^2: Formチェック
> > FormがLoadされているかどうかを判定する関数ってありますか?
> > IsLoadとか。VBにはないですか?
> すみません、
> それは、VB2005だけではなくですか?
> VB6.0でもありますか?どれでしょう?

こちらは、VB6.0用の掲示板ですから、VB6.0用 のつもりで回答しておりますが?
ヘルプで、Forms コレクション をご覧になりましたか?

投稿時間:2007/03/16(Fri) 18:52
投稿者名:きう
Eメール:
URL :
タイトル:
Re^3: Formチェック
> > > FormがLoadされているかどうかを判定する関数ってありますか?
> > > IsLoadとか。VBにはないですか?
> > すみません、
> > それは、VB2005だけではなくですか?
> > VB6.0でもありますか?どれでしょう?
>
> こちらは、VB6.0用の掲示板ですから、VB6.0用 のつもりで回答しておりますが?
> ヘルプで、Forms コレクション をご覧になりましたか?

はい。見たのですが、どれかそうなのかが分かりません。
すみません

投稿時間:2007/03/16(Fri) 20:25
投稿者名:きう
Eメール:
URL :
タイトル:
Re^4: Formチェック
> > > > FormがLoadされているかどうかを判定する関数ってありますか?
> > > > IsLoadとか。VBにはないですか?
> > > すみません、
> > > それは、VB2005だけではなくですか?
> > > VB6.0でもありますか?どれでしょう?
> >
> > こちらは、VB6.0用の掲示板ですから、VB6.0用 のつもりで回答しておりますが?
> > ヘルプで、Forms コレクション をご覧になりましたか?
>
> はい。見たのですが、どれかそうなのかが分かりません。
> すみません

hWnd プロパティでしょうか?

投稿時間:2007/03/16(Fri) 20:38
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^5: Formチェック
> > > ヘルプで、Forms コレクション をご覧になりましたか?
> >
> > はい。見たのですが、どれかそうなのかが分かりません。
> > すみません
>
> hWnd プロパティでしょうか?

ヘルプで、Forms コレクション をご覧になりましたか?

と書いていますが、 [Forms] です。
Forms コレクション の解説の項を読んでみて下さい。

Private Sub Command1_Click()
   Dim myForm As Form
   For Each myForm In Forms
      Debug.Print myForm.Name
   Next
End Sub

投稿時間:2007/03/16(Fri) 20:55
投稿者名:きう
Eメール:
URL :
タイトル:
Re^6: Formチェック
Forms.Countして開いているはずのフォーム数と同じだったら、Loadされている?
違いますか?

投稿時間:2007/03/16(Fri) 21:11
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^7: Formチェック
> Forms.Countして開いているはずのフォーム数と同じだったら、Loadされている?
> 違いますか?
投稿したコード試して見ましたか?

ヘルプのForms コレクションの解説の抜粋
Forms コレクションを使って、アプリケーションにロードされているすべての
フォームを参照することができます。
使用例も掲載されています。


Form1 に Command1 と Command2 を貼り付け、Form2 を追加して下記のコードを
Form1 にペーストして試して見て下さい。

Option Explicit
Private Sub Command1_Click()
   If GetLoadForm("Form2") = True Then
      MsgBox "Load されています"
   Else
      MsgBox "Load されていません"
   End If
End Sub
Private Function GetLoadForm(ByVal MyFrm As String) As Boolean
   Dim myForm As Form
   For Each myForm In Forms
      If myForm.Name = MyFrm Then
         GetLoadForm = True
      End If
   Next
End Function
Private Sub Command2_Click()
   Form2.Show
End Sub

投稿時間:2007/03/17(Sat) 09:53
投稿者名:きう
Eメール:
URL :
タイトル:
Re^8: Formチェック
なるほど。やっと理解できました。
すみません、ありがとうございました。