如何不让在标题栏显示图形文件路径

wujkun

我如何才能不在标题栏显示图形文件路径,现在每打开一个文件都显示了这个图形文件的路径,我不想让别人知道这个路径,如何屏蔽呢?

wujkun

作者：dandijunqi 2002-6-18 10:58:10)

[求助]：如何改变autoCAD2000的标题栏变成我自己程序名?

作者：goldenshin 2002-6-18 13:14:41)

reCMDIFrameWnd *pp;
 pp=acedGetAcadFrame();
 pp->SetWindowText ("yourName");
 pp->UpdateWindow ();

 

vba程序怎么写呢

wujkun

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 as long

  hw = GetParent(GetParent(ThisDrawing.hwnd))
  SetWindowText hw, "明经通道 http://www.mjtd.com"
End Sub

怎么这样写了,还是没能改标题名呢,我的hw为0,这是什么原因呢?是不是代码加的位置不对