Visual Basic Script Modals
VBScript offers modals and features which are not available to JScript or
JavaScript. When scripting in the HTML environment or using XML in WSF files,
you can use multiple scripting languages. You can use the VBScript modals
from within JScript and JavaScript by declaring VBScript Functions that are
accessible from JScript.
<![CDATA[
VBScript's MsgBox() Function returns the following codes:
OK 1
Cancel 2
Abort 3
Retry 4
Ignore 5
Yes 6
No 7
Creating VBScript Modals for JScript Usage:
<script language="VBScript" type="text/vbscript">
Function makeMsgBox(title,mess,icon,buts,defbut,mods)
butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
makeMsgBox = MsgBox(mess,butVal,title)
End Function
Function makeInputBox(title,mess,def)
makeInputBox = InputBox(mess,title,def)
End Function
</script>
<script language="VBScript" type="text/vbscript">
function newAlert(title,mess,icon,mods) {
(ie4) ? makeMsgBox(title,mess,icon,0,0,mods) : alert(mess)
}
function newConfirm(title,mess,icon,defbut,mods) {
if(ie4) {
icon = (icon==0) ? 0 : 2
defbut = (defbut==0) ? 0 : 1
arg = makeMsgBox(title,mess,icon,4,defbut,mods)
arg = (arg==6) /* return bool */
}
else
arg = confirm(mess)
return arg
}
function newPrompt(title,mess,def) {
arg = (ie4) ? makeInputBox(title,mess,def) : prompt(mess,def);
return arg
}
function IEBox(title,mess,icon,buts,defbut,mods) {
arg = (ie4) ? makeMsgBox(title,mess,icon,buts,defbut,mods) : null
return arg
}
</script>
JScript Extensions:
function newAlert(title,mess,icon,mods) {
(ie4) ? makeMsgBox(title,mess,icon,0,0,mods) : alert(mess)
}
function newConfirm(title,mess,icon,defbut,mods) {
if(ie4) {
icon = (icon==0) ? 0 : 2
defbut = (defbut==0) ? 0 : 1
arg = makeMsgBox(title,mess,icon,4,defbut,mods)
arg = (arg==6) /* return bool */
}
else
arg = confirm(mess)
return arg
}
function newPrompt(title,mess,def) {
arg = (ie4) ? makeInputBox(title,mess,def) : prompt(mess,def);
return arg
}
function IEBox(title,mess,icon,buts,defbut,mods) {
arg = (ie4) ? makeMsgBox(title,mess,icon,buts,defbut,mods) : null
return arg
}
]]>
| icon | 0 | No icon displayed |
| 1 |  |
| 2 |  |
| 3 |  |
| 4 |  |
| mods | 0 | Application Modal |
| 1 | System Modal |
