1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Public Function ChangeIconeAccess(NouvIcone As String, Optional frm As String) As Boolean
'Objectif: Mettre une icône personnalisée dans la barre titre l'application ou dans celle d'un formulaire
'Le fichier contenant cette icône est stocké dans le même répertoire que l'application .mdb
Dim hIcon As Long
Dim hwnd As Long
Dim CheminIcone As String
CheminIcone = s_cheminBaseSilo & NouvIcone
If frm = "" Then
hwnd = Application.hWndAccessApp
Else
hwnd = Forms(frm).hwnd
End If
hIcon = LoadImage(0&, CheminIcone, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
' Argument wParam de l'API SendMessage: si 0 = icône de taille réduite. si 1 = icône de grande taille
If hIcon <> 0 Then
Call SendMessage(hwnd, WM_SETICON, 1, ByVal hIcon)
ChangeIconeAccess = True
End If
End Function
'Exemple : Call ChangeIconeAccess("Nci.ico", Me.Name) |
Partager