Ú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

• #3185 Delila_1 veterán F1DO #3184

  Új Válasz 2024-01-23 15:46:49 #3185

  Ú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

  

  Delila_1

  veterán

  válasz F1DO #3184 üzenetére

  Msgbox helyett egy alakzatot jeleníts meg szöveggel, majd 2 mp után töröld.

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