窗口状态属性 （ActiveX）

签名

工 务 局：

object.WindowState

对象

类型：应用程序，文档

此属性适用的对象。

属性值

只读：不

类型：枚举acWindowState

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

言论

没有额外的评论。

例子

工 务 局：

Sub Example_WindowState()
    ' This example reads and displays the current window state of the AutoCAD application.

    Dim CurrentState As String
    
    ' Use the "WindowState" variable to determine the window state of AutoCAD
    Select Case WindowState
        Case acMin: CurrentState = "Minimized"
        Case acMax: CurrentState = "Maximized"
        Case acNorm: CurrentState = "Normal Size"
    End Select

    ' Display window state
    MsgBox "AutoCAD is now: " & CurrentState
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_WindowState()
    ;; This example reads and displays the current window state of the AutoCAD application.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Use the "WindowState" variable to determine the window state of AutoCAD
    (setq CurrentState (cond 
                           ((= (vla-get-WindowState acadObj) acMin) "Minimized")
                           ((= (vla-get-WindowState acadObj) acMax) "Maximized")
                           ((= (vla-get-WindowState acadObj) acNorm) "Normal Size")
                       ))

    ;; Display window state
    (alert (strcat "AutoCAD is now: " CurrentState))
)