Thema: Farben über ScrollBars mixen

Home

Die Hintergrundfarbe des Labels werden über ScrollBars unter Einsatz der RGB-Farben festgelegt werden. Das AddIn Analysefunktionen (VBA) muß aktiviert sein. Farben über ScrollBars mixen

Prozedur: ScrollBar1_Change (Sinngemäß auch für ScrollBar2 und ScrollBar3)
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Unterprogrammaufruf
Ablaufbeschreibung:
- Aufruf des Unterprogramms zur Farbfestlegung

Code:


Private Sub ScrollBar1_Change()
   Call SetColors
End Sub

Prozedur: SetColors
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Farben mixen
Ablaufbeschreibung:
- Variablendeklaration
- Stringvariable initialisieren
- Ersten Farbstring festlegen
- Ersten Farbstring mit Nullen auffüllen
- Zweiten Farbstring festlegen
- Zweiten Farbstring mit Nullen auffüllen
- Dritten Farbstring festlegen
- Dritten Farbstring mit Nullen auffüllen
- Farbwert durch Kombination der Farbstrings festlegen
- Labelaufschriften festlegen
- Hintergrundfarbe für das Farb-Label setzen

Code:


Sub SetColors()
   Dim strA As String, strB As String, strC As String, str As String
   Dim varColor As Variant
   str = "00"
   strA = Hex(ScrollBar1.Value)
   strA = strA & String(2 - Len(strA), "0")
   strB = Hex(ScrollBar2.Value)
   strB = strB & String(2 - Len(strB), "0")
   strC = Hex(ScrollBar3.Value)
   strC = strC & String(2 - Len(strC), "0")
   varColor = str & strA & strB & strC
   Label2.Caption = ScrollBar1.Value
   Label3.Caption = ScrollBar2.Value
   Label4.Caption = ScrollBar3.Value
   Label1.BackColor = hex2dec(varColor)
End Sub