自定义工作簿图标

admin

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   , O$ a  D, Y2 D" S$ F1 B& v) b3 j7 R) K
2. Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
   & U$ S* e( C0 E; o  ^
3. Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
   
4. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
   
5. Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
   
6. Private Const WM_SETICON = &H80
   
7. Private Sub Workbook_Open()
   
8.     Dim IStyle As Long
   
9.     Dim hIcon As Long
   ) E$ Y2 [$ O0 ~6 s" |
10.     Dim hWndForm As Long
    % K, G' t! ]3 B5 `6 m
11.     hWndForm = FindWindow(vbNullString, Application.Caption)
    
12.     hIcon = ExtractIcon(0, ActiveWorkbook.Path & "\p.bmp", 0)
    - \& A+ s* E) {/ B- y" h. R  s9 b2 f' ]
13.     SendMessage hWndForm, WM_SETICON, True, hIcon
    8 [8 e& x) N5 R% a7 @& O" @1 w% ]6 G
14.     SendMessage hWndForm, WM_SETICON, False, hIcon
    ! u- i) f/ b. T8 W/ G
15. End Sub

复制代码