Form always on the top

hello
Comment je peut mettre ma form par dessus tout les logiciel et autre
navigateur comme par exemple la fonction alway on top de winzip ...
merci

baptiste

Salut

Pour répondre à ta question

Dans un module tu mets le code suivant :

'
'Déclaration API feuille au premier plan
'
Public 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 wFlags As Long) As Long

'
'Configuration feuille au premier plan
'
Public Const ONTOP = -1&
Public Const DISABLE_ONTOP = -2&
Public Const wFlag = 33



Public Function FenetreOnTop(frmOnTop As Form, Parametre As Integer)
Dim WndLeft, WndTop As Long

WndLeft = frmOnTop.Left / 15
WndTop = frmOnTop.Top / 15

SetWindowPos frmOnTop.hwnd, Parametre, WndLeft, WndTop, 0, 0, 33
End Function


Ensuite dans la feuille que tu veux mettre au premier plan tu appelles la fonction "FenetreOnTop" avec le paramètre ONTOP pour la mettre au dessus de toutes les autres ou DISABLE_ONTOP pour annuler cette fonction.


a+



-------------------------------
Réponse au message :
-------------------------------

hello
Comment je peut mettre ma form par dessus tout les logiciel et autre
navigateur comme par exemple la fonction alway on top de winzip ...
merci

baptiste

salut,
je ne comprend pas, il faut que je mette "FenetreOnTop" dans le Form_Load ? et apres le parametre ONTOP je le met où, à la suite de "FenetreOnTop ONTOP" comme ca ?
merci par avance por ta réponse...



-------------------------------
Réponse au message :
-------------------------------

Salut

Pour répondre à ta question

Dans un module tu mets le code suivant :

'
'Déclaration API feuille au premier plan
'
Public 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 wFlags As Long) As Long

'
'Configuration feuille au premier plan
'
Public Const ONTOP = -1&
Public Const DISABLE_ONTOP = -2&
Public Const wFlag = 33



Public Function FenetreOnTop(frmOnTop As Form, Parametre As Integer)
Dim WndLeft, WndTop As Long

WndLeft = frmOnTop.Left / 15
WndTop = frmOnTop.Top / 15

SetWindowPos frmOnTop.hwnd, Parametre, WndLeft, WndTop, 0, 0, 33
End Function


Ensuite dans la feuille que tu veux mettre au premier plan tu appelles la fonction "FenetreOnTop" avec le paramètre ONTOP pour la mettre au dessus de toutes les autres ou DISABLE_ONTOP pour annuler cette fonction.


a+



-------------------------------
Réponse au message :
-------------------------------

hello
Comment je peut mettre ma form par dessus tout les logiciel et autre
navigateur comme par exemple la fonction alway on top de winzip ...
merci

baptiste

la fonction est top mais c vrai que si tu débutes (comme moi) l'explication est pas trop claire.

Donc supposons que le fenetre que tu désires mettre on top se nomme popup il faudra donc que dans le code de ta fenetre popup tu aies ceci :

Private Sub Form_Load()

FenetreOnTop popup, ONTOP

End Sub

comme ça elle sera toujours au premier plan.

Je sais pas si c'est plus clair comme ça mais c'est ainsi que ça fonctionnera..n'hésite pas à me recontacter si vraiment ça coince :-)

bye