;|
通过VBA更改AutoCAD窗口的标题名称 返回目录
来源: 明经通道 作(译)者: 郑立楷
上传者: mccad 上传时间:2002年9月17日
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As
String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Sub SetAcadTitle()
Dim hw&
hw = GetParent(GetParent(ThisDrawing.hwnd))
SetWindowText hw, "明经通道 http://www.mjtd.com"/;
End Sub
|;