cs_drakkard
Messages postés99Date d'inscriptionlundi 20 juin 2005StatutMembreDernière intervention20 janvier 2009
-
27 juin 2006 à 11:39
cs_drakkard
Messages postés99Date d'inscriptionlundi 20 juin 2005StatutMembreDernière intervention20 janvier 2009
-
28 juin 2006 à 10:45
Bonjour Bonjour,
j'avais déjà posé cette question il y a peu, j'ai eu des réponses mais voilà j'ai un autre problème en rapport à celui-ci.
Dès que je passe en theme XP, cela ne fonctionne plus. Voici le bout de code utilisé...
Private Function TopAsk(hWnd As Long) As Boolean
Dim Rec As RECT 'declaration de la variable accueuillant les infos de la position de la fenetre désirée
GetWindowRect hWnd, Rec 'enregistrement des infos
If Not WindowFromPoint(Rec.Left, Rec.Top) = Me.hWnd Then 'si la fenetre au premier plan et au points X et Y de la fenetre a tester est la meme que celle que l'on a affiché, alors la fenetre a tester n'est pas en premier plan permanent car elle s'est laissée recouvrir
TopAsk = False
Else
TopAsk = True
End If
End Function
private sub cmd_click()
If TopAsk(Me.hWnd) then msgbox "On Top"
end sub
Merci des réponses
Bidouille & Cie
A voir également:
Vérifier si une form est au dessus de toute les autres