📄 usercontrol1.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 = "UserControl1.ctx":0000
Begin VB.Image blue
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":0312
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":0444
Top = 2280
Visible = 0 'False
Width = 120
End
Begin VB.Image blue
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.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 = "UserControl1.ctx":0B4B
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":0C7D
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image goldmet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":0DAF
Top = 2040
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":0EE1
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":1013
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image bluemet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":1145
Top = 1800
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":1277
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":15F2
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image orangemet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":1976
Top = 1560
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":1CF3
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":2066
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image greymet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":23E9
Top = 1320
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":275E
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":2890
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image redmet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":2C14
Top = 1080
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":2F98
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":30CA
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image grmet
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":344E
Top = 840
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 1
Left = 600
Picture = "UserControl1.ctx":37D2
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 0
Left = 360
Picture = "UserControl1.ctx":3B51
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image blank
Height = 150
Left = 120
Picture = "UserControl1.ctx":3ED5
Top = 360
Visible = 0 'False
Width = 120
End
Begin VB.Image master
Height = 150
Index = 2
Left = 840
Picture = "UserControl1.ctx":4007
Top = 600
Visible = 0 'False
Width = 120
End
Begin VB.Image img
Height = 195
Left = 120
Picture = "UserControl1.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
Dim mini, maxi, m_Value As Long
Dim wu, hu, w, h, P, i, a, bx As Integer
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
XP_Default = 0
XP_Blue = 1
XP_DarkBlue = 2
XP_Gold = 3
XP_Green = 4
XP_Grey = 5
XP_Orange = 6
XP_Red = 7
End Enum
Dim m_Pic As Pict
Const m_PicDefault = Pict.XP_Default
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -