[VB.NET] การใช้งาน Progress Bar ด้วย BackgroundWorker

thongkorn

พอดีมีคำถามเข้ามาเกี่ยวกับ BackgroundWorker เข้ามา แอดมินจะสรุปสั้นๆ BackgroundWorker นั้นมันเป็นคลาส ที่ช่วยให้เราสามารถแยกคำสั่งปฏิบัติการ (Operation) ไปบนเธรด (Thread) ใหม่ได้ เอ้า!!! เดี๋ยวจะงง หากใครที่เคยใช้ ProgressBar มา คงจะสังเกตเห็นว่าเราจะไม่สามารถขยับฟอร์มไปไหนได้เลย ก็เพราะว่ามันมีงานค้างอยู่ต้องทำให้เสร็จเรียบร้อยเสียก่อน หากจะให้อธิบายเรื่อง Thread มันเป็นเรื่องยาวมาก แอดมินอยากให้ทุกๆท่านได้นำโค้ดไปลองทดสอบดู เมื่อเห็นผลลัพธ์ ก็คงจะเข้าใจได้ไม่ยาก และนำเอาผลการปฏิบัติไปช่วยอ้างอิงเพื่อตีความหมายในหลักการทางทฤษฎี ซึ่งในตัว VB.NET มันมี Control ที่ชื่อว่า BackgroundWorker มาคอยช่วยจัดการเรื่อง Thread ให้เป็นที่เรียบร้อยแล้ว UHU ...


Design Time

BackgroundWorker จะมี Events ที่สำคัญอยู่ 3 ตัว คือ
- Dowork ทำหน้าที่รันการปฏิบัติการแบบอยู่เบื้องหลัง หรือ Background Process
- ProgressChanged ทำหน้าที่รายงานความคืบหน้าของการปฏิบัติการที่ทำอยู่
- RunWorkerCompleted จะทำงานเมื่องานที่ทำอยู่นั้นเสร็จสิ้นสมบูรณ์


ทดสอบการรันแบบธรรมดา


ทดสอบการรันแบบใช้ BackgroundWorker

มาดูโค้ดกันเถอะ ...

1. #Region "ABOUT"
   
2. ' / --------------------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / Purpose: How to use The BackgrounderWorker.
   
9. ' / Microsoft Visual Basic .NET (2010)
   
10. ' /
    
11. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / --------------------------------------------------------------------------
    
14. #End Region
    
15. 
    
16. Public Class frmBackgroundWorker
    
17. 
    
18.     Private Sub frmBackgroundWorker_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         TextBox1.Text = 100
    
20.         TextBox1.MaxLength = 3
    
21.         '// Initialized
    
22.         With BackgroundWorker1
    
23.             .WorkerReportsProgress = True
    
24.             .WorkerSupportsCancellation = True
    
25.         End With
    
26.         '//
    
27.         Control.CheckForIllegalCrossThreadCalls = False
    
28.     End Sub
    
29. 
    
30.     '// Background Worker Process
    
31.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
32.         If Trim(TextBox1.Text) = "" Then Return
    
33.         '//
    
34.         BackgroundWorker1.RunWorkerAsync()
    
35.     End Sub
    
36. 
    
37.     '// BackgroundWorker - Events DoWork
    
38.     Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    
39.         For i = 1 To 100
    
40.             TextBox1.Text = i
    
41.             BackgroundWorker1.ReportProgress(i)
    
42.             Threading.Thread.Sleep(100)
    
43.             lblProgress.Text = ProgressBar1.Value & "%"
    
44.         Next
    
45.     End Sub
    
46. 
    
47.     '// When change occurs.
    
48.     Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    
49.         Me.ProgressBar1.Value = e.ProgressPercentage
    
50.     End Sub
    
51. 
    
52.     '// When finished.
    
53.     Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    
54.         MessageBox.Show("Done Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
55.     End Sub
    
56. 
    
57.     '// Normal Process
    
58.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
59.         If Trim(TextBox1.Text) = "" Then Return
    
60.         '//
    
61.         Dim Max As Integer = 100
    
62.         For i = 1 To Max
    
63.             TextBox1.Text = i
    
64.             lblProgress.Text = i.ToString & "%"
    
65.             ProgressBar1.Value = (100 / Max) * i
    
66.             Threading.Thread.Sleep(100)
    
67.         Next
    
68.     End Sub
    
69. 
    
70.     ' / --------------------------------------------------------------------------
    
71.     ' / Get numeric only.
    
72.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
73.         Select Case index
    
74.             Case 48 To 57 ' 0 - 9
    
75.                 CheckDigitOnly = False
    
76.             Case 8, 13 ' Backspace = 8, Enter = 13
    
77.                 CheckDigitOnly = False
    
78.             Case Else
    
79.                 CheckDigitOnly = True
    
80.         End Select
    
81.     End Function
    
82. 
    
83.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    
84.         If e.KeyChar = Chr(13) Then
    
85.             e.Handled = True
    
86.             Call Button1_Click(sender, e)
    
87.         Else
    
88.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
89.         End If
    
90.     End Sub
    
91. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวนโหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

MrDen

ขอบคุณครับผม