| 投稿日 | ： 2004/05/20(Thu) 14:13 |
| 投稿者 | ： るしぇ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: イベント処理中に違うイベントの処理を行う方法 |
>65秒以内に終了しないとまずかったりするのでしょうか？
Interval の仕様をヘルプで確認してください。
難しい事しなければいいんでない？
[VB6.0]
Option Explicit
Private DateTimeX As Date
Private Sub Form_Load()
With Me.Timer1
.Interval = 10000 ' 10秒
.Enabled = True
End With
With Me.Timer2
.Interval = 1000 ' 1秒
.Enabled = False
End With
End Sub
Private Sub Command1_Click()
DateTimeX = Now + (3600 / 86400)
With Me.Timer2
.Enabled = True
End With
End Sub
Private Sub Timer1_Timer()
With Me.Timer1
.Enabled = False
End With
DateTimeX = Now + (300 / 86400)
With Me.Timer2
.Enabled = True
End With
End Sub
Private Sub Timer2_Timer()
DoEvents
Call Sleep(100)
If DateTimeX <= Now Then
With Me.Timer2
.Enabled = False
End With
MsgBox "時間ですよ。"
End If
End Sub