概要 - アプリケーション ウィンドウをコントロールする(VBA/ActiveX)

アプリケーション ウィンドウをコントロールできるので、開発者は効果的でインテリジェントなアプリケーションを柔軟に作成することができます。

アプリケーションで、コードが他のアプリケーション(たとえば、Excel)の作業を実行している間、AutoCAD ウィンドウを最小化するほうがよい場合があります。また、ユーザからの入力を要求するプロンプトなどのタスクを実行する前に AutoCAD ウィンドウの状態を確認することが必要となる場合があります。

Application オブジェクトにあるメソッドとプロパティを使用すると、アプリケーション ウィンドウの位置、サイズ、ウィンドウの表示/非表示を変更することができます。また、WindowState プロパティを使用すると、アプリケーション ウィンドウを最小化または最大化したり、アプリケーション ウィンドウの現在の状態を確認することができます。

アプリケーション ウィンドウの位置とサイズを変更する

次の例は、WindowTop、WindowLeft、Width、Height プロパティを使用して、AutoCAD アプリケーション ウィンドウを画面の左上コーナーに配置し、サイズを幅 400 x 高さ 400 ピクセルに変更します。

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

アプリケーション ウィンドウを非表示にする

以下の例は、Visible プロパティを使用して、AutoCAD アプリケーションをエンド ユーザに対し非表示にします。

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