VBでの質問です

VBでの質問です
5分を計るタイマーを作っていて5分たつと止まるプログラムを作っていて、コンマ以下のケタが長くて、しかも止まらない（ Label1.Text = n5.Subtract(Now).ToStringをLabel1.Text = n5.Subtract(Now).TotalMinutesにしてIf Label1.Text = "00：00：00" ThenをIf Label1.Text = "0" Thenにした時は止まりました）ので止まるようにするにはどこを変えればいいですか？
教えてください
以下コードです
Public Class Form1
Dim n5 As DatePrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
n5 = Now.AddMinutes(5)

Timer1.Interval = 1000

Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = n5.Subtract(Now).ToString

If Label1.Text = "00：00：00" Then

MsgBox("時間になりました。")
Timer1.Stop()


End If
End Sub

長文ですいません

No.1 ベストアンサー 回答者： DreamyCat 回答日時： 2010/01/11 23:21

VB2008です。

ほとんど知らない状態なので、
みっともないのですが
とりあえず動作するようにしてみました。

Public Class Form1
Dim n5 As Date

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
n5 = Now.AddSeconds(7)
Timer1.Interval = 1000
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' Label1.Text = n5.Subtract(Now).ToString
Label1.Text = Mid(n5.Subtract(Now).ToString, 1, 8)
If Label1.Text = "00:00:00" Then
MsgBox("時間になりました。")
Timer1.Stop()
End If
End Sub

End Class

この回答へのお礼

ありがとうございます。
まさかのMidを使って文字を切り出すという発想はありませんでした。
本当にありがとうございます

お礼日時：2010/01/12 22:15