Discussion :

[ebgdas]

Ca doit être facile. J'ai bien cherché dans ce forum, mais je sèche.

J'aimerais que le programme VB ferme automatiquement une boîte MessageBox au bout d'un certain temps.
Je sais utiliser les timer, mais je ne sais pas comment fermer la boîte par programme
J'utilise a=MessageBox(0&, "XXX" , "YYY", vbOKOnly)

Merci pour votre aide

[SfJ5Rpw8]

Je pense pas que cela soit possible avec un message box standard....
avec Form personalisée peu être...

[Vesta]

Si tu crée une nouvelle form c'est possible, tu met un timer sur la form, et quand il s'exécute, tu la ferme...

Pour un Msgbox je ne sais pas

[ebgdas]

Oui merci, je pense pouvoir, avec une form
Je préfèrerai avec messagebox
Peut être récupérer le handle de la boite qui vient de s'ouvrir par GetWindow, puis fermer le fenetre après ca.
Mais je n'ai pas le détail, et je ne voudrai pas fermer en n'importe quoi en aveugle

[Vesta]

Tu peux toujours tester...

Crée une petite appli test...

[ebgdas]

Voila j'ai trouvé ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
   hWnd = GetWindow(GetDesktopWindow(), 5)    
 
    Do While Not hWnd = 0
        TitreFenetre = String(255, 0)
        TitreFenetre = Left(TitreFenetre, GetWindowText(hWnd, TitreFenetre, 255))
        If TitreFenetre = "ABCDEFG" Then GoTo find
        hWnd = GetWindow(hWnd, 2)
    Loop
Exit Sub
find:           
    msg_hWnd = hWnd

A la fin, ce petit prg aura mis dans msg_hWnd le handle de la boite MessageBox dont le titre est ABCDEFG

Est ce que quelqu'un sait comment fermer cette fenetre, dont on connait maintenant le handle ?

[SilkyRoad]

bonjour

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
CreateObject("Wscript.shell").Popup "le Texte", 2, "Le Titre"
End Sub

bon apres midi
michel

[ebgdas]

Merci Michel

Et après , par quelle commande ferme-t-on l'objet popup ?

[SfJ5Rpw8]

tu as essayé le code ? ... il se ferme tout seul ...

[ebgdas]

Chez moi, il ne se ferme pas tout seul, je dois cliquer sur OK

J'ai mis sous le boutton
CreateObject("Wscript.shell").Popup "le Texte", 2, "Le Titre"

et rien d'autre dans le code

[Vesta]

Il existe je pense une fonction GetWindowTitle, avec le titre de la fenertre tu peux la fermer ,

regarde dans le code sur cette page

http://forums.microsoft.com/MSDN/Sho...19639&SiteID=1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Function GetWindowHWnd(ByVal WindowName As String) As Long
   GetWindowHWnd = FindWindow(WindowName, vbNullString)
End Function

[ebgdas]

La function est intéressante et semble remplacer le petit prog plus haut.
Et comment fermer le fenetre en connaissant son handle GetWindowHWnd ?

[ebgdas]

Je vais essayer ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowWindow GetWindowHWnd("ABCDEFG"), SW_HIDE

où ABCDEFG est le titre de la fenetre

[Vesta]

Si j'ai bien vu

http://access.developpez.com/faq/?page=Automation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                lParam As Any) As Long
Public Const WM_CLOSE = &H10
SendMessage app_hWnd, WM_CLOSE, 0, 0

[ebgdas]

Voila ou j'en suis. Le probleme est résolu mais avec des points d'interrogations.
Le code (sans les déclarations des API)

Private Sub CreeMB_Click()
Dim lg As Long
lg = MessageBox(0&, "ABC", "Le Titre", vbOKOnly)
End Sub

Private Sub FermeMB_Click()
GetHwnd ("Le Titre")
Debug.Print (GetHwnd("Le Titre"))
SendMessage GetHwnd("Le Titre"), WM_CLOSE, 0, 0
'ShowWindow msg_hWnd, 0 'fait planter vb
End Sub

Private Function GetHwnd(St As String)
Dim hwnd As Long
Dim TitreFenetre As String
hwnd = GetWindow(GetDesktopWindow(), 5)
Do While Not hwnd = 0
TitreFenetre = String(255, 0)
TitreFenetre = Left(TitreFenetre, GetWindowText(hwnd, TitreFenetre, 255))
If TitreFenetre = St Then Exit Do
hwnd = GetWindow(hwnd, 2)
Loop
GetHwnd = hwnd
End Function

GetWindowHWnd = FindWindow(WindowName, vbNullString)
retourne toujours 0, j'ai donc utilisé la fonction plus haut

CreateObject("Wscript.shell").Popup "le Texte", 2, "Le Titre"
Ce popup est censé se fermer tout seul, mais il ne le fait pas chez moi ? Evidemment ca aurait été la solution la plus facile

Merci a tout le monde

[Vesta]

Je dis peux etre des conneries mais est - ce que ton programme attend pas que le msgbox soit fermé avant de poursuivre l'exécution du code?

[Vesta]

Tu sais a mon avis le plus simple sera de créer une nouvelle feuille avec un timer qui actualise par exemple un label en disant x & "secondes avant fermeture..." ou quelque chose comme ca et qui ferme la fenetre...

[ebgdas]

Ce que j'ai proposé plus haut me convient, mais oui c'est aussi une solution, la nouvelle feuille.
Cela dit je n'ai pas besoin de l'affichage. Je veux seulement que la boite se ferme par programmation : soit sur timer, soit sur un evenement particulier.

Bonne soirée a tous.

Eric

[jmfmarques]

Je viens de voir ce sujet .
Etes-vous certains de ne pas vous égarer ?
Il me semble bien qu'un msgbox tout simple, une fonction Timer pour la pause et un bon Sendkeys feraient l'affaire !

[ebgdas]

Oui , je n'avais pas pensé a Sendkeys
Voila encore une solution très simple, mais comment envoyer une key à une boite précise pour la fermer, si elle ne vient pas d'être créée, et n'a plus le focus ?
Cela ne revient-il pas a ce qui est dit plus haut ?