VB.NET2005 TIPS / グラフィックス系 |
G0001 色名一覧 |
最終更新:2006/11/12 再掲 |
●解説
Windowsで使用される標準色には名称が定義されており、これを得る方法である。
●原理
システム定義色は列挙体になっており、これより名称を得る。
●方法/事例
以下のようなプログラムによって、列挙内容(Windows既定色名の文字列)を取得できる。
Dim CNaT() As String, CC As Integer
CC = 0
For Each C As String In [Enum].GetNames(GetType(KnownColor))
ReDim Preserve CNaT(CC)
CNaT(CC) = C
CC += 1
Next
このカラーリストにより、
Dim MyColor As Color = Color.FromName(CNat(k))
などとすれば、色名から実際の色を取得できる。ユーザに色を選ばせるときに利用できる。
下図は、得られた色名リストを描画した例である。
|