' Zeigt eine Meldung in einem Dialogfeld an, wartet darauf, dass der Benutzer auf eine Schaltfläche klickt,
' und gibt einen Wert zurück, der anzeigt, auf welche Schaltfläche geklickt wurde.
'
'
'Syntax
' intButton = MyShellObject.Popup(strText,[nSecondsToWait],[strTitle],[nType])
'
'Arguments
'
' strText : String value containing the text you want To appear
' In the pop-up message box.
'
' nSecondsToWait : Maximum length of Time To display the pop-up message
' box (In seconds, Optional, default=infinite)
'
' strTitle : Title text String, Optional.
'
' nType : Type of buttons And icons (Numeric, Optional)
' These determine how the message box Is used.
'
' IntButton : Number of the button (Integer value)
' This Is the value returned when the user OK's the message box.
'
'The meaning of nType Is determined by combining values from the 2 tables below:
'
'Button Types
'
' Value Description
' 0 OK button.
' 1 OK And Cancel buttons.
' 2 Abort, Retry, And Ignore buttons.
' 3 Yes, No, And Cancel buttons.
' 4 Yes And No buttons.
' 5 Retry And Cancel buttons.
'
'Icon Types
'
' Value Description
' 16 "Stop Mark" icon.
' 32 "Question Mark" icon.
' 48 "Exclamation Mark" icon.
' 64 "Information Mark" icon.
'
'Possible values For IntButton the return value:
'
'Value Description
' 1 OK button
' 2 Cancel button
' 3 Abort button
' 4 Retry button
' 5 Ignore button
' 6 Yes button
' 7 No button
'
'If the user does Not click a button before nSecondsToWait
'intButton Is Set To -1.
' 4096 = nicht schliessbar...
Dim Obj
' Pop up
Set Obj = CreateObject("WScript.Shell")
PopUp = Obj.Popup (Meldetext,-1 , Titel, ButtonType + IconType + 4096)
Set Obj=Nothing