Boîte de dialogue "A propos de"

Publié le par Raymond

Très peu de développeurs Access savent que la boîte "à propos de" de ShellAbout peut être utilisée au titre de l'application et être complétée par des mentions spécifiques à l'application Access. Cette boîte peut être affichée à partir d'un formulaire par une fonction simple.
Supposons une application, un formulaire, et sur ce formulaire un bouton de commande nommé Commande0 qui est chargé d'afficher la boîte "A propos de":

- Au début du module de code de votre formulaire, placer la déclaration suivante:
Private Declare Function ShellAbout _
    Lib "shell32.dll" Alias "ShellAboutA" _
    (ByVal hWnd As Long, ByVal NomApplication As String, _
    ByVal autresMentions As String, ByVal hIcon As Long) As Long

- Sur l'événement Click de votre bouton, placer ce code:
Private Sub Commande0_Click()
    ShellAbout Me.hWnd, "Windows for OfficeSystemAccess", _
        "Raymond Sénèque Access 2007" & vbCrLf _
        & "Application FTP OfficeSystemAccess © 2007", _
        ByVal 0&
End Sub

Enregistrer votre code, ouvrir votre formulaire en mode normal, cliquer sur le bouton de commande Commande0 et vérifier votre résultat.

c'est beau, c'est simple et c'est gratuit.


Publié dans Astuces

Commenter cet article