|
|
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
这是本社区的原码程序，能改变cad的窗口标题，但是，我在cad中内含的VBA编辑器中，粘贴上去，可是不能编译！说：“常数、固定长度字符串、数组、用户定义类型以及Declare语句不允许作为对象模块的公共成员”，到底是程序有问题，还是.....？问题可能很简单，我比较熟悉lisp,对VBA还希望大家指教。 |
|
置顶卡
