CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2022 开发者帮助 › 查看内容

AutoCAD 2022 开发者帮助

WindowChanged 事件（ActiveX）

2024-5-18 18:46| 发布者: admin| 查看: 109| 评论: 0|原作者: admin|来自: AutoCAD

当应用程序或文档窗口发生更改时触发。

支持的平台：仅限 Windows

签名

VBA：

object.WindowChanged(WindowState)

对象

类型：应用程序，文档

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

Window状态

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

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

可视化 LISP：