うーん・・・

vbscriptで時計を作りたい

解決済

質問者：famipote
質問日時：2015/11/16 23:28
回答数：1件

vbscriptで時計を作りたいのですが、
msgboxで1秒ごとに更新させて行くにはどうすればいいですか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： x-1919
回答日時：2015/11/17 20:40

vbs のスクリプトファイルでってことでしたら無理じゃないですかね。

msgbox は何らかのメッセージを掲載したダイアログをユーザーに表示し、ユーザーからのボタンクリックによるレスポンスがあるまで待機する機能ですので、メッセージボックスが表示されたままの状態で中身を書き換えていくことはできないでしょう。

HTA ではダメなのでしょうか？
以下のコード <html> から </html> をメモ帳に転記して保存し、拡張子を "txt" から "hta" に変更してください。
ダブルクリックで実行されます。

<html>
<head>
<title>HtaClock</title>
<HTA:APPLICATION
APPLICATIONNAME="HtaClock"
ID="HtaClock"
BORDER="dialog"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
SCROLL="no"
VERSION="1.0"/>
</head>

<script language="VBScript">

Dim tOut
tOut = 0

Sub DisplayClock()
document.all.disp.innerText = FormatDateTime(Now, 3)
End Sub

Sub Window_OnLoad
Dim width,height
width=150
height=130
Self.ResizeTo width,height
tOut = setInterval("DisplayClock()", 100)
End Sub

Sub OnClickButtonOK()
window.Close
End Sub

</script>

<body bgcolor="buttonface">
<table border=0 width=100% height=100%>
<tr>
<td height=100% width=100% valign="top" align="center">
<span id="disp"></span>
</td>
</tr>
<tr>
<td align="center">
<input type="button" style="width: 80px" name="OK" id="OK" value="OK" onclick="OnClickButtonOK">
</td>
</tr>
</table>
</body>
</html>