Discussion :

[Adakhum]

Bonjour à tous, merci de vous attarder ici.

Ma question est de savoir s'il n'y aurait pas un moyen bien simple pour afficher un message et qu'il disparaisse ensuite sous 10 secondes par exemple après un sleep(10000) puis me.unload ou un truc du même genre.

Je sais que le Msgbox ne se ferme QUE manuellement, et c'est bien dommage.
Les forms c'est plutôt un peu pénible et long à faire.

Y'a pas un popup simple??? Merciiiiiiii

[ProgElecT]

Salut
Faire disparaitre une MsgBox au bout d'un certain temps ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim WshShell As Object, BtnCode As Integer
Set WshShell = CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("Voulez vous répondre ?", 5, "Question:", 4 + 48)
Select Case BtnCode
    Case 6: MsgBox "C'est bien gentil."
    Case 7: MsgBox "Tanpis pour vous."
    Case -1: MsgBox "Trop tard, les 5 Scs sont passées"
End Select
Set WshShell = Nothing
End Sub

[Adakhum]

Merci Mec tu gères tellement =D
J'avais vu sur d'autres forums qu'on pouvait pas du coup j'avais pas regarder la faq j'avoue !
Là je m'embêtai avec un form qui voulait même pas s'afficher... pfff le vb6 je hais ^^

Merciiiiiiiiiiii

[l_autodidacte]

j'ai pensé à la même chose que ProgElecT(salut) en construisant une Sub qu'on appellerait au moment voulu :

Code :

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

1
2
3
4
5
6
Private Sub MessageBox(strMessage As String, intSecondsToWait As Integer, strTitle As String, btnTypeAndIcon As Integer)
    Dim wShell As Object
    Set wShell = CreateObject("Wscript.Shell")
    wShell.Popup strMessage, intSecondsToWait, strTitle, btnTypeAndIcon
    Set wShell = Nothing
End Sub

Mais dommage que cela ne fonctionne qu'en compilé( et non sous l'éditeur VB6)

[ProgElecT]

Salut l_autodidacte et Adakhum

.......
Mais dommage que cela ne fonctionne qu'en compilé( et non sous l'éditeur VB6)
......

??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub MessageBox(strMessage As String, intSecondsToWait As Integer, strTitle As String, btnTypeAndIcon As Integer)
    Dim wShell As Object
    Set wShell = CreateObject("Wscript.Shell")
    wShell.Popup strMessage, intSecondsToWait, strTitle, btnTypeAndIcon
    Set wShell = Nothing
End Sub
 
Private Sub Command1_Click()
MessageBox "A que coucou", 3, "Un popup", 64
End Sub

Ta procédure fonctionne très bien dans l'éditeur VB6 ainsi que depuis L’exécutable.

[Adakhum]

Je reviens très vite fait !
Si je veux en enchainer un autre popup dans la même Sub comment je fais ?

Car si je réécris après :

Code :

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

1
2
3
Set WshShell = CreateObject("WScript.Shell")
            WshShell.Popup "Montée de la pression en cours...", 2, "Montée en pression", 48 
            Set WshShell = Nothing

ça marche pas. Enfin, le popup s'affiche mais il ne disparait pas après 2 secondes comme indiqué, il reste ! Etrange ..!

J'ai essayé de changer de nom (XshShell) mais ce n'est guère probant ! il faut toujours que ce soit ensuite un WScript.Shell ?

[l_autodidacte]

Ta procédure fonctionne très bien dans l'éditeur VB6 ainsi que depuis L’exécutable

En tout cas pas sur ma machine !!!

[ProgElecT]

Re

Pour l_autodidacte Vraiment curieux, peut être le fait que je démarre l'éditeur en ADMINISTRATEUR ?

Pour Adakhum,
Ce code qui utilise la sub proposée par l_autodidacte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub MessageBox(strMessage As String, intSecondsToWait As Integer, strTitle As String, btnTypeAndIcon As Integer)
    Dim wShell As Object
    Set wShell = CreateObject("Wscript.Shell")
    wShell.Popup strMessage, intSecondsToWait, strTitle, btnTypeAndIcon
    Set wShell = Nothing
End Sub
 
Private Sub Command1_Click()
MessageBox "A que coucou", 1, "Un popup", 64
MessageBox "A que coucou encor une fois", 1, "Un popup", 64
MessageBox "A que re re coucou", 1, "Un popup", 64
End Sub
Private Sub Command2_Click()
MessageBox "A que pas du tout coucou (durant 10 Scs)", 10, "Un popup", 64
MessageBox "Cela a l'air d'être bon, NON ?", 1, "Un popup", 64
End Sub

Tous les popups fonctionnent sans problèmes, en passant par la sub MessageBox, cela permet, ou que l'on puisse être dans le code, de lancer le popup.