掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ミリセカンド単位で処理停止をするには？ (ID：74582)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
FormにCommandButtonとLabelとTimerを１こずつおいてください。 Dim lngCount As Long Private Sub Command1_Click() Timer1.Interval = 100 '100ミリ秒 Label1.Caption = "スタート" Label1.Refresh Timer1.Enabled = True lngCount = 0 Do While lngCount < 5 DoEvents Loop Label1.Caption = "エンド" Timer1.Enabled = False End Sub Private Sub Timer1_Timer() lngCount = lngCount + 1 End Sub Timer1.Interval と lngCount < 5 をかきかえれば ミリ秒単位で好きな時間ループできます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.