スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

hta超基礎(入門レベル)

むかしこんにゃく工房←スポンサーサイト

下記ソースがテキストボックスやらラジオボタンやら基本的なコントロールとVBスクリプトを組み合わせた基本的なソースだと思うので、hta初心者は、下記ソースをメモ帳等に貼り付けて、拡張子を「hta」にして保存し、動作を確認すればhtaを知った気になれるはず。(?)

<html><head>
<title>サンプル・プログラム</title></head>
<body>
<form name="form1">
<p>1行テキスト
<input type="text" name="text1" value="テキストサンプル" /></p>

<p>ラジオボタンサンプル <br>
<input type="radio" name="rd" />1番目<br>
<input type="radio" name="rd" checked />2番目<br>
<input type="radio" name="rd" />3番目<br></p>

<p>チェックボックスサンプル <br>
<input type="checkbox" name="ck" value="サンプル" checked>チェック1<br>
<input type="checkbox" name="ck" value="サンプル">チェック2<br>
<input type="checkbox" name="ck" value="サンプル">チェック3<br>
<input type="checkbox" name="ck" value="サンプル">チェック4<br></p>

<p>リストボックスサンプル
<select name="listvalue1">
<option value="10">10
<option value="20">20
<option value="30">30
</select>
</p>
<p><input type="button" value="script実行"
onClick="subGo()" />
</p>
<textarea name="kekka" cols="80" rows="30"></textarea>
<p><input type="reset" value="入力内容の初期化"></p>
</form>


<script language="VBScript">
Sub subGo()

'1行テキストの値を取得
strKekka = "1行テキストの値は" & document.form1.text1.value & vbcr

'ラジオボタンの値を取得
For i = 0 To document.form1.rd.length - 1
if document.form1.rd(i).checked then
loops = i + 1
end if
Next
if loops = 1 then
strRadio = "1番目"
elseif loops = 2 then
strRadio = "2番目"
else
strRadio = "3番目"
end if

strKekka = strKekka & "ラジオボタンの値は" & strRadio & vbcr

'チェックボックスの値を取得
dim flgChkBox(10)
For j = 0 To document.form1.ck.length - 1
if document.form1.ck(j).checked then
flgChkBox(j) = "1"
else
flgChkBox(j) = "0"
end if
Next
strKekka = strKekka & "チェック状況は" & flgChkBox(0) & flgChkBox(1) & flgChkBox(2) & flgChkBox(3) & vbcr

'リストボックスの値を取得
strListValue = document.form1.listvalue1.value
strKekka = strKekka & "リストボックスの値は" & strListValue & vbcr

'テキストボックスに値を返す
document.form1.kekka.value = strKekka

End Sub
</script>
</body>
</html>


スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

syao88

Author:syao88
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
たるいカウンタ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。