Message après réduction des fenêtre
Résolu
Osris6880
Messages postés
41
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
12 janvier 2006
-
27 mai 2005 à 10:50
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 27 mai 2005 à 14:48
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 27 mai 2005 à 14:48
A voir également:
- Message après réduction des fenêtre
- Message delphi - Conseils pratiques -Delphi
- Fenêtre la teste ✓ - Forum Delphi / Pascal
- Bloque fenetre ✓ - Forum Java
- Message box - Conseils pratiques -Visual Basic / VB.NET
- Agrandissement fenetre - Forum Visual Basic 6
7 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
27 mai 2005 à 14:48
27 mai 2005 à 14:48
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal
cch As Long) As Long
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Dim hwnd As Long
Dim Lg As Long
Dim Nom As String
hwnd = GetDesktopWindow()
hwnd = GetWindow(hwnd, GW_CHILD)
Do While hwnd <> 0
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Lg = GetWindowTextLength(hwnd)
Nom = Space$(Lg + 1)
GetWindowText hwnd, Nom, Lg + 1
Nom = Left$(Nom, Lg)
'tu peux rajouter d'autres tests ici
MsgBox Nom
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop
Daniel
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal
cch As Long) As Long
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Dim hwnd As Long
Dim Lg As Long
Dim Nom As String
hwnd = GetDesktopWindow()
hwnd = GetWindow(hwnd, GW_CHILD)
Do While hwnd <> 0
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Lg = GetWindowTextLength(hwnd)
Nom = Space$(Lg + 1)
GetWindowText hwnd, Nom, Lg + 1
Nom = Left$(Nom, Lg)
'tu peux rajouter d'autres tests ici
MsgBox Nom
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop
Daniel
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
27 mai 2005 à 11:00
27 mai 2005 à 11:00
et qui c'est qui la ferme cette fenêtre, c'est ton programme ?
Daniel
Daniel
cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
27 mai 2005 à 11:22
27 mai 2005 à 11:22
Salut,
je croyais que les msgBox étaint bloquantes et que seule une action de l'utilisateur permettait au prog de continuer?
je croyais que les msgBox étaint bloquantes et que seule une action de l'utilisateur permettait au prog de continuer?
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
27 mai 2005 à 11:33
27 mai 2005 à 11:33
oui elles sont bloquantes pour l'application elle même,
mais pas pour les autres applications.
Daniel
mais pas pour les autres applications.
Daniel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Osris6880
Messages postés
41
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
12 janvier 2006
27 mai 2005 à 12:29
27 mai 2005 à 12:29
En fait je simule le raccourci clavier Windows+D
Osiris 6880
Osiris 6880
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
27 mai 2005 à 12:39
27 mai 2005 à 12:39
oui je vois.
comme il n'y a pas de sélection, toutes les fenêtres seront réduites et le MsgBox également.
pas de solution.
à moins de changer de méthode, énumérer toutes les fenêres actives, les sélectionner et réduire celles que tu veux.
Daniel
comme il n'y a pas de sélection, toutes les fenêtres seront réduites et le MsgBox également.
pas de solution.
à moins de changer de méthode, énumérer toutes les fenêres actives, les sélectionner et réduire celles que tu veux.
Daniel
Osris6880
Messages postés
41
Date d'inscription
samedi 27 décembre 2003
Statut
Membre
Dernière intervention
12 janvier 2006
27 mai 2005 à 14:10
27 mai 2005 à 14:10
Comment il faut faire ?
Osiris 6880
Osiris 6880
