Osaisiko joku neuvoa, miten saan tehtyä esim. 10 sekunnin jälkeen itsestään sulkeutuvan viestilaatikon?
Tarkoituksena olisi että viesti kysyisi, haluanko jatkaa tiedoston käsittelyä vai lopettaa. Jos ei klikkaa mitään, 10 sek kuluttua se automaattisesti lopettaisi.
Olen neuvoton, help!
Tarkoituksena olisi että viesti kysyisi, haluanko jatkaa tiedoston käsittelyä vai lopettaa. Jos ei klikkaa mitään, 10 sek kuluttua se automaattisesti lopettaisi.
Olen neuvoton, help!
Vastaukset 4
Vanhimmat
vaikkapa näin
Sub msgboxtesti()
With CreateObject("Wscript.Shell")
.Popup "Tämä viesti poistuu näkyvistä 10 s kuluttua" _
, 10, "Itsestään sulkeutuva MsgBox", 64
End With
End Sub
Toimii, mutta millä käskyillä saan tähän luotua ehdot, että kun klikataan Yes, tapahtuu jotain ja No, tapahtuu sama kuin tapahtuisi 10 sekunnin päästä.
Vaihdoin jo viestilaatikon tyypiksi 4:sen.
Sub msgboxtesti()
Kylläei = CreateObject("Wscript.Shell").Popup("Tämä viesti poistuu näkyvistä 10 s kuluttua", 10, "Itsestään sulkeutuva MsgBox", 4)
Select Case Kylläei
Case vbYes
MsgBox "klikkasit Kyllä"
Case vbNo
MsgBox "klikkasit Ei"
Exit Sub
End Select
End Sub
Paljon kiitoksia, nyt pelittää!