MDIFormのイベント (ID:76323)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 子イベント発生直後でもよければ、WithEventsで拾えます。 Option Explicit Private WithEvents Child As VB.Form Private Sub Child_Activate() Debug.Print "Form_Activate" End Sub Private Sub Child_Load() Debug.Print "Form_Load" End Sub Private Sub Child_Unload(Cancel As Integer) Debug.Print "Form_Unoad" End Sub Private Sub MDIForm_Load() Set Child = New Form1 Child.Show End Sub # この場合、フォーム数分のWithEvents変数が必要となります。 # もし、子フォーム数が不定である場合は、イベント管理用の # クラスを、別途自作する必要があります。