[VB] ProgressBar 만들기

VB ProgressBar 만드는 방법에 대해 간단히 기록하려함.

1 . 우선 폼을 생성하고 폼 안에 
BackgroundWorker를 추가합니다!
     ( Win10 느낌 물씬 나도록 디자인해봤음.... )

2. 소스 코드를 넣어야겠쥬? 
실행을 시키면 곧장 폼이 뜨면서 로딩이 진행되도록! 
(BackgroundWorker를 사용하여 비동기적으로 구현)

Imports System.ComponentModel

Public Class Loading

    Private Sub loading_from_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label2.Text = "0%"
        // BackgroundWorker가 진행률 업데이트를 지원하면 true (기본값은 false)
        BackgroundWorker1.WorkerReportsProgress = True
        // 백그라운드 작업의 실행 시작
        BackgroundWorker1.RunWorkerAsync()

    End Sub

    // 시간이 오래 걸리는 작업을 수행 하는 작업을 시작 하는 위치
    Public Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For i = 0 To 100
            // ProgressChanged 이벤트를 발생. 백그라운드 작업의 완료율(0부터 100까지)
            BackgroundWorker1.ReportProgress(i)
            Threading.Thread.Sleep(70)
        Next
    End Sub

    // progressbar 업데이트 핸들러
    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Label2.Text = e.ProgressPercentage.ToString + "%"
    End Sub

End Class

3. 확인을 해봅시당 !!!!!

쮸르르르르르륵~~~~