窗口更改事件 （ActiveX）

签名

工 务 局：

object.WindowChanged(WindowState)

对象

类型：应用程序，文档

计算结果为有效容器对象的对象表达式。在这种情况下，唯一有效的容器是应用程序和文档。

窗口状态

类型：整数;输入到处理程序。

• acMin- 窗口最小化。
• acMax- 窗口最大化。
• acNorm- 窗口是正常的（既不最小化也不最大化）。

言论

在实现随应用程序或文档窗口进行跟踪的工具栏或无模式对话框时，此事件非常有用。VB 或 ObjectARX 应用程序可以使用HWNDFrame参数获取窗口的坐标，将这些坐标转换为屏幕或父坐标，并使用此信息定位其他窗口。

显示模式对话框时不会触发任何事件。

例子

工 务 局：

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