kendi kendine kapanan mesaj kutusu

[turgaykadiroglu]

belirli bir süre bekledikten sonra kapanan mesaj kutusu nasıl yapabilirim ?

 

[N.Ziya Hiçdurmaz]

'beş saniyede kapanan msgbox
Sub test()
Set mesaj = CreateObject("WScript.Shell")
mesaj.popup "5 sn sonra kapanır...", 5
End Sub
buda beş saniye sonra açılır.
Sub zaman()
Application.OnTime Now + TimeValue("00:00:05"), "TEST"
End Sub
Sub TEST()
MsgBox ("test")
End Sub

 

[turgaykadiroglu]

çok teşekkür ediyorum,
İyi Çalışmalar

 

[turgaykadiroglu]

hocam burada msgbox üzerindeki botunları yönetebiliyor muyuz ?
Mesela Yes/No butonları koyup hangisini seçtiğini öğrenebilir miyiz ?
Seçim yapmadıysa yine 5 saniye sonra kapanabilir mi ?

 

[turgaykadiroglu]

biraz daha bakınca çözümünü bulduk

teşekkürler tekrar
-------------------------------------

Sub TEST()
Set mesaj = CreateObject("WScript.Shell")
deger = mesaj.popup("5 sn" + Chr(13) + "sonra kapanır...", 5, "başlık", vbYesNo)
MsgBox (deger)

End Sub