VB カウントダウンタイマーの作り方

質問

１か月前からVBの勉強を始めたものです。

下記のように、カウントダウンタイマーを作成したいですが
やり方がわからないです。

１　From構成：
　　textBox1(時刻指定用),label1(カウントダウン表示用)、Button1(スタート用)

2 使用：
　 textBox1に "**:**"形で指定したい時間と分を入力して、Button1を押したら、label1内に今の時刻からのカウントダウンタイマーを表示される

3 カウントダウンが0になったら、何とかの形で知らせてくれる。
　msgboxでもかまいません。

ネットでも調べましたが、自分のニーズに合わせるものを見つかりませんでした。~@~

どうぞ、よろしくお願い致します。

回答No.1

keniti_246 · ベストアンサー

Dim dTime As DateTime

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dTime = TextBox1.Text
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

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

dTime = dTime.AddSeconds(-1)

TextBox2.Text = dTime

If dTime = "0:0:0" Then
Timer1.Enabled = False
MessageBox.Show("終了")

End If

End Sub

こんなんでどうでしょうか？

補足

早速にご回答頂き、ありがとう御座いました。

教えた通り、簡単かつスムーズにプログラムができましたので
勉強にもなりました。(^@^)

まだ、次の質問があったので、宜しければ、教えて頂きたいです。

１　入力した内容は　時間じゃない or 書式が正しくない場合は
　　何もしないでのチェック機能を追加したい
　　例1： 789:52 例2： 田中:６７

２ 日付と時刻を同時に入力しても、カウントダウンできるような
　　機能に追加したい
　　入力例： 2009/05/03 15:00

いきなり、質問を追加しましたので、とても失礼しましたが
ぜひ、宜しくお願いします。

回答No.2

keniti_246

１　入力した内容は　時間じゃない >>>
Try
dTime = TextBox1.Text
Timer1.Interval = 1000
Timer1.Enabled = True
Catch ex As Exception
TextBox1.Text = ""
MessageBox.Show("エラー")

End Try

お礼

再度ご回答頂き、ありがとう御座いました。

半分の問題が解決しました。