'缺省属性值:
Const m_def_ShowLabel = True
Const m_def_Max = 100
Const m_def_Min = 0
Const m_def_Value = 0
'属性变量:
Dim m_Font As Font
Dim m_ShowLabel As Boolean
Dim m_Max As Long
Dim m_Min As Long
Dim m_Value As Long
'事件声明:
Event Click()
Event DblClick()
Event KeyDown(KeyCode As Integer, Shift As Integer)
Event KeyPress(KeyAscii As Integer)
Event KeyUp(KeyCode As Integer, Shift As Integer)
Event MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Event MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'注意!不要删除或修改下列被注释的行!
'MappingInfo=Picture2,Picture2,-1,BackColor
Public Property Get BackColor() As OLE_COLOR
BackColor = Picture2.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
Picture2.BackColor() = New_BackColor
PropertyChanged "BackColor"
End Property
'注意!不要删除或修改下列被注释的行!
'MemberInfo=8,0,0,100
Public Property Get Max() As Long
Max = m_Max
End Property
Public Property Let Max(ByVal New_Max As Long)
m_Max = New_Max
PropertyChanged "Max"
End Property
'注意!不要删除或修改下列被注释的行!
'MemberInfo=8,0,0,0
Public Property Get Min() As Long
Min = m_Min
End Property
Public Property Let Min(ByVal New_Min As Long)
m_Min = New_Min
PropertyChanged "Min"
End Property
'注意!不要删除或修改下列被注释的行!
'MemberInfo=8,0,0,0
Public Property Get Value() As Long
Value = m_Value
End Property
Public Property Let Value(ByVal New_Value As Long)
If New_Value >= m_Max Then
New_Value = m_Max
End If
Dim charLength As Integer
Dim PrintString As String
'注意!不要删除或修改下列被注释的行!
'MemberInfo=6,0,0,
Public Property Get Font() As Font
Set Font = m_Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set m_Font = New_Font
PropertyChanged "Font"
End Property
'注意!不要删除或修改下列被注释的行!
'MemberInfo=0,0,0,True
Public Property Get ShowLabel() As Boolean
ShowLabel = m_ShowLabel
End Property
Public Property Let ShowLabel(ByVal New_ShowLabel As Boolean)
m_ShowLabel = New_ShowLabel
PropertyChanged "ShowLabel"
End Property
'注意!不要删除或修改下列被注释的行!
'MappingInfo=Picture1,Picture1,-1,Appearance
Public Property Get Appearance() As Integer
Appearance = Picture1.Appearance
End Property
Public Property Let Appearance(ByVal New_Appearance As Integer)
Picture1.Appearance() = New_Appearance
PropertyChanged "Appearance"
End Property