Új hozzászólás Aktív témák

• #3187 Postas99 senior tag F1DO #3186

  Új Válasz 2024-01-30 14:08:49 #3187

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  senior tag

  válasz F1DO #3186 üzenetére

  A megoldás amit kerestél:

  Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

Új hozzászólás Aktív témák