データベースだけではない5

前回タイマーについて説明しました。
タイマー機能だけ取り出して汎用性のあるものを作りましたので公開しておきます。
分と秒をセットします。
リセットボタンをクリックすればセット完了。
残り10秒になると文字色が変わりフォントサイズも大きくなります。
コードは以下の通りです。(Formatは無くても大丈夫)

Option Compare Database 
Dim i As Integer 
Dim dt As Date 

Private Sub Form_timer() 
dt = DateAdd("s", "-1", dt) 
Me.twatch = Right(Format(dt, "hh:mm:ss"), 5) 
i = i - 1 
If i = 10 Then 
Me.twatch.ForeColor = "9639167" 
Me.twatch.FontSize = 24 
Me.twatch.TopMargin = 60 
End If 
If i = 0 Then 

MsgBox "時間です" 
Me.TimerInterval = 0 
Exit Sub 
End If 
End Sub 

Private Sub cmdReset_Click() 
dt = TimeSerial(7, Me.tmin, Me.tsec) 
i = Me.tmin * 60 + Me.tsec 
Me.twatch = Right(dt, 5) 
Me.twatch.ForeColor = "0" 
Me.twatch.FontSize = 16 
Me.twatch.TopMargin = 160 
End Sub 

Private Sub cmdStart_Click() 
Me.TimerInterval = 1000 
End Sub 

Private Sub cmdStop_Click() 
Me.TimerInterval = 0 
End Sub

Option Compare Database

Dim i As Integer

Dim dt As Date

Private Sub Form_timer()

dt = DateAdd("s", "-1", dt)

Me.twatch = Right(Format(dt, "hh:mm:ss"), 5)

i = i - 1

If i = 10 Then

Me.twatch.ForeColor = "9639167"

Me.twatch.FontSize = 24

Me.twatch.TopMargin = 60

End If

If i = 0 Then

MsgBox "時間です"

Me.TimerInterval = 0

Exit Sub

End If

End Sub

Private Sub cmdReset_Click()

dt = TimeSerial(7, Me.tmin, Me.tsec)

i = Me.tmin * 60 + Me.tsec

Me.twatch = Right(dt, 5)

Me.twatch.ForeColor = "0"

Me.twatch.FontSize = 16

Me.twatch.TopMargin = 160

End Sub

Private Sub cmdStart_Click()

Me.TimerInterval = 1000

End Sub

Private Sub cmdStop_Click()

Me.TimerInterval = 0

End Sub

データベースだけではない5

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル