Поскольку вы можете составить список цветов, используя:
Dim clist As New List(Of Color)
, а затем просто добавьте цвета, такие как:
clist.Add(Color.Black)
clist.Add(Color.Red)
, затем l oop через, например,
Dim CurrentColor As Color
For each MyColor As Color in clist
CurrentColor = MyColor
'do whatever you want with this color
Next
Нет причины, по которой вы не можете использовать словарь с текстовой строкой, такой как «красные», для ключа и списком цветов в качестве значения для каждого ключа. Посмотрите, как l oop до KeyValuePair
словаря, или верните список цветов, если ключ «красные» и список цветов содержит, например, розовый, темно-бордовый, пурпурный, красный, оранжевый и т. Д. c. и вы выбираете этот список по
clist = dicColors("reds")
К вашему сведению - я бы не использовал Цвет в качестве ключа, но вы, вероятно, могли бы. Мне всегда нравится использовать текстовые строки для ключей, а затем все что угодно в значениях, например ListOf (что угодно)