Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = 150
Timer1.Enabled = True
For i = 1 To 100
If Timer1.Enabled = True Then
Timer1.Enabled = False
Timer1.Interval = 1000
TextBox1.Text = TextBox1.Text - 1
Timer1.Enabled = True
End If
Next
End Sub
코드만 봐선 뭔지 감도 안올거 같은데 대충 150이라고 텍스트에 쓴 후에
버튼누르면 1초에 1씩 줄어들어서 50까지 줄어들게 만드는 프로그램을 만드려는중
근데 뭐 아무리 짱구를 돌려봐도 버튼누르면 바로 텍스트 숫자가 50이 됨 ㅅㅂ
댓글 0