Assigning Webstyle from a string

General
1

I have a “form” that we place in an iframe on a number of websites. We do not have any control of the the website, so we must adjust the style of each of the forms on the Xojo web application end.

[code]Dim pageStyle as WebStyle
Dim buttonStyle as WebStyle

Select case Page_ID
case 1
pageStyle = Style_001
buttonStyle=Style_RedButton
case 2
pageStyle = Style_002
buttonStyle=Style_GreenButton
case 3
pageStyle = Style_003
buttonStyle=Style_RedButton
case 4
pageStyle = Style_004
buttonStyle=Style_WhiteButton

//Case continue for 50 more cases
end select

webpage1.Style=pageStyle
WebPage1.Button1.Style=buttonStyle

[/code]

Rather than hard code these styles I would rather store them as strings in the database. Could I then use some sort of introspection to get the style assigned by passing a string?

What would the syntax be for doing this:

webpage1.Style=SomeSortofIntrospectioin("Style_003")
2

Why not create a dictionary with the names as keys and styles as values?