• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Do文の中にタイマーを・・・)

Do文にタイマーをセットする方法

このQ&Aのポイント
  • VB初心者が複雑なプログラムでDo文にタイマーをセットする方法について教えてください。
  • タイマーがDo文の条件となり、一定の時間ごとにプログラムを実行する方法が知りたいです。
  • タイマーを起動し、終了後にDo文の中に戻るプログラムも教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • ept63
  • ベストアンサー率21% (54/247)
回答No.1

Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Wait(TimeWaite As Long) '引数をミリ秒で指定 Dim TimeStart As Long TimeStart = timeGetTime Do DoEvents Sleep (100) Loop While (timeGetTime - TimeStart < TimeWaite) End Sub 時間待ちにはこの処理を利用しています。for~nextなどを使うとCPUが疲れてしまうので注意が必要です。

hiromu1988
質問者

お礼

ありがとうございます。 詳しくはわかりませんが、少しずつ解読して組み込んでいきたいと思います。

関連するQ&A