Terminate イベント

[アーティクル]
04/07/2023

オブジェクトを参照するすべての変数が 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 のサポートおよびフィードバックを参照してください。

フィードバック

以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバックメカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバックシステムに置き換えます。詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。

フィードバックの送信と表示

このページ

すべてのページフィードバックを表示