- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Do文の中にタイマーを・・・)
Do文にタイマーをセットする方法
このQ&Aのポイント
- VB初心者が複雑なプログラムでDo文にタイマーをセットする方法について教えてください。
- タイマーがDo文の条件となり、一定の時間ごとにプログラムを実行する方法が知りたいです。
- タイマーを起動し、終了後にDo文の中に戻るプログラムも教えてください。
- みんなの回答 (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が疲れてしまうので注意が必要です。
お礼
ありがとうございます。 詳しくはわかりませんが、少しずつ解読して組み込んでいきたいと思います。