OCX...Résolu

Question

Bonjour, je cherche un ocx qui me permettrai de positionner une form au dessus des autres, et qu'elle le reste tout le temps..., en gros comme la barre de proproété de dreamweaver 4 ou comme la fonction qui permet a Winamp de rester au dessus des autres programmes...

Merci
----------------------
La lumière étant plus rapide que le son, un homme peu paraître brillant avant qu'il se mette a parler
[http://www.laxis.net [Laxis]]WhiteDwarf
----------------------

cs_Jack · Accepted Answer

Salut WhiteDwarf
En fait, il te suffit d'appeler l'API du système :
Met cette déclaration dans la partie Déclaration (la bien nommée)
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As Long) As Long
' Constantes de SetWindowPos :
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Puis, créé cette Sub :
Public Sub SetTop(Form As Form, ByVal Topmost As Boolean)
    Dim hWndInsertAfter As Long
    If Topmost Then
        hWndInsertAfter = HWND_TOPMOST
    Else
        hWndInsertAfter = HWND_NOTOPMOST
    End If
    SetWindowPos Form.hwnd, hWndInsertAfter, 0, 0, 0, 0, _
        SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
End Sub
Pour t'en servir, simplement :
Call SetTop (MaForme, True) ' ou False

Vala
Jack

WhiteDwarf · Answer

Merci pour ta réponse... 

PS: je l'ai appliquée et ca marche...  :approve) 
----------------------
La lumière étant plus rapide que le son, un homme peu paraître brillant avant qu'il se mette a parler
[http://www.laxis.net [Laxis]]WhiteDwarf
----------------------

OCX...

2 réponses

Discussions similaires