ACC2000 : Comment faire pour associer une icône personnalisée à un formulaire

Dans Microsoft Access, il n'existe aucun moyen intégré d'associer une icône personnalisée pour un formulaire ; toutefois, cet article explique comment modifier icône d'un formulaire en utilisant les appels API (interface) programmation d'application.

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Exemple de code

Pour utiliser des appels D'API pour définir une icône personnalisée pour un formulaire, procédez comme suit.

Remarque : vous devrez peut-être certaines fonctions API de Microsoft Windows définies dans une bibliothèque Microsoft Access existante ; par conséquent, vos déclarations peuvent être des doublons. Si vous recevez un message d'erreur Qu'est un nom de procédure en double, supprimer ou commentaire les relevés de déclaration dans votre code.

1. Créez un module, puis tapez ou collez le code suivant dans la section Déclarations :

   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
      
   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
      
   Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
   Private Const WM_SETICON = &H80
   Private Const IMAGE_ICON = 1
   Private Const LR_LOADFROMFILE = &H10
   Private Const SM_CXSMICON    As Long = 49
   Private Const SM_CYSMICON    As Long = 50
   
   Public Function SetFormIcon(hWnd As Long, strIconPath As String) As Boolean
       Dim lIcon As Long
       Dim lResult As Long
       Dim X As Long, Y As Long
       
       X = GetSystemMetrics(SM_CXSMICON)
       Y = GetSystemMetrics(SM_CYSMICON)
       lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)
       lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)
   End Function
   					

2. Pour définir l'icône, tapez le code suivant dans le module du formulaire (remplacez le bon lecteur et le chemin d'accès pour votre icône personnalisée):

   Private Sub Form_Open(Cancel As Integer)
      SetFormIcon Me.hWnd, "C:\MyIcon.ico"
   End Sub
   					

Pour plus d'informations sur déclaration API, dans Visual Basic Editor, cliquez sur l'aide de Microsoft Visual Basic dans le menu Aide , tapez déclarer instruction dans le Compagnon Office ou l'aide intuitive et puis cliquez sur Rechercher pour afficher la rubrique.