[비주얼베이직] 프로그래스바(ProgressBar), 진행바

안녕하세요 이번 비주얼베이직 강의는 프로그래스바(ProgressBar) 대해서 알아보도록 하겠습니다.

프로그래스바란 프로그램 설치시 나오는 진행바라고 생각하시면 됩니다.
 

우선 첨부파일을 저장해주세요

ProgressBar.ctl

그후 비주얼베이직을 실행해주세요

비주얼베이직을 실행하신후 컨트롤 + D를 눌러서 첨부파일을 열어주세요

열어주셨으면 비주얼베이직 툴박스에 빨간네모박스한게 추가되셨을겁니다.

ProgressBar 빨간네모박스된거 클릭하셔서 폼에 그려주세요

이렇게요 ㅎㅎ

프로그래스바 를 한번 클릭해주세요

클릭하셨으면 오른쪽 속성창에 프로그래스바의 속성이 나올겁니다

그속성에서 빨간네모박스(Text) 는 프로그래스바의 이름을 뜻하고요

그 밑에 파란네모박스(Theme) 는 프로그래스바의 색깔을 뜻하고

그 바로 밑에 연두색네모박스(Value) 는 프로그래스바를 시작할때의 진행표시를 뜻합니다.

한번 프로그래스바 세팅을 해볼게요

빨간네모박스(Text) 를 Loading 로 바꿨고요

파란네모박스(Theme) 래드 (붉은색)으로 색깔을 바꿧고요 (색깔의 선택은 자유)

연두색네모박스(Value) 프로그래스바 진행표시를 0으로 바꿧습니다.

세팅이 끝나셨으면 툴박스에서 타이머를 추가해주세요 시계모양같이 생긴거요
 

그후에 폼2를 추가해주세요

폼 추가방법 프로젝트(P) > 폼 추가(F) 클릭하시고 폼 선택 열기 하시면됩니다.

저는 이렇게 만들어보겠습니다 프로그래스바 진행상태가 다 되면 폼1을 닫고 폼2를 실행해보도록 하겠습니다.

우선 타이머를 더블클릭해서 소스창을 뛰어주세요

소스를 보시면 이렇게 나와있습니다.  간단히 IF문을 이용했어요. 초록색으로 된것은 주석처리입니다.

Private Sub Timer1_Timer()
If ProgressBar1.Value = "100" Then '//만약 프로그래스바의 값이 100이 되면
Form2.Show '//폼2를 띄운다
Unload Me '//폼1을 닫는다
Else '//아니면
ProgressBar1.Value = ProgressBar1.Value + 1 '//프로그래스바의 값에 1을 추가한다.
End If '//if문 끝
End Sub

요기서 끝이아닙니다 마지막 한가지가 남아있습니다.

타이머를 한번 클릭해주세요 오른쪽 속성창에 Interval 을 정해주셔야하는데요 Interval 은 프로그래스바의 시간의간격을

설정해주는것입니다. 즉 프로그래스바의 이동속도라고 보시면됩니다.

Interval 에 숫자는 1000 = 1초, 100 = 0.1초, 10 = 0.01초 라고 보시면되고요

1000 이라고 설정했다면 1초마다 조금씩조금씩 진행바가 차오르겠죠? 1000은 너무 느리니 10으로 설정해주세요

Interval 을 10으로 설정하고 F5을 눌러보세요

완성 되었습니다.

Tip. 타이머클릭해서 인터벌 안하고 폼로드 부분에 Timer1.Interval = 10 이렇게 입력하셔도 됩니다.

더많은 강좌를 보시려면