Fenetre toujours ACTIVE ***URGENT***
YoDa
-
5 oct. 2001 à 21:57
cs_machto Messages postés 179 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 18 février 2009 - 15 mai 2007 à 11:21
cs_machto Messages postés 179 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 18 février 2009 - 15 mai 2007 à 11:21
A voir également:
- Fenetre toujours ACTIVE ***URGENT***
- Fenêtre la teste ✓ - Forum Delphi / Pascal
- Fenetre sans cadre - Forum C / C++ / C++.NET
- Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
- Bloque fenetre ✓ - Forum Java
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
4 réponses
morphlin
Messages postés
13
Date d'inscription
jeudi 15 décembre 2005
Statut
Membre
Dernière intervention
27 décembre 2005
21 déc. 2005 à 07:11
21 déc. 2005 à 07:11
ben j'aimerai savoir svp
c ou que j'vais trouvé sa dans msdn ?
c ou que j'vais trouvé sa dans msdn ?
cs_machto
Messages postés
179
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
18 février 2009
1
15 mai 2007 à 11:21
15 mai 2007 à 11:21
Bonjour,
essaye:
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 wFlags As Long) As Long
'
Public Sub RendreFormTjsVisible(MonForm As Object)
SetWindowPos MonForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Public Sub RendreFormPasTjsVisible(MonForm As Object)
SetWindowPos MonForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Il te suffit d'ajouter un timer pour savoir quand tu lances la sub
RendreFormTjsVisible(MonForm As Object) et quel évènement te fait lancer RendreFormPasTjsVisible(MonForm As Object), un click, une touche, un autre délai, à toi de voir.
M@chto
essaye:
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 wFlags As Long) As Long
'
Public Sub RendreFormTjsVisible(MonForm As Object)
SetWindowPos MonForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Public Sub RendreFormPasTjsVisible(MonForm As Object)
SetWindowPos MonForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Il te suffit d'ajouter un timer pour savoir quand tu lances la sub
RendreFormTjsVisible(MonForm As Object) et quel évènement te fait lancer RendreFormPasTjsVisible(MonForm As Object), un click, une touche, un autre délai, à toi de voir.
M@chto
