?? usercontrol1.ctl
字號:
VERSION 5.00
Begin VB.UserControl Xp_ProgressBar
Appearance = 0 'Flat
AutoRedraw = -1 'True
ClientHeight = 2490
ClientLeft = 0
ClientTop = 0
ClientWidth = 1110
ControlContainer= -1 'True
ScaleHeight = 166
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
'* * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
'* * 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 mini, maxi, m_Value As Long
Dim wu, hu, W, h, P, i, a As Integer
Dim startpos, searchpos, ret, bg, bgcnt, chend, startvalue, setdef, s As Integer
Dim cnt, bx, dif
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
Dim m_Style As TypeStyle
Const m_StyleDefault = TypeStyle.Default
Private Sub UserControl_Initialize()
maxi = defMax
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -