-PR-
解決済み

ActiveFormの有無を判定したい

  • すぐに回答を!
  • 質問No.22578
  • 閲覧数542
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 69% (36/52)

ActiveFormが有るか無いかを判定したいのですがどうやって聞けばよいのでしょうか?
If Screen.ActiveForm.Name = "" Then
でも
If Screen.ActiveForm = Nothing Then
でも、『型が違う』と怒られます。
簡単な方法があればぜひ教えて頂きたいです。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル7

ベストアンサー率 50% (6/12)

よくコンパイル通りましたね。
If Screen.ActiveForm = Nothing Then
ではなく、
If Screen.ActiveForm Is Nothing Then
じゃないと、コンパイルを通らなかったです。

ちなみにIs Nothingを使うとフォームがアンロードされた時点で引っ掛けられます。
<試したプログラム>
フォーム2枚。Form1上にLabel1とTimer1を貼り付け。
タイマーはInterval=100ms。
Forma2を消すとNothingとなります。

Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Timer1_Timer()
If Screen.ActiveForm Is Nothing Then
Label1 = "Nothing"
Else
Label1 = Screen.ActiveForm.Name
End If
End Sub
お礼コメント
rukaandkaito

お礼率 69% (36/52)

ありがとうございました。
おっしゃる通り、コンパイルエラーです!!!
投稿日時 - 2001-01-04 09:00:24
関連するQ&A
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ