Color.Red のような色名を配列に取り込むには？（ＶＢ．ＮＥＴ） (ID:123387)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ガッ様、お世話になりました。無事に解決いたしました。列挙体などと
いうものは初めて使用しましたし、Ｆｏｒ  Ｅａｃｈなるものも初めて
使用しました。（ほとんど理解せずに使用しています）

以下のごとく無事配列に取り込めました。
今日は  Me.BackColor = Color.FromName("AliceBlue")  のような
使用法も学ぶことができ「棚から牡丹餅」「一石二鳥」大変意義のある
一日となりました。ありがとうございます。
   
        Dim SysColor() As String        'システムカラーを入れる配列
        Dim KnoColor() As String        'その他の定義色を入れる配列
        Dim SysCount As Integer
        Dim KnoCount As Integer
        Dim ChangeFlg As Boolean        'システムカラーからその他の定義色に切り替わったフラグ
        Dim ColorName As String

For Each ColorName In [Enum].GetNames(GetType(KnownColor))
            If ColorName = "AliceBlue" Then ChangeFlg = True
            If ChangeFlg = False Then       'システムカラー
                SysCount = SysCount + 1
                ReDim Preserve SysColor(SysCount)
                SysColor(SysCount) = ColorName
                ListBox1.Items.Add(ColorName)
            Else                            'その他の定義色
                KnoCount = KnoCount + 1
                ReDim Preserve KnoColor(KnoCount)
                KnoColor(KnoCount) = ColorName
                ListBox2.Items.Add(ColorName)
            End If
        Next ColorName

←解決時は質問者本人がここをチェックしてください。

戻る