Here in north one day is many months in summer. :D
But hey, I saw .NET coders here... Please help me with this if you can. How to set default values as Drawing.Color and Image (I set integers already):
Public Class SliderBar
Public Event Value_Changed()
Dim m_Value As Integer = 0
<System.ComponentModel.DefaultValue(0)>
Public Property Value As Integer
Get
Return m_Value
End Get
Set(value As Integer)
m_Value = value
CheckRange()
End Set
End Property
Dim m_Min As Integer = -100
<System.ComponentModel.DefaultValue(-100)>
Public Property Min As Integer
Get
Return m_Min
End Get
Set(value As Integer)
m_Min = Min
End Set
End Property
Private m_Max As Integer = 100
<System.ComponentModel.DefaultValue(100)>
Public Property Max As Integer
Get
Return m_Max
End Get
Set(value As Integer)
m_Max = value
End Set
End Property
Public Property TextColor As Color Get
Return txtValue.ForeColor
End Get
Set(value As Color)
txtValue.ForeColor = value
End Set
End Property
Public Property ScaleImage As Image Get
Return picScale.BackgroundImage
End Get
Set(value As Image)
picScale.BackgroundImage = value
End Set
End Property
Public Property Pointer As Image Get
Return picPointer.BackgroundImage
End Get
Set(value As Image)
picPointer.BackgroundImage = value
End Set
End Property
<System.ComponentModel.DefaultValue(3)>
Public Property ScaleHeight As Integer
Get
Return picScale.Height
End Get
Set(value As Integer)
picScale.Height = value
End Set
End Property
<System.ComponentModel.DefaultValue(25)>
Public Property PointerY As Integer
Get
Return picPointer.Location.Y
End Get
Set(value As Integer)
picPointer.Location = New Point(picPointer.Location.X, value)
End Set
End Property