Süreli MSGBOX

[mu_tek]

Merhaba,
Ekrana gelen msgox belli bir süre sonra otomatik kapanmasını sağlayan kodu bilen arkadaşlar banada gönderirseniz sevinirim.
İyi çalışmalar

 

[beab05]

Merhaba;

Dim bb As Object
On Error Resume Next
Err.Clear
Set bb = CreateObject("WScript.Shell")
If Err <> 0 Then
MsgBox "Error:" & Err
Else
bb.PopUp " Bu mesaj kutusu 3 saniye sonra kapanacak!!!", [COLOR="Red"]3[/COLOR], "Mesaj Ba&#351;l&#305;&#287;&#305; ...", vbOKOnly + vbExclamation
End If

Kırmızı "3" kaç saniye açık kalacağıdır.. Bunun yerine messagebox a benzeyen form yapıp, açılış-kapanışını ayarlayabilirsiniz. Daha hoş görüntüler verilebilir..

 

[fmt1976]

BUaraya nasıl form ekleyeceğiz

 

[beab05]

Form eklemek derken?!
Yeni bir form yapın, msgbox görevi üstlenen. Dilediğiniz gibi değiştirin ve aynen msgbox ların açılması gibi istediğiniz olaylara açılıp-kapanma ya da süreli açılma verebilirsiniz..