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

• Postas99 őstag

  #3187

  #3186 F1DO

  2024-01-30 14:08:49

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3186 F1DO

  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

• Delila_1 veterán

  #3185

  #3184 F1DO

  2024-01-23 15:46:49

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3184 F1DO

  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