• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Message box automatisch sluiten

Status
Niet open voor verdere reacties.
S

schilderehbo

Gebruiker
Lid geworden
21 dec 2015
Berichten
165
Hallo kenners,

Met welke opdracht kan ik een message box automatisch laten sluiten na een bijv: 5 sec.

Alvast bedankt
 
Zoiets:
Code: 
    Set objShell = CreateObject("WScript.Shell")
    objShell.Popup "FF wachten...", 5
    objShell.Popup "Klaar!", 1
    Set objShell = Nothing

Wel even de verwijzing naar Microsoft Scripting Runtime aan zetten:
Script.jpg
 
Laatst bewerkt:
Hier:
Verwijzingen.PNG
 
Dat speelt zich af in de VBE. (Visual Basic Editor)
 
Dat leek me logisch ;)
 
En het werkt niet altijd; mocht je het in Outlook ook nodig hebben, dan heb je een probleem want daar werkt het niet. Maar aangezien je de vraag in het Excel forum stelt, zal dat niet van toepassing zijn. Maar het is iets om in het achterhoofd te houden :).
 
Hoewel je gelijk hebt toch een kleine nuancering.
De popup werkt wel, maar de timeout niet.
Er zal dus geen fout op komen maar het werkt niet zoals verwacht.
(Office 2016)
 
edmoor zei:
De popup werkt wel, maar de timeout niet.
Klik om te vergroten...
Ik zei niet dat de popup niet werkte, maar dat 'het' niet werkte. Is nèt iets anders :).
 
Klopt helemaal :)
 
Zijn we het toch een keer ergens over eens :D.
 
@edm

Die verwijzing instellen in de VBEditor lijkt me overbodig als je in de code 'laat verbinden' gebruikt.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan