La capacidad para controlar la ventana de la aplicación ofrece a los programadores la flexibilidad que necesitan para crear aplicaciones eficaces e inteligentes. A veces, por ejemplo mientras se está procesando código en otra aplicación como Excel, conviene minimizar la ventana de AutoCAD. Además, podría ser necesario verificar el estado de la ventana de AutoCAD antes de realizar tareas como solicitar información al usuario.
Los métodos y las propiedades del objeto de aplicación permiten cambiar la posición, el tamaño y la visibilidad de la ventana de la aplicación. También puede utilizar la propiedad WindowState para minimizar, maximizar y comprobar el estado actual de la ventana de la aplicación.
Colocación y ajuste de tamaño de la ventana de la aplicación
En este ejemplo se utilizan las propiedades WindowTop, WindowLeft, Width y Height para situar la ventana de la aplicación AutoCAD en la esquina superior izquierda de la pantalla y fijar su tamaño en 400 píxeles de ancho por 400 de alto.
Sub Ch3_PositionApplicationWindow()
ThisDrawing.Application.WindowTop = 0
ThisDrawing.Application.WindowLeft = 0
ThisDrawing.Application.width = 400
ThisDrawing.Application.height = 400
End Sub
Para maximizar la ventana de la aplicación
Sub Ch3_MaximizeApplicationWindow()
ThisDrawing.Application.WindowState = acMax
End Sub
Para minimizar la ventana de la aplicación
Sub Ch3_PositionApplicationWindow()
ThisDrawing.Application.WindowState = acMin
End Sub
Para conocer el estado actual de la ventana de AutoCAD
Este ejemplo consulta el estado de la ventana de aplicación y lo presenta en un cuadro de mensaje.
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