|
> やってみましたが、できませんでした。
↓っかしーなー...できんワケないんやけど。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Maximum = 180
Label2.Text = 180
ProgressBar1.Value = 180
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value - 1
Label2.Text = ProgressBar1.Value
If ProgressBar1.Value = 0 Then
Timer1.Enabled = False
MsgBox("ラーメンができました。いただきます!", _
MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "ラーメンタイマー")
End If
End Sub
|