cevaplanmayan mesaj kutuları

[ufux]

programın devamı için mesaj kutusunda evet /hayır vb soru gönderildiğinde mesela 3 sn sonra programın bunu evet olarak kabul etmesi için ne yapabiliriz.

 

[Levent Menteşoğlu]

Sn Haluk beyin hiç bir zaman bizlerle paylaşmayı esirgemediği üstün bilgisiyle önerdiği kodu, aşağıda veriyorum. Kendisine teşekkür ediyorum.

[vb:1:a257e91d00]Sub Test()
Dim MyMsgBox As Object
Set MyMsgBox = CreateObject("WScript.Shell")
MyQ = MyMsgBox.Popup("www.excel.web.tr", 3, "Merhaba !", 68)
Select Case MyQ
Case 6, -1
Msg = "Evet - (Yes) dugmesine tikladiniz !"
Case 7
Msg = "Hayir - (No) dugmesine tikladiniz"
End Select
MsgBox Msg
End Sub[/vb:1:a257e91d00]

 

[Haluk]

Sevgili dostum leventm,

Beni mahçup ediyorsun ve forumdaki fevkalade çalışmlarından dolayı ama ilk önce dostluğun için, ben de sana teşekkürlerimi sunarım.

 

[ufux]

Ben her ikinize bu bilgiyi paylaştğınız ve yardımlarınızdan dolayı teşekkür ederim.