'Value Button
'0 OK
'1 OK , Cancel
'2 Abort , Ignore, Retry
'3 Yes , No, Cancel
'4 Yes , No
'5 Retry , Cancel
'16 Critical
'32 Question
'48 Exclamation
'64 Information
Sub test()
Dim WshShell As Object
Dim intMSGBOX As Integer
Set WshShell = CreateObject("WScript.Shell")
'Syntax Popup(Text,[Timer in Sekunden],[Titel],[Value Button])
intMSGBOX = WshShell.Popup("Ich verschwinde in 5 Sekunden", 5, "Test MSGB", 4 + 48)
Debug.Print intMSGBOX
End Sub
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub MSG_ImVordergrund()
'MsgBox wird vor allen anderen Fenstern angezeigt
MsgBox "Ich bin im Vordergrund!", 4145
End Sub
Sub MSG_TimeOut()
'MsgBox wird vor allen anderen Fenstern angezeigt und verschindet nach angegebener Zeit
Dim objWS As Object, intRet As Integer
Const sngTimeout As Single = 10
Set objWS = CreateObject("WScript.Shell")
objWS.Popup "Ich bin in " & sngTimeout & " Sekunden verschwunden!" & _
Space(10), sngTimeout, "gebe bekannt...", 4145
Set objWS = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen