Hej! Testa efter denna princip. Wooops nu var jag för snabb. Det funkar fae... inte. Ahhhhhhhhhh föresten ,gör så här. <code> Tack Sven Åke för alla fina tips, Men Fredrik Hanssons länk gav mig svaret så jag tar det.Få MSGBOX att försvinna efter 10 sekunder
Kör ett .VBS script och skulle vilja att en msgbox dyker upp och visas i 10 sekunder och sedan försvinner den själv utan att man har tryckt på någon av knapparna. Går det? Den skall även fortsätta med kodraderna efter msgboxen när tiden gått ut, så det skall inte vara slut efter meddelandet.
Som jag har det nu måste men trycka på ok för att komma vidare.
MsgBox "MIN TEXT!",48,"Varning!"
//JockeSv: Få MSGBOX att försvinna efter 10 sekunder
Svara
Sv:Få MSGBOX att försvinna efter 10 sekunder
Raden innan MsgBoxen anropas gör du start på en Timer = Enable
I Timerns kod och intervall ställd på 10 000
<code>
SendKeys "{ENTER}",True
Timer1.Enabled = False
</code>Sv: Få MSGBOX att försvinna efter 10 sekunder
Gör en egen MsgBox med en extra liten Form Modal (har glömt)Sv:Få MSGBOX att försvinna efter 10 sekunder
Ta en bild av din MsgBox gör den till en .jpg Image och visa den när det behövs och
släck den när du tycker med en Timer. Lägg även in Visible = False om användaren klickar i Imagen.Sv: Få MSGBOX att försvinna efter 10 sekunder
Timer1.Interval = 10000
imgMsg.Visible = True
Timer1.Enabled = True
Private Sub imgMsg_Click()
imgMsg.Visible = False
End Sub
Private Sub Timer1_Timer()
imgMsg.Visible = False
Timer1.Enabled = False
End Sub
</code>Sv:Få MSGBOX att försvinna efter 10 sekunder
Tack
//Jocke