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