VBScript 【GUI編】



目次


ボタン

フォームにボタンを追加する処理について解説します。

プログラムソース

<html>

   <head>
      <HTA:APPLICATION />
      <script language="VBScript">
         Sub Button1_Click()
            MsgBox "メッセージ"
         End Sub
      </script>
   </head>

   <body onLoad="VBScript:Window.ResizeTo 400,250">
   <form name="Form1">
   <button name="Button1" onClick="Button1_Click()">
      ボタン
   </button>
   </form>
   </body>

</html>

解説

<button></button>

ボタンを指定します。

onClick = 関数名

クリック属性に関数を指定します。


チェックボックス

フォームにチェックボックスを追加する処理について解説します。

プログラムソース

<html>

   <head>
      <HTA:APPLICATION />
      <script language="VBScript">
         Sub Check_Click()
            Document.title = "1:"&Document.Form1.Check1.Checked & _
                                "2:"&Document.Form1.Check2.Checked
         End Sub
      </script>
   </head>

   <body onLoad="VBScript:Window.ResizeTo 400,250">
   <form name="Form1">
   <p><label>
   <input type="checkbox" name="Check1" onClick="Check_Click()">
      チェックボックス１
   </label></p>
   <p><label>
   <input type="checkbox" name="Check2" onClick="Check_Click()">
      チェックボックス２
   </label></p>
   </form>
   </body>

</html>

解説

<input type="checkbox">

チェックボックスを指定します。


ラジオボタン

フォームにラジオボタンを追加する処理について解説します。

プログラムソース

<html>
   <head>
      <HTA:APPLICATION />
      <script language="VBScript">
         Sub Radio_Click()
            If Document.Form1.Radio1(0).Checked=True Then _
               Document.title = "ラジオ１" _
               Else Document.title = "ラジオ2"
         End Sub
      </script>
   </head>

   <body onLoad="VBScript:Window.ResizeTo 400,250">
   <form name="Form1">
   <p><label>
   <input type="radio" name="Radio1" onClick="Radio_Click()">
      ラジオ１
   </label></p>
   <p><label>
   <input type="radio" name="Radio1" onClick="Radio_Click()">
      ラジオ２
   </label></p>
   </form>
   </body>
</html>

解説

<input type="radio">

ラジオボタンを指定します。


コンボボックス

フォームにコンボボックスを追加する処理について解説します。

プログラムソース

<html>

   <head>
      <HTA:APPLICATION />
      <script language="VBScript">
         Sub Combo_Click()
            Dim n
            n = Document.Form1.Combo1.selectedindex
            Document.title=Document.Form1.Combo1.options(n).text
         End Sub
      </script>
   </head>

   <body onLoad="VBScript:Window.ResizeTo 400,250">
   <form name="Form1">
      <select name="Combo1" onClick="Combo_Click()" >
         <option>項目１</option>
         <option>項目２</option>
         <option>項目３</option>
         <option>項目４</option>
         <option>項目５</option>
      </select>
   </form>
   </body>

</html>

解説

<select></select>

コンボボックスを指定します。


リストボックス

フォームにリストボックスを追加する処理について解説します。

プログラムソース

<html>

   <head>
      <HTA:APPLICATION />
      <script language="VBScript">
         Sub List_Click()
            Dim n
            n = Document.Form1.List1.selectedindex
            Document.title=Document.Form1.List1.options(n).text
         End Sub
      </script>
   </head>

   <body onLoad="VBScript:Window.ResizeTo 400,250">
   <form name="Form1">
      <select name="List1" size=3 onClick="List_Click()" >
         <option>項目１</option>
         <option>項目２</option>
         <option>項目３</option>
         <option>項目４</option>
         <option>項目５</option>
      </select>
   </form>
   </body>

</html>

解説

<select></select>
size属性
画面表示する行数を指定します。

リストボックスを指定します。