一定時間後にボタンを押す

タグの編集
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 10:37:11
初心者です 

タイマーなどを使って
一定時間後にボタンを押(10秒)して、
ボタンが押されるまでの残り時間を表示するようにしたいのですが、どうすればいいのかわかりません。
アドバイスお願いします<m(_ _)m>
                       
投稿者 (削除されました)  () 投稿日時 2011/3/28 10:40:27
(削除されました)
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 10:42:12
windows7
VB2010       です。 
よろしくお願いします。<m(_ _)m>
投稿者 shu  (社会人) 投稿日時 2011/3/28 12:24:40
こんな感じでどうでしょう。
FormにはTimerコントロールとスタート用ボタン、ストップ用ボタンと秒数表示ラベルを配置です。

Public Class Form1

    Private m_dtNow As Date

    Private Sub cmdStart_Click(sender As System.Object, e As System.EventArgs) Handles cmdStart.Click
        Timer1.Start()
        m_dtNow = Date.Now
        Label1.Text = "10.00秒"
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Dim dtTmp = Date.Now

        Dim msec = dtTmp.Subtract(m_dtNow).TotalMilliseconds

        If msec > 10000 Then
            Label1.Text = "0.00秒"
            Timer1.Stop()
        Else
            Label1.Text = ((10000 - msec) / 1000).ToString("0.00秒")
        End If
    End Sub

    Private Sub cmdEnd_Click(sender As Object, e As System.EventArgs) Handles cmdEnd.Click
        Timer1.Stop()
    End Sub
End Class
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 12:43:19
ありがとうございます!
できました!
これからもよろしくおねがいします 

m(_ _)mペコリ
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 12:44:04
 ありがとうございます!
できました!
これからもよろしくおねがいします 

m(_ _)mペコリ