xhq1954425 发表于 2010-2-26 06:15:00

[求助]CAD左上角图标和CAD2008能改动吗？

<p>如下图所示：</p><p>&nbsp;</p>

ZHAOWCHANG 发表于 2010-2-26 08:33:00

<p>当然可以，在ACAD.DLL文件中</p>

xhq1954425 发表于 2010-3-6 06:35:00

<p><strong><font face="Verdana" color="#61b713">谢谢ZHAOWCHANG！</font></strong></p><p><strong><font face="Verdana" color="#61b713">能不能把操作步骤说一下！能不能连同CAD2008这几个字也一同去掉呢？</font></strong></p>

hydkot99 发表于 2010-4-29 15:15:00

对CAD2009而言，在哪里呢？好像在CAD2009的安装目录下找不到ACAD.DLL

fujiang 发表于 2010-4-30 00:26:00

<p>可以改的 ， 用VBA</p><p>Option Explicit</p><p>Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String) As Long<br/>Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long<br/>Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br/>Private Const WM_SETICON = &amp;H80<br/>Private Const IMAGE_ICON = 1<br/>Private Const LR_LOADFROMFILE = &amp;H10</p><p>Public Sub ChangeCADCaption()<br/>Dim strCaption As String<br/>strCaption = "ZWCAD 2009i 专业版"<br/>SetWindowText Application.Hwnd, strCaption<br/>End Sub<br/>Public Sub SetIcon()<br/>Dim hIcon As Long<br/>Dim FileName As String<br/>FileName = "cad.ico"<br/>'FileName 图标文件, Hwnd ACAD应用程序的句柄<br/>hIcon = LoadImage(0&amp;, FileName, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)<br/>If hIcon &lt;&gt; 0 Then<br/>Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)<br/>End If<br/>End Sub</p><p></p><p></p>

xhq1954425 发表于 2010-4-30 06:37:00

fujiang发表于2010-4-30 0:26:00static/image/common/back.gif可以改的 ， 用VBAOption ExplicitPublic Declare Function SetWindowText Lib \"user32\" Alias \"SetWindowTextA\" (ByVal Hwnd As Long, ByVal lpString As String) As LongPrivate Declare

<p></p>谢谢你！我没用过VBA，完全看不懂！不知这个程序如何运行？能否说详细点……
页: [1]
查看完整版本: [求助]CAD左上角图标和CAD2008能改动吗？