[비주얼베이직] Timer 사용하기 (스톱워치 만들기)

 

이렇게 디자인해주세요

일반을 눌러 전역변수를 선언해주세요

Dim start As Date


소스

Dim start As Date   '전역변수

Private Sub Command1_Click()
start = Time             '변수사용
Timer1.Enabled = True        '작동
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False        '중지
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000          '타이머 1초
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format(start - Time, "hh:mm:ss")        'Format 함수사용
End Sub

실행해보겠습니다

정상작동되네요

글씨크기가 너무작네요? 늘려보겠습니다

텍스트박스를 한번클릭후 속성창에 Font 을 클릭해주셔서 글씨체, 글씨크기를 바꿔보세요

글씨크기 변경완료

더 깔끔하네요



스톱워치 예제

스톱워치.zip

이상으로 [비주얼베이직] Timer 사용하기 (스톱워치 만들기) 포스팅을 마치겠습니다