Msgbox belli bir süre gösterme özelliği var mı?

[Rafet]

MsgBox si kullanrak uyarı verdiriyorum.
Ama bu msgbox in 5 sn içinde her hangi bir onay vermeden gitmesini istiyorum.

Msgbox in böyle bir özelliği varmı yada bunu başka bir şekilde nasıl yapa bilirim .

Teşekküler.

 

[Recep İpek]

Msgbox ile bunun yapılması biraz zor olabilir.

Bunun yerine msgbox boyutlarında bir userform tasarlayıp, bunu rahatlıkla her türlü işlemlerde kullanabilirsiniz.

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz?

Sub Deneme()
Msg = CreateObject("WScript.Shell").Popup("5 Saniye sonra kapanacaktır", 5)
End Sub

 

[marimar]

merhaba sn. sezar üst tarafta yazan windows script host yazısını nasıl değiştirebiliriz ???

 

[Orion1]

merhaba sn. sezar üst tarafta yazan windows script host yazısını nasıl değiştirebiliriz ???

Merhaba.
Bu konuda bir bilgim yok.

 

[Recep İpek]

Sub Button1_Click()
Msg = CreateObject("WScript.Shell").Popup("5 Saniye sonra kapanacaktır", 5, "UYARI")
End Sub

olarak deneyiniz.

Bunuda aynı msgbox iletişim kutusu gibi kullanabilirsiniz.

msg = CreateObject("WScript.Shell").Popup(prompt, wait, title, buttons);

Msgbox ile tek fark wait bölümünde süre tanımlayabiliyorsunuz.Buda güzel bir özellik.

Teşekkürler Sezar

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub Düğme1_Tıklat()
CreateObject("WScript.Shell").Popup "Bu Mesaj Kutusu 5 Saniye Sonra Kapanacak." _
& vbCrLf & "Haberin Olsun.", 5, "UYARI"
End Sub

 

[Rafet]

Arkadaşlar teşekkürler. Evet istediğim cevabı aldım .

Tek sorun kaspersky bu komutu virus olarak görüyor.

Teşekkürler.

 

[serinci]

kaspersky nin virüs olarak algılamasının nedeni macronun başka bir uygulamayı tetikliyor olması Wsicript.shell bu nedenle kaspersky uyarı verdiğinde bir defa add trust zone (güvenli alana ekle) yaptığınızda böyle bir problem kalmayacaktır.

 

[hsayar]

Sub Deneme()
Msg = CreateObject("WScript.Shell").Popup("5 Saniye sonra kapanacaktır", 5)
End Sub

Selamalar yukardıak, satırları Windows vista ve Ofis 2007 li sistemimde çalıştırdığımda mesaja "tamam"demeden gitmiyor. 10 sn. üzerinde durdu.
Çözüm hakkında fikri olan var mı acaba?

 

[beab05]

Merhabalar;
Vista x64 ve Office 2007 ile sorunsuz bir şekilde çalışıyor..

 

[tariktaskiran]

beab05 özelden başka bir konuyla ilgili bana yardımcı olabilir misin?

 

[beab05]

Sanırım Excel ile ilgili bir konudur. Üzgünüm ama Excel konusunda çok kısıtlı bilgiye sahibim. Ben daha çok Access mahallesinde bulunuyorum Üstelik özelden çözüm aramak iyi bir fikir değil bence..

 

[baydeniro]

Sayın Evren Gizlen Paylaşım İçin Çok teşekkürler.

 

[hsayar]

Sub Deneme()
Msg = CreateObject("WScript.Shell").Popup("5 Saniye sonra kapanacaktır", 5)
End Sub

Selamalar yukardıak, satırları Windows vista ve Ofis 2007 li sistemimde çalıştırdığımda mesaja "tamam"demeden gitmiyor. 10 sn. üzerinde durdu.
Çözüm hakkında fikri olan var mı acaba?

Merhabalar;
Vista x64 ve Office 2007 ile sorunsuz bir şekilde çalışıyor..

Alakanıza teşekkür ederim beab05, ancak bende olmuyor.

 

[yerbakili]

Teşekkür ederim. Ben de faydalandım koddan.