10秒カウントダウン

Question

vbでtimerとlabelを使って起動したら10秒カウントダウンするにはどうしたらいいですか？

Answer 1

Timer の Interval を 1000 にして Tick でラベルの Text を更新してください。

Answer 2

Form1.Loadの中に

Label1.Text="10"
Timer1.Enabled = True
Timer1.Interval = 1000

Timer1.Tickの中に、

if Label1.Text="0" Then
Label1.Text="時間です!"
Timer1.Enabled = False
Else
Dim nowcount = Label1.Text
Dim nowcountint = Integer.Parse(nowcount)
Dim newcount = nowcountint-1
Dim newcountstr = newcount.Tostring()
Label1.Text = newcountstr
Timer1.Enabled = True
End if

を記載して下さい。