xazhji 发表于 2003-6-20 11:46:00

我在这里找到一个修改cad标题的VBA程序，但是不能编译？

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还希望大家指教。

mccad 发表于 2003-6-20 12:55:00

把代码放到新的模块里，而不是在ThisDrawing模块中

xazhji 发表于 2003-6-23 08:59:00

好了，谢谢了，不过，我发现一个小错误！

在   "明经通道 http://www.mjtd.com";      后面是不是多了一个    " ;"       ？
我把它删除掉了，就可以了。

         另外，我们的论坛好像改了，当然，优点一眼便知，可是，好像上传文件不好，我希望别限制，一大早，就说，“今天还可以上传0个；论坛限制：一次5个，一天0个，每个500k”
我感觉好像不太友好哟！

xazhji 发表于 2003-6-23 10:09:00

可是，怎样才能把它转化成lisp可调用的dvb格式呢？

mccad 发表于 2003-6-23 16:18:00

到二次开发栏目中找找相关的文章

xazhji发表于2003-6-23 10:09:00static/image/common/back.gif可是，怎样才能把它转化成lisp可调用的dvb格式呢？
页: [1]
查看完整版本: 我在这里找到一个修改cad标题的VBA程序，但是不能编译？