スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
構文  expression.ActiveForm　取得のみ


設定項目        内容
expression      Screenオブジェクト［省略不可］

フォーカスを持っているFormオブジェクトを参照します。
次のコードは、フォーカスを持っているフォーム（アクティブフォーム）の名前を表示するものです。


● サンプル ●
'アクティブフォームの名前を取得する
'任意のフォームを開いて、アクティブにしてから実行してください
Sub FormNameSample()
    'フォームの名前
    Dim myFormName As String
    'アクティブフォームの名前を取得する
    myFormName = Screen.ActiveForm.Name
    MsgBox "アクティブなフォームは［" & myFormName & "］です"
End Sub


● 実行結果 ●
現在アクティブになっているフォームの名前がメッセージボックスに表示されます。

● 注意 ●
フォームがフォーカスを持っていない場合、エラーが発生します。