自定义窗体的问题，加图标

yrgui

如下图所示
ExcelVBA的窗体左上角想加个图标，怎么弄呢？
谢谢

(就是窗体标题栏的左角上，不知道为什么今天不能上传图片了）

蓝桥玄霜

1. 技巧135         用户窗体添加图标
   
2. 窗体在显示时标题栏上是没有图标的，如果希望在窗体上添加图标，可以借助API函数在窗体显示时添加自定义的图标。
   
3. 在VBE窗口中单击菜单“插入”→“用户窗体”，插入一个窗体，在窗体中添加一个Image控件，设置Image控件Picture属性为自定义图标的位图，并将Image控件的Visible属性设置为False，使窗体运行时隐藏Image控件，如图 135 1所示。
   
4. 
   
5. 图 135 1        窗体中添加Image控件
   
6. 在VBE中双击窗体，写入下面的代码。
   
7. #001  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
   
8. #002  Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
   
9. #003  Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
10. #004  Private Const WM_SETICON = &H80
    
11. #005  Private Const ICON_SMALL = 0&
    
12. #006  Private Const ICON_BIG = 1&
    
13. #007  Sub ChangeIcon(ByVal hWnd As Long, Optional ByVal hicon As Long = 0&)
    
14. #008      SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hicon
    
15. #009      SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hicon
    
16. #010      DrawMenuBar hWnd
    
17. #011  End Sub
    
18. #012  Private Sub UserForm_Initialize()
    
19. #013      Dim hWnd As Long
    
20. #014      hWnd = FindWindow(vbNullString, Me.Caption)
    
21. #015      Call ChangeIcon(hWnd, Image1.Picture.Handle)
    
22. #016  End Sub
    
23. 代码解析：
    
24. 窗体的初始化事件，窗体在显示时运行ChangeIcon函数，在标题栏中添加图标。
    
25. 第1行到第6行代码， API函数声明。
    
26. 第7行到第11行代码，ChangeIcon过程，用于转换图标。
    
27. 第14行代码，获得窗口句柄。
    
28. 第15行代码，运行ChangeIcon过程，将Image控件中的位图显示在窗体的标题栏上。
    
29. 运行窗体后，在窗体标题栏上添加图标，如图 135 2所示。
    
30. 
    
31. 图 135 2        在窗体标题栏中添加图标
    

复制代码

yrgui

多谢，
正在研究中

02761752696

学习    学习   谢谢