📄 xp_progressbar.ctl
字号:
VERSION 5.00
Begin VB.UserControl Xp_ProgressBar
Appearance = 0 'Flat
AutoRedraw = -1 'True
ClientHeight = 2565
ClientLeft = 0
ClientTop = 0
ClientWidth = 1110
ControlContainer= -1 'True
ScaleHeight = 171
ScaleMode = 3 'Pixel
ScaleWidth = 74
ToolboxBitmap = "Xp_ProgressBar.ctx":0000
Begin VB.Image blue
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":0312
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":0444
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":07C7
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image pc
Height = 150
Index = 2
Left = 840
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image pc
Height = 150
Index = 1
Left = 600
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image pc
Height = 150
Index = 0
Left = 360
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":0B4B
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":0C7D
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":0DAF
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":0EE1
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":1013
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":1145
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":1277
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":15F2
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":1976
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":1CF3
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":2066
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":23E9
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":275E
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":2890
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":2C14
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":2F98
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":30CA
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":344E
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 1
Left = 600
Picture = "Xp_ProgressBar.ctx":37D2
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 0
Left = 360
Picture = "Xp_ProgressBar.ctx":3B51
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image blank
Height = 150
Left = 120
Picture = "Xp_ProgressBar.ctx":3ED5
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 2
Left = 840
Picture = "Xp_ProgressBar.ctx":4007
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image img
Height = 195
Left = 120
Picture = "Xp_ProgressBar.ctx":4139
Top = 120
Visible = 0 'False
Width = 885
End
End
Attribute VB_Name = "Xp_ProgressBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'一个XP进度条控件,
'可以单独把文件提取出来使用
'但如果不是为了与程序的XP风格协调的话
'不建议使用!
Option Explicit 'Aki
'* * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
'* * This code is originaly writen by Aleks Kimhi - Aki. *
' * As you might have read that this ActiveX control is free, O *
'* * and therefore can be distributed for free as long as you *
' * do not sell it for profit and there's still my name on it. ____| *
'* * I've spend some time on this project so please *
' * don't just take it, use it and say you wrote it. *
'* * Thank you for your co-operation. Any comments, P *
' * good or bad, would be greatly appreciated. *
'* * E -mail: aniram@ zahav.net.il *
' * Tel-Aviv, Israel A & M ?Copyright 2002 *
'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Dim m_Value As Long
Dim mini As Variant
Dim maxi As Variant
Dim wu, hu, w, h, P, i, a, bx As Variant
Dim startpos, searchpos, Ret, bg, bgcnt, chend, startvalue, setdef, s As Integer
Dim cnt
Const def_m_Value = 0
Const defMax = 100
Const defMin = 0
Public Enum TypeStyle
Default = 0
Search = 1
End Enum
Public Enum Pict
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -