Timer の Interval の限界について (ID:125939)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 'これで出来る。と良いのですが。 'Timer1.Interval値は1000 'タイマーイベントの回数は変数を使ってもいいと思います。 '下の例では約二分後にMsgBoxが表示されます。 Option Explicit Private lngTimerCount As Long Private lngIntervalCount As Long Private Sub Command1_Click() lngIntervalCount = 120 'タイマーイベントの回数を設定。例：120秒 Timer1.Interval = 1000 'Interval値を設定 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If lngTimerCount >= lngIntervalCount Then Timer1.Enabled = False 'タイマーの停止 lngTimerCount = 0 'タイマーイベントの回数を初期化 MsgBox "他のプロセスを起動" Else lngTimerCount = lngTimerCount + 1 Exit Sub End If End Sub