Faceplate dynamisieren

[Adenauer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,ich hab ein kleines Problem mit einem Faceplate.
Das Faceplate soll je nach status seine hintergrundfarbe ändern.
Um die Farben global zu halten sind diese in einer eingenen Projektfunktion abgelegt.
Wenn ich die Farben im Facplate bearbeite geht auch alles also so in der art

status=CInt( SmartTags("Properties\Status").Value)

if status = 2
BackColorTrigger = RGB(255,4,22)
if status =3

.....


jetzt möchte ich die Farbzuweisung gerne global machen da ich später mehrere Facplatetypen haben werde und global die farben anpassen mochte..

hier mal das was ich bis jetzt hab leider find ich den fehler nicht

Code im Faceplate:


Function BackColor_Trigger(ByVal Item)
Call GetPreselStatusColors( CInt( SmartTags("Properties\Status").Value), CBool(SmartTags("Properties\Vorwahl").Value), True, 0 )
End Function
**********************************************************************

Globaler Code oder wie nennt man das

Option Explicit

Function GetPreselStatusColors( status, selected , available , aspect )
' , selected As Boolean , available As Boolean, aspect As Integer ) As Colorref
If aspect = 0 And CBool(available) Then
' '// Statusfarbe für permanentanzeige
Select Case ( CByte(status) )
Case 1,2: '// o. k. (und vorgewählt )
GetPreselStatusColors = RGB(182,182,182)
Case 3
GetPreselStatusColors = RGB(0,255,0) '// Antrieb läuft grün
Case 4
GetPreselStatusColors = RGB(255,160,182) '// antrieb warnung orange
Case Else
GetPreselStatusColors = RGB(255,255,255) '// sonst weiß (nicht relevant da durch andere Zustände abgedeckt)
End Select
Elseif aspect = 0 And Not CBool(available) Then
GetPreselStatusColors = ( RGB(255,255,255) )
End If
If aspect = 1 Then
'// Statusfarbe für blinkanzeige "EIN"
GetPreselStatusColors = ( RGB(255,0,0) )
End If
If aspect = 2 Then
'// Statusfarbe für blinkanzeige "AUS"
GetPreselStatusColors = ( RGB(240,240,240) )
Elseif aspect = 3 And CBool(available) Then
GetPreselStatusColors = ( RGB(0,0,0) )
Elseif aspect = 3 And Not CBool(available) Then
GetPreselStatusColors = ( RGB(176,176,176) )
End If
End Function