Hallo liebe VB.NET Gemeinde.
Ich habe ein kleines Usercontrol namens "LEDBar" erstellt, weil mir persönlich der "normale" Fortschrittsbalken (ProgressBar) zu langweilig ist.
Folgende Eigenschaften habe ich erstellt:
[highlight=vbnet]
'Der Anzeigewert
Public Property Value() As Single
'Der Minimalwert
Public Property Minimum() As Integer
'Der Maximalwert
Public Property Maximum() As Integer
'Anzahl "untere" LEDs
Public Property NumberOfLowLEDs() As Integer
'Anzahl "mittlere" LEDs
Public Property NumberOfMidLEDs() As Integer
'Anzahl "obere" LEDs
Public Property NumberOfHighLEDs() As Integer
'Farbe "untere" LEDs
Public Property LEDColor_Low() As LEDColor
'Farbe "mittlere" LEDs
Public Property LEDColor_Mid() As LEDColor
'Farbe "obere" LEDs
Public Property LEDColor_High() As LEDColor
'Farbe des LED-Gehäuses (Eingefärbt bzw. Nicht eingefärbt)
Public Property LEDCase() As LEDCaseType
'Form der LEDs (Rund, Quadrat, Horiz. Rechteck, Vert. Rechteck)
Public Property LEDType() As LED_Type
'Größe der LEDs (Klein, Mittel, Groß)
Public Property LEDSize() As LED_Size
[/highlight]
-->Download<--
In dem ZIP-Archiv befinden sich zwei weitere ZIP-Archive (LEDBar Demo.zip und LEDBar Control.zip).
Würde mich über Feedback freuen.
LG
Steve
Nachtrag!
Erstellt habe ich das ganze mit VB.NET 2008 under Windows 7 Ultimate
Ich habe ein kleines Usercontrol namens "LEDBar" erstellt, weil mir persönlich der "normale" Fortschrittsbalken (ProgressBar) zu langweilig ist.
Folgende Eigenschaften habe ich erstellt:
[highlight=vbnet]
'Der Anzeigewert
Public Property Value() As Single
'Der Minimalwert
Public Property Minimum() As Integer
'Der Maximalwert
Public Property Maximum() As Integer
'Anzahl "untere" LEDs
Public Property NumberOfLowLEDs() As Integer
'Anzahl "mittlere" LEDs
Public Property NumberOfMidLEDs() As Integer
'Anzahl "obere" LEDs
Public Property NumberOfHighLEDs() As Integer
'Farbe "untere" LEDs
Public Property LEDColor_Low() As LEDColor
'Farbe "mittlere" LEDs
Public Property LEDColor_Mid() As LEDColor
'Farbe "obere" LEDs
Public Property LEDColor_High() As LEDColor
'Farbe des LED-Gehäuses (Eingefärbt bzw. Nicht eingefärbt)
Public Property LEDCase() As LEDCaseType
'Form der LEDs (Rund, Quadrat, Horiz. Rechteck, Vert. Rechteck)
Public Property LEDType() As LED_Type
'Größe der LEDs (Klein, Mittel, Groß)
Public Property LEDSize() As LED_Size
[/highlight]
-->Download<--
In dem ZIP-Archiv befinden sich zwei weitere ZIP-Archive (LEDBar Demo.zip und LEDBar Control.zip).
Würde mich über Feedback freuen.
LG
Steve
Nachtrag!
Erstellt habe ich das ganze mit VB.NET 2008 under Windows 7 Ultimate
Comment