Messageboxen in VBScript

Auteur: sybo - 21 oktober 2004 - 10:46 - Gekeurd door: Dennisvb - Hits: 6106 - Aantal punten: 2.50 (2 stemmen)

Script die de verschillende Messageboxen weergeeft.
Ook zijn de verschillende constanten die VBScript gebruikt in het script opgenomen.

Code:

'* Constanten voor Icons
'** Icon Naam Waarde
'**--------------------------------------------------
'** STOP vbCritical 16
'** VRAAGTEKEN vbQuestion 32
'** UITROEPTEKEN vbExclamation 48
'** INFORMATIE vbInformation 64

'* Constanten voor Buttons
'** Button Naam Waarde
'**-----------------------------------------------------------
'** OK vbOKOnly 0
'** OK en CANCEL vbOKCancel 1
'** ABORT, RETRY en IGNORE vbAbortRetryIgnore 2
'** YES, NO en CANCEL vbYesNoCancel 3
'** YES en NO vbYesNo 4
'** RETRY en CANCEL vbRetryCancel 5

'* Constanten voor Default Button Locaties
'** Locatie Naam Waarde
'**-----------------------------------------
'** LINKS vbDefaultButton1 0
'** MIDDEN vbDefaultButton2 256
'** RECHTS vbDefaultButton3 512

'**Voorbeelden van messageboxen
'**Simpel
WScript.Echo "Dit is mijn computer: "

'**Timed-out(5 sec. zichtbaar)
Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Popup "Rapport compleet", TIMEOUT

'** Meer opties
strPopupTitle = "Popup Voorbeeld"
strPopupText = "Ja en Nee Buttons"
objShell.Popup strPopupText, TIMEOUT, strPopupTitle, vbYesNo + vbDefaultButton3

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (2)