怎么改变cad窗口的标题栏

fcm · 发表于 2013-2-1 15:36:49

woaishuijia 发表于 2013-2-1 15:16 static/image/common/back.gif$ M( c1 v- Q. o% R3 M
可以肯定是你的操作系统有问题了。具体原因可能是安装的是精简版系统，导致功能不完整；也有可能安装的某 ...

您怎么会肯定是我的电脑系统有问题啊？您在你自己的电脑系统上试过修改CAD窗口最上面标题栏里的内容了吗？

mokson · 发表于 2013-2-1 17:16:11

你们都是高手呀

fcm · 发表于 2013-2-1 20:53:03

woaishuijia 发表于 2013-2-1 13:14 static/image/common/back.gif
( h3 c( K& U! R7 G* _本代码引用的是WIN32API，你的操作系统与之不匹配或者系统本身有问题

我把电脑系统还原到安装时的状态了，CAD也重新安装了CAD2007完整版了，可是用上面那代码还是不行啊，用那上面的代码后CAD最上面标题栏里的左上角变成了问号等乱码，这到底是怎么回事啊？

fcm · 发表于 2013-2-1 21:03:01

three_zyh 发表于 2013-2-1 12:28 static/image/common/back.gif, M- I1 b# k5 m f# p7 k5 E
真正掌握 cad 的专家。

这里的版主woaishuijia怎么不给我问他问题了啊？

装修 · 发表于 2013-2-1 21:38:56

woaishuijia 发表于 2013-2-1 15:16 static/image/common/back.gif" W' C5 _% J8 v% D) R9 {
可以肯定是你的操作系统有问题了。具体原因可能是安装的是精简版系统，导致功能不完整；也有可能安装的某 ...

我也很想知道，怎样才可以把CAD最上面标题栏里的内容修改为个性化的内容？

woaishuijia · 发表于 2013-2-2 06:07:41

fcm 发表于 2013-2-1 20:53 static/image/common/back.gif1 r+ c% f1 l% [
我把电脑系统还原到安装时的状态了，CAD也重新安装了CAD2007完整版了，可是用上面那代码还是不行啊，用那 ...

fcm · 发表于 2013-2-2 09:31:34

woaishuijia 发表于 2013-2-2 06:07 static/image/common/back.gif

按照你截图里面的代码，我在CAD和Excel2003里试验成功了！非常谢谢您！但是你截图里的代码与网页上面那起初的代码有地方不同的，你截图里的代码多了“Option Explicit”这行。而且在WPS的电子表格里却试验不行。
能使用的代码是这样的：
Option Explicit
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Sub MT()
SetWindowText Application.hwnd, "我自己的标题"
End Sub

fcm · 发表于 2013-2-2 15:29:31

woaishuijia 发表于 2013-2-2 06:07 static/image/common/back.gif

为什么在WPS的电子表格里试验不行啊？所有Word里也不行啊，是怎么回事啊？截图如下：

woaishuijia · 发表于 2013-2-2 21:22:06

本帖最后由 woaishuijia 于 2013-2-2 21:26 编辑

fcm 发表于 2013-2-2 15:29 static/image/common/back.gif3 U; e0 Q3 x7 Z
为什么在WPS的电子表格里试验不行啊？所有Word里也不行啊，是怎么回事啊？截图如下：

Word没有Hwnd属性,需要用另外的方法获取窗口句柄(就是操作系统分配给窗口的编号,是窗口唯一的标识),代码比这个复杂一点。WPS我没用过,不了解。

fcm · 发表于 2013-2-2 22:45:16

woaishuijia 发表于 2013-2-2 21:22 static/image/common/back.gif
# K4 _) ~4 N2 w7 I7 FWord没有Hwnd属性,需要用另外的方法获取窗口句柄(就是操作系统分配给窗口的编号,是窗口唯一的标识),代码比 ...

您好！您知道Word修改标题栏内容的代码吗？

woaishuijia · 发表于 2013-2-3 07:42:36

fcm 发表于 2013-2-2 22:45 static/image/common/back.gif
$ C, `1 O) ^) |% j; H5 Y您好！您知道Word修改标题栏内容的代码吗？

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long+ T4 I1 ]+ q. G+ {& P' W8 g1 u
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long6 A7 y) c2 Q* \
1 b/ ]: S* u8 A
Sub MT()8 F7 [1 y- W/ ~- N: B% `
SetWindowText FindWindow("OpusApp", vbNullString), "改着玩玩"
# e6 ? e8 H8 b2 j
End Sub

复制代码

fcm · 发表于 2013-2-3 11:20:26

woaishuijia 发表于 2013-2-3 07:42 static/image/common/back.gif

您好！您是高手，我在Word2003里试验成功了！非常谢谢您！您可以试试修改WPS标题栏里的内容吗？因为现在我们都在使用WPS，很少使用Office 2003了。再就是请问您，您是怎么能写出这些代码的？有什么方法和技巧吗？

woaishuijia · 发表于 2013-2-5 13:03:03

本版区供网友讨论交流AutoCAD软件的使用方法和心得体会，与此无关的问题请到本坛相关版区讨论。

adminsong · 发表于 2013-3-20 08:12:10

楼主，win7 的64位系统，cad2013该如何设置啊

djh1006 · 发表于 2013-10-14 20:06:43

有個性化設置太好了，謝謝分享

迷恋、格式化 · 发表于 2017-4-19 13:38:19

http://C:\\Users\\Administrator\\Desktop
         我的cad2012  为什么不行啊  我都试了好多次了~大神们帮帮我啊
  谢谢

迷恋、格式化 · 发表于 2017-4-19 13:44:02

我的cad2012 为什么不行啊我都试了好多次了~大神们帮帮我啊
谢谢

迷恋、格式化 · 发表于 2017-4-19 13:44:40

我的cad2012 为什么不行啊我都试了好多次了~大神们帮帮我啊
谢谢

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

通知

[已解决] 怎么改变cad窗口的标题栏