📄 p122ie_only_mixing_vb_and_jscript.htm

📁 javascript source code part2
💻 HTM
字号:
<HTML>
<HEAD>
<script language="JScript">
<!--   //Define button values (same as VB/Win32 API MsgBox constants)

  var vbOK = 0;                        //Default is just an OK button
  var vbOKCancel = 1;                  //Display OK and Cancel buttons
  var vbAbortRetryIgnore = 2;          //Same for Abort, Retry, and Ignore
  var vbYesNoCancel = 3;               //...and so on
  var vbYesNo = 4;
  var vbRetryCancel = 5;

  //Define icons that show on message box
  var vbCritical = 16;                 //Display Critical Message (red X) icon
  var vbQuestion = 32;                 //Same for Warning Query icon.
  var vbExclamation = 48;              //...and so on
  var vbInformation = 64;
  var vbDefaultButton1 = 0;            //Make first button the default.
  var vbDefaultButton2 = 256;          //...and so on
  var vbDefaultButton3 = 512;
  var vbDefaultButton4 = 768;

  //Define "mode" of message box
  var vbApplicationModal = 0;    //Application modal; user must respond 
                                 //before script continues. This is the default.
  var vbSystemModal = 4096;      //System modal--well not quite. Actually just 
                                 //keeps message box "on top" of all other apps.

  function jsHandler() {
    //Call VB script to take advantage of better message box
    var iAns = vbsMessage(txtMessage.value,
                          vbYesNoCancel+vbQuestion, "Message from VBScript");

   //Example of how we might use returned value
   switch( iAns ) {
     case 1:          //OK
       alert("The user answered OK."); 
       break;
     case 2:          //Cancel
       alert("The user wants to Cancel."); 
       break;
     case 3:          //Abort
       alert("The user wants to Abort."); 
       break;
     case 4:          //Retry
       alert("The user wants to Retry."); 
       break;
     case 5:          //Ignore
       alert("The user wants to Ignore."); 
       break;
     case 6:          //Yes
       alert("The user answered Yes."); 
       break;
     case 7:          //no
       alert("The user answered No."); 
       break;
     default:         //"Never" happens
       alert("We don't know what they want!"); 
       break;
    }
  }
//--></script>

<script language="VBScript"><!--

  Function vbsMessage( sMsg, iStyle, sTitle )
    vbsMessage = MsgBox( sMsg, iStyle, sTitle )
  End function
--></script>

</HEAD>
<BODY>
<P>Enter your question here: <INPUT id=txtMessage></P>
<P><INPUT id=cmdShowMe type=button value="Show Me" onclick="jsHandler()"></P>

</BODY
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -