Timer()

質問

申し訳ございません。
VB6の質問です。
↓例のTimer()を使用したサンプルコードがございましたら見せていただけないでしょうか?
そして、頻繁に使用したいのでTimer()、タイマーをクリア??して使用したいです。
宜しくお願い致します。

Do

'Timer()を使用して、5秒経過したらExit Doでこの処分

Loop

回答No.2

uruz · ベストアンサー

＞タイマーをクリア??して使用したいです。

Timer関数は午前０時からの経過秒数(小数点以下も有効)を返します、従ってクリアはできません。
5秒をカウントするには開始時間との差で経過時間をえます。

dim sTime as single

sTime=Timer
do
　　if (Timer - sTime) >= 5# Then Exit Do
Loop

回答No.1

okormazd

ヘルプにある例。

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("[はい] をクリックすると、プログラムの実行が 5 秒間中断されます。", 4)) = vbYes Then
PauseTime = 5 ' 中断時間を設定します。
Start = Timer ' 中断の開始時刻を設定します。
Do While Timer < Start + PauseTime
DoEvents ' 他のプロセスに制御を渡します。
Loop
Finish = Timer ' 中断の終了時刻を設定します。
TotalTime = Finish - Start ' 実際の中断時間を計算します。
MsgBox "実行を " & TotalTime & " 秒間中断しました。"
Else
End
End If

Do While 文で、5秒間loopするようになっている。

質問のようにDoだけで、Exit Doで出たいなら、
If　Timer < Start + PauseTime then Exit Do
をいれることになる。