Function för att ändra färg på text

2 svar · 432 visningar · startad av devotion 14 aug. 2007

devotionMedlem sedan jan. 20013 582 inlägg

Frågan14 aug. 2007 09:30#1

Hej!

Jag ahr följande funktion som byter färg på text beroende på om strängen innehåller ett visst ord:

Function textColor(sTest)
	sCol = "Color:#000"
	If inStr(sTest, "snarast") > 0 Then sCol = "Color:#f00"
	textColor = sCol
End Function

...

function Chk_P(sLabel, sCheckValue, sCheckTrue, sNote)
	Chk_P = "<tr class='normal'><td>" & sLabel & "</td><td>" & Chk_Check(sCheckValue, sCheckTrue) & "</td><td><span style=""" & textColor(sNote) & """>" & sNote & "</span></td></tr>"
end Function

Defaultvärder är ju svart och nu har jag röd som ett alternativ.
Men hur gör jag SNYGGAST för att ha fler värden?

Dvs fler färger beroende på andra ord?

mvh
Henrik

devotionMedlem sedan jan. 20013 582 inlägg

19 aug. 2007 19:03#2

Är det bara att lägga in fler If-satser, eller kan man göra på något annat sätt?

//Henrik

voigtann1Medlem sedan juni 20019 519 inlägg

19 aug. 2007 19:49#3

Select sats görs nog synggare + snabbare än en IF fråga

Function textColor(sTest)
	Select Case sTest
		Case "snarast"
			textColor = "Color:#f00"
		'Lägg till andra case
		Case Else
			textColor = "Color:#000"
	End Select
End Function

Red: Förlåt såg inte att du skrev "InStr"... då får du nog göra med "fler" ElseIf istället...