[VBA]VBA窗体上图标

gzy

很想在VB窗体上搞个图标，但一直找不到方法
到底有没有方法能够实现在VBA/VB窗体左上角文字之前显示一个小图标呢？

efan2000

用下面的代码可以实现，在VB中直接使用窗体的Hwnd，而不需要GetActiveWindow获取当前活动窗口的句柄。
不过有个问题，在VBA中的标题前面部分被遮住了。

2. 
   
3. Private Declare Function GetActiveWindow Lib "user32" () As Long
   
4. 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
   
5. 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
   
6. Private Const WM_SETICON = &H80
   
7. Private Const IMAGE_ICON = 1
   
8. Private Const LR_LOADFROMFILE = &H10
   
9. 
   
10. Private Sub UserForm_Activate()
    
11.     Dim Hwnd As Long
    
12.     Hwnd = GetActiveWindow
    
13.     Dim hIcon As Long
    
14.     hIcon = LoadImage(0&, "c:\光缆.ico", IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
    
15.     If hIcon <> 0 Then
    
16.         Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)
    
17.     End If
    
18. End Sub
    

<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 /> Private Sub UserForm_Activate()<br />     Dim Hwnd As Long<br />     Hwnd = GetActiveWindow<br />     Dim hIcon As Long<br />     hIcon = LoadImage(0&, "c:\光缆.ico", 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 />

gzy

多谢！

cag

是不是一定要是ico的,而且是16X16的?

efan2000

图标肯定要使用ICO类型的，但大小一般情况下是16*16，如果一定要与标准的风格相异时，也可以自已设定大小。

wyj7485

先在窗体的标题前空6空格,再重新赋予无空格的标题就可以消除被遮现象.

王咣生

窗体标题被遮住一部分,只要刷新一下窗体就可以了,可以这样


Me.Caption = Me.Caption加到efan2000的代码中

winds357

学习一下！