Confirm med tre knappval...

Här finns en sida som labbar friskt med alternativa boxar.

http://www.webreference.com/dhtml/column22/js-vbNewjs.html

Verkar ju lovande.

			<SCRIPT Language="JavaScript">
			myIntegerVariable = IEBox(
		     'My IE Box Title',
		     'My IE Box Message',
		     1,3,1,0)
			switch (myIntegerVariable) {
			case 2: // 'Cancel'
		      // statements to execute if Cancel pressed
			break;
			case 6: // 'Yes'
		   	break;
		   	case 7: // 'No'
		    break;
			}
			</script>

Ger object expected fel. Vad behöver man göra mer än detta ?

Oups... allt kom inte med...

<SCRIPT Language="JavaScript">
IE4 = document.all;
function IEBox(title,mess,icon,buts,defbut,mods) {
retVal = (IE4) ? makeMsgBox(title,mess,icon,buts,defbut,mods) : null;
return retVal;
}

myIntegerVariable = IEBox(
	'My IE Box Title',
	'My IE Box Message',
	1,3,1,0)
switch (myIntegerVariable) {
	case 2: // 'Cancel'
    // statements to execute if Cancel pressed
	break;
	case 6: // 'Yes'
  	break;
	case 7: // 'No'
   break;
}
</script>

Men som sagt object expected

Du glömde funktionen makeMsgBox():

<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

-->
</SCRIPT>

Jo men visst. Nu fungerar det.

Men kan man inte få byta namn på knapparna till valfria labels?

http://www.devguru.com/Technologies/vbscript/quickref/msgbox.html

Glöm bara inte bort att det endast är IE som gillar VBScript.

Det är till ett intranät så det är helt ok.

Tack ska ni ha och trevlig helg...