投稿日 | : 2002/08/30(Fri) 16:54 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re^3: 自動更新方法 |
タイマーコントロールをフォームに貼り付けてみてください。
インターバルはミリ秒です。
----------------------------------------------
Option Explicit
Private Counter As Long
Private Sub Form_Load()
'タイマの割り込み発生時間
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim r As Long
Counter = Counter + 1
If Counter < 300 Then Exit Sub
r = MsgBox("5分たちました。")
'カウンタリセット
Counter = 0
End Sub