VB ProgressBar(프로그래스바, 진행바) 사용법
페이지 정보
작성자
오원장
쪽지보내기
메일보내기
자기소개
아이디로 검색
전체게시물
댓글 1건
조회 4,294회
작성일 16-06-21 19:05
본문
Option Explicit
Private Sub Form_Load()
ProgBar.Max = 120 ' ProgBar의 최대값 지정
ProgBar.Min = 0 ' ProgBar의 최소값 지정
ProgBar.Scrolling = ccScrollingStandard 'ccScrollingSmooth
Timer1.Interval = 1000 ' 타이머 속도 1초
End Sub
Private Sub Timer1_Timer()
Static i As Long 'PB 의 Value 값이 될 변수 선언 , i의 초기값은 0
i = i + 1 '1초마다 1씩 값증가
ProgBar.Value = i 'ProgBar의 Value(값) 은 i 값
End Sub
댓글목록
오원장님의 댓글
오원장
쪽지보내기
메일보내기
자기소개
아이디로 검색
전체게시물
작성일
Option Explicit
Dim k As Long
Private Sub CmdNext_Click()
ProgBar.Value = 0
k = 0
End Sub
Private Sub Form_Load()
ProgBar.Max = 120 ' ProgBar의 최대값 지정
ProgBar.Min = 0 ' ProgBar의 최소값 지정
ProgBar.Scrolling = ccScrollingStandard 'ccScrollingSmooth
Timer1.Interval = 1000 ' 타이머 속도 1초
End Sub
Private Sub Timer1_Timer()
'Static i As Long 'PB 의 Value 값이 될 변수 선언 , i의 초기값은 0
If k < 120 Then
k = k + 1 '1초마다 1씩 값증가
ProgBar.Value = k 'ProgBar의 Value(값) 은 i 값
Else
CmdNext_Click
End If
End Sub