フォームの終了 (ID:88902)

名前

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

本文 フォーム3でコントロールボックスの『Ｘ』を押したら、フォーム1、フォーム3の全て終了したいので、下記を追加しました。 その場合、QueryUnloadイベントで『Ｘ』を押したときだけ実行するようにしないと Unload Form3を実行したときにもForm1を終了してしまいますよ。 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then 'Unload Form3 Form3でXを押したのでなにもしなくてもUnloadする 'Set Form3 = Nothing のでこの２行は不要 'Form1.Enabled = True Unloadするなら 'Form1.SetFocus この２行も不要 Unload Form1 Set Form1 = Nothing End If End Sub