[求助]：怎么能让logo显示在窗体上

a2joe

请问各位大虾，有谁可以告诉我在autocad的对话框中怎么把logo加进去，用*.dcl以及VB是不是可以做到。如图中的AutoCAD前的Logo：

efan2000

什么对话框，是AutoCAD本身的，还是自己定制的窗体。DCL窗体没有显示图像的功能，但是可以在显示后通用API来操作。

a2joe

是自己定制的，用API？不懂，能不能详细一点，谢谢

efan2000

如果是用VB的话，那么放置一个图像控件到窗体上，加入图像不就可能显示。你所要的效果是什么样的，可否举个例子。

a2joe

图像是可以放在窗体上，这个我知道了，但我想在窗体的caption值前加一个图像，就像上面的图中的一样，在caption＝AutoCAD 2002 前加一个我画了圈的图像，不知道能不能，谢谢回复。

efan2000

这个是窗体的图标，设计时将Icon的属性设为你自己的图像文件，它就自动显示你的样式了。

a2joe

不好意思，这是VB的，但vba中好像没啊，怎么办，有办法吗？图像文件是用.ico的，怎么才能做.ico啊？
万分感谢！！！

efan2000

制作图标有专门的工具。
在VBA中使用，只能用API函数，等窗体启动后，用GetActiveWindow获取窗体的句柄，用LoadImage生成一个图标实例，然后用SendMessage向窗体发送消息，设置图标。
如：

2. 
   
3.   [FONT=courier new]
   
4. Private Declare Function GetActiveWindow Lib "user32" () As Long
   
5. 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
   
6. 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
   
7. Private Const WM_SETICON = &H80
   
8. Private Const IMAGE_ICON = 1
   
9. Private Const LR_LOADFROMFILE = &H10
   
10. 
    
11. Sub SetIcon()
    
12.     Dim Hwnd As Long
    
13.     Dim Name As String
    
14.     Dim hIcon As Long
    
15. 
    
16.     Name '代表图标的全路径文件名
    
17.     Hwnd=GetActiveWindow
    
18.     hIcon = LoadImage(0&, Name, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
    
19.     If hIcon <> 0 Then
    
20.         Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)
    
21.     End If
    
22. End Sub
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Declare Function GetActiveWindow Lib "user32" () 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 = &H80<br /> Private Const IMAGE_ICON = 1<br /> Private Const LR_LOADFROMFILE = &H10<br /> <br /> Sub SetIcon()<br />     Dim Hwnd As Long<br />     Dim Name As String<br />     Dim hIcon As Long<br /> <br />     Name '代表图标的全路径文件名<br />     Hwnd=GetActiveWindow<br />     hIcon = LoadImage(0&, Name, 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 />   [/FONT]<br />

a2joe

谢谢，可以用了，不过就是不知道怎么做ico的文件，能再告诉我ico用什么软件做吗？

efan2000

用Google搜索“ 图标制作”，可以找到很多，下载一个慢慢研究一下，跟制作图像差不多吧，上手很容易。