[分享]：资料，如何用VBA设置ACAD的TITLE标题栏...

XDSoft

Question
How can I change the text displayed in the AutoCAD title bar using VBA?
Answer
The text displayed in the AutoCAD title bar can be changed by using the Win32
API functions, GetActiveWindow and SetWindowText. Refer the MSDN CD for more
details on these functions.

The sample VBA code that follows extracts and changes the text in the AutoCAD
title bar. Enter the following lines of code in a general module:
Public Declare Function GetActiveWindow Lib "user32" () As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal
hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal
hwnd As Long, ByVal lpString As String) As Long
and the following lines of code in AutoCAD Objects Module
Sub ch_titlebar()
  Dim acadhnd As Long
  Dim titletxt As String
  Dim curtxt As String

  titletxt = "This is my version of AutoCAD."
  curtxt = Space(256)

  'Obtains the handle of AutoCAD window.
  acadhnd = GetActiveWindow

  'Obtain the current text in the titlebar.
  GetWindowText acadhnd, curtxt, 125
  MsgBox curtxt

  'Set the desired text for the titlebar.
  SetWindowText acadhnd, titletxt
End Sub

Quelea

好玩，呵呵。