📄 xpbar.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 = "XPbar.ctx":0000
Begin VB.Image blue
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":0312
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":0444
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 0
Left = 360
Picture = "XPbar.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 = "XPbar.ctx":0B4B
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":0C7D
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":0DAF
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":0EE1
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":1013
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":1145
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":1277
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":15F2
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":1976
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":1CF3
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":2066
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":23E9
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":275E
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":2890
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":2C14
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":2F98
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":30CA
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":344E
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 1
Left = 600
Picture = "XPbar.ctx":37D2
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 0
Left = 360
Picture = "XPbar.ctx":3B51
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image blank
Height = 150
Left = 120
Picture = "XPbar.ctx":3ED5
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 2
Left = 840
Picture = "XPbar.ctx":4007
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image img
Height = 195
Left = 120
Picture = "XPbar.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
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 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -