自定义工作簿图标

admin · 发表于 2020-4-6 00:06:33

您需要登录才可以下载或查看，没有账号？注册

x

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long8 n: w) v$ |& Q+ f
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
) i$ q: L" O5 A. Q% G; b
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long& `/ y+ V6 R: y" p7 U9 p" _
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
- ?2 L( y" J4 l! G
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
! Q. V/ ]4 X% ^! n8 M
Private Const WM_SETICON = &H80- z4 \$ D# u1 N( B* O. X) k) Y
Private Sub Workbook_Open()
- U/ ^3 D% S' h6 q
Dim IStyle As Long3 P' D) @0 D1 z" o8 x5 v r
Dim hIcon As Long9 w m7 d# e9 T% X7 }) `
Dim hWndForm As Long! r4 R4 O; L3 R% b' _1 \7 f+ |0 h
hWndForm = FindWindow(vbNullString, Application.Caption)
$ x5 e0 K( K4 d. Q
hIcon = ExtractIcon(0, ActiveWorkbook.Path & "\p.bmp", 0)1 I! K7 u& I- p% k0 C* Z! y
SendMessage hWndForm, WM_SETICON, True, hIcon
5 Y$ m* H E1 c8 I7 C( h7 G
SendMessage hWndForm, WM_SETICON, False, hIcon; M! z* _* M6 Z1 L. k! U
End Sub

复制代码

		自动登录	找回密码
密码			注册

[Excel课程] 自定义工作簿图标