2017年9月28日

【Access】タイマー時イベントを使ってストップウォッチを作ってみる

2017年9月28日 (木) 22:14 in ,


Accessのフォームにはタイマー時イベントというものがあります。これを使うと一定間隔で処理を実行することが出来ます。

例

ここでは試しにストップウォッチを作ってみます。

まず、このようなフォームを作成します。
コントロールは、経過時間を表示するラベル（labelElapsedTime）、STARTボタン（buttonStart）、STOPボタン（buttonStop）です。

Private ElapsedTime As Long

Private Sub Form_Timer()

    ElapsedTime = ElapsedTime + 1

    '経過時間を表示
    Me.labelElapsedTime.Caption = CStr(ElapsedTime)
    
End Sub

Private Sub buttonStart_Click()
    
    Me.labelElapsedTime.Caption = 0
    ElapsedTime = 0

    'タイマ間隔を1000（１秒）にする
    Me.TimerInterval = 1000

End Sub

Private Sub buttonStop_Click()

    'タイマ間隔を0にする
    Me.TimerInterval = 0

End Sub
まず、STARTボタンのクリックイベントプロシージャでTimerInterval=1000（単位はミリ秒）にします。そうするとタイマーが１秒間隔で動き出します。ちなみにタイマーイベントでの最初の処理は、TimerIntervalで指定した時間が経過したのちです。

そして、STOPボタンでTimerInterval=0にするとタイマーイベントが停止します。

実行するとこのようになります。








スポンサーリンク