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

• #33450 G.A. aktív tag

  Új Válasz 2016-12-15 15:25:41 #33450

  Ú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

  

  G.A.

  aktív tag

  Üdv!

  A következő VBA kódot a microsoft oldalán találtam. Ezt használtam eddig, némi módosítással.
  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

  Mára viszont gondolt egyet az egész és az égnek sem akar működni. Nem hajlandó a megadott időkereten belül kilépni. Percekig otthagytam és semmi.

  A legidegesítőbb, hogy eddig ment, de most nem.
  Olyan mintha nem menne a visszaszámlálás.

  Valakinek valami ötlete?

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