Smrkec.com - JavaScript

JavaScripti >> Sporočila >> VB generator opozoril

Opis:
Ta skripta lahko izdela Visual Basic script za kreiranje sporočil (opozorilnih okencev) z različnimi gumbi in ikonami.
(Skripta je zaenkrat na voljo le v angleškem jeziku, če pa se komu, da naj jo prevede in mi jo pošlje ne email.)

Primer:

Message Box Creator
	Message:
	Title:
Please select an icon
	Question	Critical
	Exclamation	Information
Please select a button
	OK & Cancel	OK Only
	Abort, Retry and Ignore	Retry & Cancel
	Yes & No	Yes, No & Cancel

Izvorna koda:

Korak 1:
Ta del kode vstavite v <head> del strani:

</script>
<script language="VBScript">
function popu()
MsgBox "The next message will be yours. If the message does not look right please contact me.",vbInformation or vbOkOnly,"Info"
End Function
function gk()
MsgBox "The HTML code has been copied onto the Clipboard. Just paste (Ctrl+v) the code in the head of the HTML document. Your and other computers must have Visual Basic installed, most computers do!                                                                                                                                                                                                                                                              Thank You for using Craig Phillips' Msg Box Creator and I hope this come to much help with your web designing.",vbInformation or vbOkCancel,"HTML Code"
End Function
function lk()
MsgBox "Please insert some text!",vbCritical,"Text Box Blank"
End Function
function oq()
MsgBox a,vbOkCancel or vbQuestion,b
End Function
function oc()
MsgBox a,vbOkCancel or vbCritical,b
End Function
function oe()
MsgBox a,vbOkCancel or vbExclamation,b
End Function
function oi()
MsgBox a,vbOkCancel or vbInformation,b
End Function
function kq()
MsgBox a,vbOkOnly or vbQuestion,b
End Function
function kc()
MsgBox a,vbOkOnly or vbCritical,b
End Function
function ke()
MsgBox a,vbOkOnly or vbExclamation,b
End Function
function ki()
MsgBox a,vbOkOnly or vbInformation,b
End Function
function aq()
MsgBox a,vbAbortRetryIgnore or vbQuestion,b
End Function
function ac()
MsgBox a,vbAbortRetryIgnore or vbCritical,b
End Function
function ae()
MsgBox a,vbAbortRetryIgnore or vbExclamation,b
End Function
function ai()
MsgBox a,vbAbortRetryIgnore or vbInformation,b
End Function
function rq()
MsgBox a,vbRetryCancel or vbQuestion,b
End Function
function rc()
MsgBox a,vbRetryCancel or vbCritical,b
End Function
function re()
MsgBox a,vbRetryCancel or vbExclamation,b
End Function
function ri()
MsgBox a,vbRetryCancel or vbInformation,b
End Function
function yq()
MsgBox a,vbYesNo or vbQuestion,b
End Function
function yc()
MsgBox a,vbYesNo or vbCritical,b
End Function
function ye()
MsgBox a,vbYesNo or vbExclamation,b
End Function
function yi()
MsgBox a,vbYesNo or vbInformation,b
End Function
function eq()
MsgBox a,vbYesNoCancel or vbQuestion,b
End Function
function ec()
MsgBox a,vbYesNoCancel or vbCritical,b
End Function
function ee()
MsgBox a,vbYesNoCancel or vbExclamation,b
End Function
function ei()
MsgBox a,vbYesNoCancel or vbInformation,b
End Function

</script>

Korak 2:
Ta del kode vstavite v <body> del strani:

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="597">
    <tr>
      <td width="595" colspan="3">
        <h2 align="center">Message Box Creator</h2>
      </td>
    </tr>
    <tr>
      <td width="113"></td>
      <td width="200">
      <p align="right"><font face="Arial" size="2"><u>M</u>essage:</font></td>
      <td width="278">
<input type="text" accesskey="m" name="T1" size="20" style="border-style: solid; border-width: 1">
      </td>
    </tr>
    <tr>
      <td width="113"></td>
      <td width="200">
      <p align="right"><font face="Arial" size="2">Tit<u>l</u>e:</font></td>
      <td width="278"><input type="text" name="T2" accesskey="l" size="20" style="border-style: solid; border-width: 1"></td>
    </tr>
  </center>
    <tr>
      <td width="595" colspan="3"><h3 align="center">Please select an icon</h3></td>
    </tr>
    <tr>
      <td width="113"></td>
  <center>
      <td width="200">
      <p align="left"><input type="radio" value="vbQuestion" name="R1" accesskey="Q"><label for="fp7" accesskey="Q"><u>Q</u>uestion</label></td>
    <td width="278"><input type="radio" value="vbCritical" name="R1" accesskey="c" checked><label for="fp2" accesskey="C"><u>C</u>ritical</label></td>
    </tr>
  </center>
    <tr>
      <td width="113"></td>
  <center>
      <td width="200">
      <p align="left"><input type="radio" value="vbExclamation" accesskey="x" name="R1"><label for="R1" accesskey="x">E<u>x</u>clamation</label></td>
    <td width="278"><input type="radio" value="vbInformation" name="R1" accesskey="n"><label for="fp4" accesskey="n">I<u>n</u>formation</label></td>
    </tr>
  </center>
  <tr>
  <td colspan="3">
    <h3 align="center">Please select a button</h3>
  </td>
  </tr>
      <tr>
      <td width="113"></td>
  <center>
      <td width="200">
      <p align="left"><input type="radio" value="vbOkCancel" name="R2" accesskey="O" checked><label for="fp5" accesskey="O"><u>O</u>K & Cancel</label></td>
    <td width="278"><input type="radio" value="vbOkOnly" name="R2" accesskey="K"><label for="fp6" accesskey="K">O<u>K</u> Only</label></td>
    </tr>

<tr>
      <td width="113"></td>
  <center>
      <td width="200">
      <p align="left"><input type="radio" accesskey="b" value="vbAbortRetryIgnore" name="R2"><label for="fp1">A<u>b</u>ort,
Retry and Ignore</label></td>
    <td width="278"><input type="radio" value="vbRetryCancel" name="R2" accesskey="R"><label for="fp8" accesskey="R"><u>R</u>etry & Cancel</label></td>
    </tr>
  </center>
    <tr>
      <td width="113"></td>
  <center>
      <td width="200">
      <p align="left">
<input type="radio" value="vbYesNo" name="R2" accesskey="Y"><label for="fp9" accesskey="Y"><u>Y</u>es & No</label></td>
    <td width="278"><input type="radio" value="vbYesNoCancel" accesskey="s" name="R2"><label for="fp10" accesskey="s">Ye<u>s</u>, No & Cancel</label></td>
    </tr>
    <tr>
      <td width="591" colspan="3"><input type="hidden" name="S1"></td>
    </tr>
    <tr>
      <td width="591" colspan="3">
        <p align="center"><button onclick="javascript:msgb(T1.value,T2.value)" accesskey="i" style="border-style: solid; border-width: 1; height:20px; width:120">Prev<u>i</u>ew Message</button></button> </td>
    </tr>
  </table>
  </center>
</div>