~ 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 : AppliActivate ' Activation et mise au premier plan d'une application ' stAppName doit contenir le nom exact de l'application (barre de titre). Dim lgHwnd As Long, lgRet As Long ' Récupération du handle de la fenêtre de l'application ' que l'on cherche à activer lgHwnd = FindWindow(vbNullString, stAppName) ' Si la fenêtre ne peut être trouvée If Not (lgHwnd > 0) Then ' Impossible d'activer (retour erreur) lgRet = 0 Else ' Mise au premier plan et activation de la fenêtre de ' l'application d'après son handle ShowWindow lgHwnd, SW_SHOWMAXIMIZED ' Activation réussie lgRet = -1 End If ' Retourne le code erreur AppliActivate = lgRet End Function |