frankie
-
4 oct. 2000 à 15:06
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
31 juil. 2007 à 16:48
je désire écrire une petite appli qui, quelques que soient les fenêtres ouvertes, fasse apparaitre au 1er plan le bureau.
Quelqu'un sait il pourquoi le code ci dessous ne fonctionne pas ?
Merci d'avance
Dim handBureau As Long
Dim Pos As Long
handBureau = GetDesktopWindow 'récupère le "handle" du bureau
If IsWindowVisible(handBureau) = True Then
Txt.Text = "bureau visible"
Else
Txt.Text = "bureau caché"
Pos = BringWindowToTop(handBureau) 'met la fenêtre dont le "handle" est passé en paramètre au premier plan.
End If