VB 강좌 ProgressBar 사용방법

ProgressBar사용방법.zip

Ctrl + T 를 눌러 구성요소를 띄웁니다.

Microsoft Windows Common Controls 6.0 을 체크후 확인을 누릅니다.

추가를 하면 왼쪽 중앙에 ProgressBar 가 추가됩니다.

Option Explicit

Private Sub Form_Load()
PB1.Max = 100 ' PB1의 최대값 지정
PB1.Min = 0 ' PB1의 최소값 지정
PB2.Max = 100 ' PB2의 최대값 지정
PB2.Min = 0 ' PB2의 최소값 지정

PB1.Scrolling = ccScrollingSmooth
PB2.Scrolling = ccScrollingStandard

Timer1.Interval = 1000 ' 타이머 속도 1초

' 위 옵션은 직접 코딩을 안하셔도 속성에서 지정하셔도 되지만, _
  초보자분들을 위해 직접 코딩했습니다.
End Sub

Private Sub Timer1_Timer() ' 1초마다
Static i As Long 'PB 의 Value 값이 될 변수 선언 , i의 초기값은 0
i = i + 1 '1초마다 1씩 값증가
PB1.Value = i 'PB1의 Value(값) 은 i 값
PB2.Value = i
End Sub