VB.NET 진행률 표시줄에 대한 예

이 예에는 다양한 구현 방법이 있습니다. 다음은 다른 방법입니다.

먼저 다음 컨트롤을 양식에 로드합니다. 진행률 표시줄(진행률 표시줄), 라벨(사용) 텍스트 프롬프트를 실시간으로 표시하기 위해), 두 개의 타이머(각각 진행률 표시줄의 증가 또는 감소를 제어하기 위해), 그리고 이를 달성하기 위해 다음 코드를 사용합니다:

Public Class Form1

Private Sub Form1_Load( ByVal 보낸 사람은 System.Object로, ByVal e는 System.EventArgs로) MyBase.Load를 처리합니다.

Timer1.Enabled = True

Timer1.Interval = 500

Timer2 .Interval = 500

ProgressBar1.Value = 0

ProgressBar1.Maximum = 100

ProgressBar1.Minimum = 0

End Sub

'위 프로세스는 컨트롤의 초기 값을 설정하는 것이며 속성 패널에서도 설정할 수 있습니다.

Private Sub Timer1_Tick(ByVal sender As System .Object, ByVal e As System.EventArgs) Timer1을 처리합니다.

ProgressBar1.Value = 1

Label1.Text = "현재 완료됨" amp;

If (ProgressBar1.Value = 100) Then

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

'timer1은 진행률 증가를 제어하는 ​​데 사용됩니다.

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Timer2.Tick 처리

ProgressBar1.Value - = 1

Label1.Text = "현재 완료됨" amp; ProgressBar1.Value amp; ProgressBar1.Value = 0) 그러면

Timer1 .Enabled = True

Timer2.Enabled = False

End If

End Sub

'time2는 진행률 감소를 제어하는 ​​데 사용됩니다.

수업 종료