Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
TimerをLabelに、表示したい 2008 Express
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9294#CommentId12571
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
拓
 (社会人)
投稿日時
2009/8/24 21:49:44
おかしなところがあったので書き直しました。失礼しました。
Dim count As Integer
Const max As Integer = 100
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
count -= 1
If count < 0 Then
Label1.Text = "時間ぎれです"
Else
Label1.Text = "残り" & count.ToString & "秒"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled = True Then
count = max
Button1.Text = "ストップ"
Else
Button1.Text = "スタート"
End If