hongmei 发表于 2006-8-17 13:01:00

[求助]怎样才能改变CAD的标题？

<P>怎样才能改变CAD的标题？</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long<BR>Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long<BR><BR>Sub SetAcadTitle()<BR>Dim hw&amp;<BR>hw = GetParent(GetParent(ThisDrawing.hwnd))<BR>SetWindowText hw, "明经通道 <A href="http://www.mjtd.com/" target="_blank" >http://www.mjtd.com</A>"<BR>End Sub</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">把代码放在哪运行？是标准模块吗？</P>

wyj7485 发表于 2006-8-17 14:17:00

插入一个模块,放到里面即可
页: [1]
查看完整版本: [求助]怎样才能改变CAD的标题？