อยากทราบวิธีการทำ BackgroundWorker Load Value vb.net

dreamkarifha

อยากทราบวิธีการทำ BackgroundWorker Load Value แสดงสถานะการโหลดของข้อมูลที่ Query ออกมาจากDatabase

ขอบพระคุณมากครับ

thongkorn

ปกติผมไม่ได้ใช้หรอกครับ เพราะการโหลดข้อมูลมันค่อนข้างจะเร็วอยู่แล้ว แต่ไม่เป็นไร ก็เลยเขียนโค้ดแสดงการเปรียบเทียบระหว่างการใช้ กับไม่ใช้ Background Worker มาให้ได้ดูกัน ...


แบบแสดงผลธรรมดา


แบบใช้ Background Worker

ใช้ Control ...
- BackgroundWorker1 (อยู่ในกลุ่มเครื่องมือ Toolbox)
- TextBox1
- Button1 และ Button2
- ProgressBar1
- lblProgress (แสดงจำนวน %)

โค้ดโปรแกรม ...

1. Public Class frmBackgroundWorker
   
2. 
   
3.     Private Sub frmBackgroundWorker_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         TextBox1.Text = 100
   
5.         TextBox1.MaxLength = 3
   
6.         '// Initialized
   
7.         With BackgroundWorker1
   
8.             .WorkerReportsProgress = True
   
9.             .WorkerSupportsCancellation = True
   
10.         End With
    
11.         '//
    
12.         Control.CheckForIllegalCrossThreadCalls = False
    
13.     End Sub
    
14. 
    
15.     '// Background Worker Process
    
16.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
17.         If Trim(TextBox1.Text) = "" Then Return
    
18.         '//
    
19.         BackgroundWorker1.RunWorkerAsync()
    
20.     End Sub
    
21. 
    
22.     '// BackgroundWorker - Events DoWork
    
23.     Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    
24.         For i = 1 To 100
    
25.             TextBox1.Text = i
    
26.             BackgroundWorker1.ReportProgress(i)
    
27.             Threading.Thread.Sleep(100)
    
28.             lblProgress.Text = ProgressBar1.Value & "%"
    
29.         Next
    
30.     End Sub
    
31. 
    
32.     '// When change occurs.
    
33.     Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    
34.         Me.ProgressBar1.Value = e.ProgressPercentage
    
35.     End Sub
    
36. 
    
37.     '// When finished.
    
38.     Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    
39.         MessageBox.Show("Done Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
40.     End Sub
    
41. 
    
42.     '// Normal Process
    
43.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
44.         If Trim(TextBox1.Text) = "" Then Return
    
45.         '//
    
46.         Dim Max As Integer = 100
    
47.         For i = 1 To Max
    
48.             TextBox1.Text = i
    
49.             lblProgress.Text = i.ToString & "%"
    
50.             ProgressBar1.Value = (100 / Max) * i
    
51.             Threading.Thread.Sleep(100)
    
52.         Next
    
53.     End Sub
    
54. 
    
55.     ' / --------------------------------------------------------------------------
    
56.     ' / Get numeric only.
    
57.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
58.         Select Case index
    
59.             Case 48 To 57 ' 0 - 9
    
60.                 CheckDigitOnly = False
    
61.             Case 8, 13 ' Backspace = 8, Enter = 13
    
62.                 CheckDigitOnly = False
    
63.             Case Else
    
64.                 CheckDigitOnly = True
    
65.         End Select
    
66.     End Function
    
67. 
    
68.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    
69.         If e.KeyChar = Chr(13) Then
    
70.             e.Handled = True
    
71.             Call Button1_Click(sender, e)
    
72.         Else
    
73.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
74.         End If
    
75.     End Sub
    
76. End Class

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

dreamkarifha

ขอบคุณมากๆเลยครับบผม

thongkorn

dreamkarifha ตอบกลับเมื่อ 2018-11-13 21:20
ขอบคุณมากๆเลยครับบผม

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ครับ ... http://www.g2gnet.com/webboard/f ... &extra=page%3D1