自定义工作簿图标

admin

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   1 x0 u+ P& @! l
2. Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
   
3. Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
   4 o$ z" u+ T$ M
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
   : c( l& o* p: n0 t3 l& A
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
     w* k: N& [2 Y$ Y$ D
7. Private Sub Workbook_Open()
   % N* l5 s) X! D
8.     Dim IStyle As Long
   
9.     Dim hIcon As Long
   
10.     Dim hWndForm As Long
    $ |8 `0 }$ K2 k* u
11.     hWndForm = FindWindow(vbNullString, Application.Caption)
    - z- z  g7 X1 x0 U
12.     hIcon = ExtractIcon(0, ActiveWorkbook.Path & "\p.bmp", 0)
    * W( Z' {: J$ x* W9 t2 H7 _8 F
13.     SendMessage hWndForm, WM_SETICON, True, hIcon
    1 c9 L) G% P, i- i( b; ^7 n
14.     SendMessage hWndForm, WM_SETICON, False, hIcon
    
15. End Sub

复制代码

7 {, }/ n7 w3 _; v' n2 M
, J8 Y* a$ C$ q2 v