1 saniyeden kısa süreli msgbox

[sinanco]

Değerli arkadaşlar;süreli msgbox için aşağıdaki kod daha önce forumda verilmiş
ancak süreyi 1 saniyeden daha kısa yapamadım (istediğim yarım saniye veya çeyrek saniye olması) nasıl yapabilirm?
şimdiden teşekkürler.
sinan
***************
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!!!", 3, "Mesaj Başlığı ...", vbOKOnly + vbExclamation
End If

 

[Korhan Ayhan]

Selamlar,

Bu nesnenin saniye bölümüne tam sayılar girmeniz gerekiyor. Ondalıklı sayıları malesef kabul etmiyor.

 

[Explorer]

Merhaba,

Beklemek için Sleep komutunu kullanabilirsiniz. Herhangi bir module aşağıdaki kodları girin.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Daha sonra gerekli olan yerde

Sleep 1000

şeklinde kullanabilirsiniz. Değerler milisaniyedir. Yarım saniye için 500 girin

Kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Sn. Explorer,

Önerdiğiniz kodun çalışan bir örneğini eklemeniz mümkünmü? Ben verilen koda uyarlamak istediğimde hata mesajı alıyorum. Sanırım bu komut CreateObject("WScript.Shell") nesnesi ile kullanılamıyor.

Alternatif olarak UserForm kullanılarak çözüm üretilebilir. Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Boş bir modüle;

Option Explicit
 
Sub FORM()
    UserForm1.Show
End Sub

UserFormun kod bölümüne;

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub UserForm_Activate()
    DoEvents
    Sleep (500)
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    Me.Caption = "MESAJ BAŞLIĞI"
End Sub

 

[Explorer]

Merhaba,

Ben bekletmek için farklı bir bakış açısı vermek istedim. Sizin örneğinize uygulanmayabilir. Verdiğiniz örnekte çok güzel kullanmışsınız.

Kolay gelsin.

 

[sinanco]

çok teşekkür ederim,
saygılar.