使用PictureBox模拟进度条

admin

不光是模拟进度条，还支持字符反显
源代码网址：
http://www.extencent.com/show.asp?id=199
源代码：
'代码经过测试，不闪烁

1. Public Sub SetProgress(PBar As PictureBox, ByVal Value As Long, ByVal Max As Long, Optional ByVal Describe As String = "")
   
2.     Dim showText As String
   
3.     Dim drawLength As Long
   
4.    
   
5.     drawLength = (Value * PBar.ScaleWidth / Max)
   
6.    
   
7.     If Describe = "" Then
   
8.         showText = Format(Value * 100 / Max, "#0.00") & "%"
   
9.     Else
   
10.         showText = Describe
    
11.     End If
    
12.    
    
13.     With PBar
    
14.         .AutoRedraw = True
    
15.         .Cls
    
16.         .CurrentX = (.ScaleWidth - .TextWidth(showText)) / 2
    
17.         .CurrentY = (.ScaleHeight - .TextHeight(showText)) / 2
    
18.         .FontBold = True
    
19.         PBar.Print showText
    
20.         .DrawMode = 8
    
21.         PBar.Line (0, 0)-(drawLength, .ScaleHeight), Not RGB(51, 153, 255), BF
    
22.         .AutoRedraw = False
    
23.         .Refresh
    
24.     End With
    
25. End Sub

复制代码