关于控制应用程序窗口 （VBA/ActiveX）

“应用程序”窗口的位置和大小

本示例使用 、 、 和 特性将 AutoCAD 应用程序窗口定位在屏幕的左上角，并将其大小调整为 400 像素宽 x 400 像素高。WindowTopWindowLeftWidthHeight

Sub Ch3_PositionApplicationWindow()
  ThisDrawing.Application.WindowTop = 0
  ThisDrawing.Application.WindowLeft = 0
  ThisDrawing.Application.width = 400
  ThisDrawing.Application.height = 400
End Sub

最大化“应用程序”窗口

Sub Ch3_MaximizeApplicationWindow()
  ThisDrawing.Application.WindowState = acMax
End Sub

最小化“应用程序”窗口

Sub Ch3_MinimizeApplicationWindow()
  ThisDrawing.Application.WindowState = acMin
End Sub

查找“应用程序”窗口的当前状态

此示例查询“应用程序”窗口的状态，并在消息框中向用户显示该状态。

Sub Ch3_CurrentWindowState()
  Dim CurrWindowState As Integer
  Dim msg As String
  CurrWindowState = ThisDrawing.Application.WindowState
  msg = Choose(CurrWindowState, "normal", "minimized", "maximized") 
  MsgBox "The application window is " + msg
End Sub

使“应用程序”窗口不可见

以下代码使用该特性使 AutoCAD 应用程序对最终用户不可见。Visible

Sub Ch3_HideWindowState()
  ThisDrawing.Application.Visible = False
End Sub