Bureau au 1er plan

frankie - 4 oct. 2000 à 15:06
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 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

1 réponse

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
31 juil. 2007 à 16:48
Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

E.B.
0
Rejoignez-nous