次の方法で共有


Terminate イベント

オブジェクトを参照するすべての変数Nothing に設定され、オブジェクトのインスタンスへの参照がメモリからすべて削除されるか、オブジェクトへの最後の参照がスコープ外になったときに発生します。

構文

Private Subobject_Terminate( )

object のプレースホルダーは、評価結果が [適用先] リストのオブジェクトとなるオブジェクトの式を表します。

解説

Terminate イベントは、オブジェクトの読み込み解除後に発生します。 メモリから UserForm またはクラスのインスタンスが削除された場合、アプリケーションは異常終了しているため、Terminate イベントはトリガーされません。

たとえば、クラスまたは UserForm の既存のすべてのインスタンスをメモリから削除する前にアプリケーションが End ステートメントを起動した場合、Terminate イベントはそのクラスまたは UserForm に対してトリガーされません。

ユーザーがフォームを閉じるためにクライアント領域をクリックすると、次のイベント プロシージャにより UserForm で警告音が数秒間鳴ります。

Private Sub UserForm_Activate()
    UserForm1.Caption = "Click me to kill me!"
End Sub

Private Sub UserForm_Click()
  Unload Me
End Sub

Private Sub UserForm_Terminate()
    Dim Count As Integer
    For Count = 1 To 100
        Beep
    Next
End Sub

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。