<html>
<body>
<script language="vbscript">
<!--
Sub message1
msgbox "vbCriticalを設定", vbCritical
End Sub
Sub message2
msgbox "vbQuestionを設定", vbQuestion
End Sub
Sub message3
msgbox "vbExclamationを設定", vbExclamation
End Sub
Sub message4
msgbox "vbInformationを設定",vbInformation
End Sub
-->
</script>
<input type="button" onclick="message1" value="警告メッセージ">
<input type="button" onclick="message2" value="問い合わせメッセージ">
<input type="button" onclick="message3" value="注意メッセージ">
<input type="button" onclick="message4" value="情報メッセージ">
</body>
</html>
|