如何更改ＡＵＴＯＣＡＤ的标题栏？

xhf2411 · 发表于 2008-9-27 00:42:34

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

如题．
如把ＡＵＴＯＣＡＤ改名为＂天正＂，用ＶＢＡ能实现吗？

woaishuijia · 发表于 2008-9-27 10:57:56

好像不能.
Application对象的Caption属性是只读的

wzj_711 · 发表于 2008-9-27 12:45:46

常规属性没试过但是用api函数能实现改为任何标题文字

记得更改pccad2007标题栏来自于深蓝的帖子有个vba程序的代码就是这样实现的

我找找找到了传一个如果找的话的呵呵

sealive_leafage · 发表于 2008-9-27 13:21:55

利用API函数可以实现
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Sub main()
SetWindowText AcadApplication.hwnd, "天正CAD"
End Sub

xhf2411 · 发表于 2008-9-27 20:47:56

非常感谢，还不熟悉ＡＰＩ函数，不知道这个程序是不是可以更改任何２００Ｘ版本的ＣＡＤ呢？

xhf2411 · 发表于 2008-9-27 21:44:15

刚才在２００４下测试通过，谢谢！
顺便悄悄的问一句，可以更改图标吗？

wode12580 · 发表于 2010-9-22 10:35:52

各位大侠，我也想改一下标题栏，可就是不知道该如何使用楼上的程序，麻烦大侠不吝赐教，谢谢！！！！！！！！！！

比你打开红 · 发表于 2010-10-11 21:31:49

提示: 作者被禁止或删除内容自动屏蔽

mmqm0405 · 发表于 2010-10-23 03:14:08

NB的人群啊····

szsdwy · 发表于 2010-11-23 20:25:16

有必要改变那个吗?

		自动登录	找回密码
密码			注册

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已答复] 如何更改ＡＵＴＯＣＡＤ的标题栏？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

比你打开红比你打开红当前离线积分 -52 UID 1324998 主题在线时间小时注册时间 2010-10-10 头像被屏蔽	发表于 2010-10-11 21:31:49 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报