Soru Msgbox

[Cengizhantr06]

Hayırlı günler

Kayıt yapınca kayıt yapıldı diye msgbox kutusu çıkıyorya o kutu çıkınca tamam basınca gidiyor msgbox kutusu hersey norman ama benim istediğim o kutu yine cıksın ama tamama basmama gerek kalmadan msgbox kutusu cıksın ama 1 sn sonra geri kendi kapansın benim tamama basmama gerek kalmasın yapabilirmiyiz böyle

 

[ÖmerFaruk]

Deneyin lütfen

Sub OtomatikKapatMsgbox()
On Error Resume Next
Dim KapanmaSüresi As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")

KapanmaSüresi = 1 ' buradan süreyi girin
Select Case InfoBox.Popup("Kapatmak için OK bas ya d aBekle ", KapanmaSüresi, "Yeni Mesaj Box", 0)
    Case 1, -1
    Exit Sub
End Select
End Sub

 

[Cengizhantr06]

Deneyin lütfen

Sub OtomatikKapatMsgbox()
On Error Resume Next
Dim KapanmaSüresi As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")

KapanmaSüresi = 1 ' buradan süreyi girin
Select Case InfoBox.Popup("Kapatmak için OK bas ya d aBekle ", KapanmaSüresi, "Yeni Mesaj Box", 0)
    Case 1, -1
    Exit Sub
End Select
End Sub

Teşekkür ederim sayın üstadım @NextLevel şimdi dışarı çıkmam gerekti eve dönünce uygular size olumlu yada olumsuz cevap yazarım

 

[Cengizhantr06]

Deneyin lütfen

Sub OtomatikKapatMsgbox()
On Error Resume Next
Dim KapanmaSüresi As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")

KapanmaSüresi = 1 ' buradan süreyi girin
Select Case InfoBox.Popup("Kapatmak için OK bas ya d aBekle ", KapanmaSüresi, "Yeni Mesaj Box", 0)
    Case 1, -1
    Exit Sub
End Select
End Sub

Oldu çok teşekkür ederim