WindowChanged イベント(ActiveX)

アプリケーション ウィンドウまたはドキュメント ウィンドウに変更があったときに開始されます。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.WindowChanged(WindowState)

object

タイプ: Application、Document

有効なコンテナ オブジェクトを評価するオブジェクト式この場合、有効なコンテナはアプリケーションとドキュメントです。

WindowState

タイプ: 整数; ハンドラへの入力

• acMin - ウィンドウが最小化されます。
• acMax - ウィンドウが最大化されます。
• acNorm - ウィンドウは通常サイズです(最小化も最大化もされません)。

注意

このイベントは、アプリケーションやドキュメント ウィンドウと一緒に移動するツールバーやモードのないダイアログ ボックスをインプリメントするときに役に立ちます。VB または ObjectARX アプリケーションは、HWNDFrame パラメータを使用してウィンドウの座標を取得し、この座標をスクリーンまたは親の座標に変換し、この情報を使用して他のウィンドウを位置付けることができます。

モーダル ダイアログが表示されている間、イベントは発生しません。

例

VBA:

Private Sub AcadDocument_WindowChanged(ByVal WindowState As Long)
    ' This example intercepts a drawing WindowChanged event.
    '
    ' This event is triggered when the window state of the
    ' current drawing window is changed.
    '
    ' To trigger this example event: Change the window state of the drawing window
    '
    ' For example: Minimize or maximize the drawing window

    Dim CurrentState As String

    ' Use the "WindowState" variable to determine the new drawing window state
    Select Case WindowState
        Case acMin: CurrentState = "Minimized"
        Case acMax: CurrentState = "Maximized"
        Case acNorm: CurrentState = "Normal Size"
    End Select

    MsgBox "The drawing window is now: " & CurrentState
End Sub

Visual LISP:

Not available