~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : FermerFenetre Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _ ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long ' Déclaration de constante Public Const WM_CLOSE = &H10 Public Function FermerFenetre(stTitreFenetre As String) As Boolean ' Cette fonction ferme la fenêtre dont le titre exact ' est passé en paramètre. ' Elle retourne Vrai en cas de réussite, sinon Faux. Dim lgRep As Long ' Recherche du "handle" de la fenêtre lgRep = FindWindow(vbNullString, stTitreFenetre) If lgRep Then ' Envoi l'ordre de fermeture à la fenêtre lgRep = PostMessage(lgRep, WM_CLOSE, vbNull, vbNull) End If ' Retourne le résultat de l'opération FermerFenetre = lgRep End Function |