[求助]：用VBA能修改ACAD的窗口标题TITLE文字吗？

newer

如题，谢谢！！

:9 :9 :9

e2002

目前好像不行，没有提供方法

YueFeng

需要修改源程序的资源。用exescope试试，或是其它的汉化软件。都会有完成这种功能可能的。

EnjoyVba

很高兴发现这个空间。

这个问题VBA可以做，通过使用WIN32的API实现，可以去参考MSDN里面的 GetActiveWindow 和 SetWindowText两个API的用法。

下面是实现的VBA代码：

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal
hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal
hwnd As Long, ByVal lpString As String) As Long

Sub ch_titlebar()
  Dim acadhnd As Long
  Dim titletxt As String
  Dim curtxt As String

  titletxt = "This is my version of AutoCAD."
  curtxt = Space(256)

  '获得ACAD主窗口句柄
  acadhnd = GetActiveWindow

  '获得当前TITLE BAR的文本.
  GetWindowText acadhnd, curtxt, 125
  MsgBox curtxt

  '设置新的文本到TITLE BAR
  SetWindowText acadhnd, titletxt
End Sub

zkycds

厉害

woaining

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, "我爱张宁"
End Sub


这个程序不是简单吗！
注意换行哦

liubz

很有收获！我也想解决这个问题。谢谢

yybu

最初由 woaining 发布
[B]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 Lon... [/B]

woaining: 请教如何使用这段程序?是不是直接加载?

woaining

我都试过了

our

好像不行啊
试了没用啊

efan2000

在Windows中,程序中的每一个界面都有一个唯一的标识符，称为窗口的句柄。因而要修改ACAD的标题，首先要获取它的句柄值，而在R2004以下的版本只有文档（Document）才有句柄（Hwnd属性），所以要使用两次GetParent来取得其父窗口的句柄，而在R2004中应用程序（Application）也有句柄的属性，故能直接使用。设置窗口的标题是使用SetWindowText。
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA"
(ByVal hwnd As Long, ByVal lpString As String) As Long
'上面的声明可以在安装VB后使用API浏览器查看获得，在窗体之内使用时只能声明为Private（私有），而在模块中可以使用Public（公共），即也可以在其它模块或者窗体中使用。
Sub SetAcadTitle()
Dim hw&
hw = GetParent(GetParent(ThisDrawing.hwnd))
SetWindowText hw, "我爱张宁"
End Sub