[VB6] การทำ ProgressBar ด้วย PictureBox Control

thongkorn

โค้ดชุดนี้ก็ไม่มีอะไรมากมาย แต่แฝงนัยยะของการฝึกคิดฝึกทำ และการฝึกเขียนโปรแกรม ไม่ใช่การฝึกใช้โปรแกรม โดยการนำเอา PictureBox Control มาทำเป็น ProgressBar โดยไม่ต้องไปโหลด Microsoft Common Control เข้ามา ...

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

1. ' / --------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Make simple ProgressBar.
   
10. ' / Microsoft Visual Basic 6.0 (SP6)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------
    
15. Option Explicit
    
16. ' ไว้ทำเป็น Progress Bar นับค่า 1 - 100
    
17. Dim CurrentPercent As Byte
    
18. 
    
19. Public Function UpdateProgress(pb As Control, ByVal Percent)
    
20.     Dim Num As String
    
21.     If Not pb.AutoRedraw Then pb.AutoRedraw = -1
    
22.     pb.Cls
    
23.     pb.ScaleWidth = 100
    
24.     pb.DrawMode = 10
    
25.     Num = Format$(Percent, "###") + "%"
    
26.     pb.CurrentX = 50 - pb.TextWidth(Num) \ 2
    
27.     pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(Num)) \ 2
    
28.     pb.Print Num
    
29.     pb.Line (0, 0)-(Percent, pb.ScaleHeight), , BF
    
30.     pb.Refresh
    
31. End Function
    
32. 
    
33. Private Sub cmdExit_Click()
    
34.     Unload Me
    
35. End Sub
    
36. 
    
37. Private Sub cmdProcess_Click()
    
38.     Timer1.Enabled = True
    
39. End Sub
    
40. 
    
41. Private Sub Form_Load()
    
42.     CurrentPercent = 0
    
43.     '// Timer1
    
44.     Timer1.Enabled = False
    
45.     Timer1.Interval = 100   '<-- 100 millisecond.
    
46. End Sub
    
47. 
    
48. Private Sub Timer1_Timer()
    
49.     CurrentPercent = CurrentPercent + 10 ' เพิ่มขึ้นทีละ 10 ไปเรื่อยๆ จนถึง 100 ก็จบการทำงาน (Timer.Enabled = False)
    
50.     If CurrentPercent <= 100 Then
    
51.         UpdateProgress picStatus, CurrentPercent
    
52.     Else
    
53.         MsgBox "สิ้นสุดกระบวนการทำงาน.", vbInformation + vbSystemModal, "ProgressBar"
    
54.         Timer1.Enabled = False
    
55.         CurrentPercent = 0
    
56.         picStatus.Cls
    
57.         'Unload Me
    
58.     End If
    
59. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...