- "TimerInterval/タイマ間隔" プロパティ
- フォームのTimer/タイマ時イベントが発生する時間間隔を設定します。「ミリ秒」単位で設定します。
- フォーム
-
Private Sub cmdStart1_Click()
'[５秒間隔で開始]ボタンクリック時
'開始時刻をセット
Me!txt開始時刻 = Time()
'タイマ間隔を５秒にセット
Me.TimerInterval = 5000
End Sub
Private Sub cmdStart2_Click()
'[10秒間隔で開始]ボタンクリック時
'開始時刻をセット
Me!txt開始時刻 = Time()
'タイマ間隔を10秒にセット
Me.TimerInterval = 10000
End Sub
Private Sub Form_Timer()
'フォームのタイマ時
'計測時刻をセット
Me!txt計測時刻 = Time()
End Sub
- [５秒間隔で開始]ボタンをクリックしたとき。開始時刻から５秒後にタイマ時イベントが発生し、そのときの時刻が計測時刻として取得されています。
- [10秒間隔で開始]ボタンをクリックしたとき。開始時刻から１０秒後に計測時刻が取得されています。
|
#144
