well i've given it a go
modified the function
private function FormatValue(strValue, Format) if lcase(left(Format,6)) = lcase("Number") then FormatValue = FormatAsNumber(strValue, Format) elseif lcase(left(Format,4)) = lcase("Date") then FormatValue = FormatAsDate(strValue, Format) elseif lcase(left(Format,8)) = lcase("Checkbox") then FormatAsChk(strValue, Format) elseif lcase(left(Format,5)) = lcase("Color") then FormatValue = FormatAsColor(strValue, Format) end if end function
and added the fuction
private function FormatAsColor(strValue, Format) tmpColor = strValue tmpColor = replace(tmpColor,"#","0x") FormatAsColor = trim(tmpColor) end function
where
dwzXml_rs.addItem "bgcolour", "SkinBGColor", "Color", "Line"
and it seems to work |
|
|