如何改变CAD的图标

lovezcs

我想改变]
CAD主窗口的图标
请问如何做
谢谢

efan2000

先使用LoadImage创建一个图标实例，然后使用SendMessage，后面跟WM_SETICON参数，发送消息更改图标。

lovezcs

可以详细说一下
或者举个例子吗?

efan2000

我不会C，在VBA中是通过调用API来实现的。
在VC++中应该也是类似的吧，程序可能更简单点。

2. 
   
3. 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
   
4. 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
   
5. Private Const WM_SETICON = &H80
   
6. Private Const IMAGE_ICON = 1
   
7. Private Const LR_LOADFROMFILE = &H10
   
8. 
   
9. Public Sub SetIcon()
   
10.     Dim hIcon As Long
    
11.    
    
12.     'FileName 图标文件, Hwnd  ACAD应用程序的句柄
    
13.     hIcon = LoadImage(0&, FileName, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
    
14.     If hIcon <> 0 Then
    
15.         Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)
    
16.     End If
    
17. End Sub
    

<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 = &H80<br /> Private Const IMAGE_ICON = 1<br /> Private Const LR_LOADFROMFILE = &H10<br /> <br /> Public Sub SetIcon()<br />     Dim hIcon As Long<br />     <br />     'FileName 图标文件, Hwnd  ACAD应用程序的句柄<br />     hIcon = LoadImage(0&, FileName, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)<br />     If hIcon <> 0 Then<br />         Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)<br />     End If<br /> End Sub<br />

wql

请教如何用VC编写改变CAD标题栏图标的程序？

中国虫

HICON hIcon=:oadIcon(_hdllInstance,MAXKEINTRESOURCE(IDI_XXX));//IDI_XXX是图标资源ID，具体LoadIcon的详细解释请参见MSDN
acedGetAcadFrame()->SetIcon(hIcon,FALSE);

wql

MSDN哪有说明?

中国虫

MSDN的字面意思就不解释了，从一个方面可以理解为Visual Studio的帮助。这是一个Windows开发的全书，如果你连LoadIcon都找不到，很难想象如何自己编程序。