C# と VB.NET の質問掲示板

いつもお世話になっております。
今回も宜しくお願い致します。

DBデータをDataGridViewで取得して表示しているのですが、カラーコード(例：#FFFFF)がそのまま表示している状態です。
これをカラーコードではなく色に変換して表示したいと考えております。
調べ不足かもしれないのですが、参考となるURLを見つけることができなかったので質問させて頂きました。

  【データ取得(FormLoad)】
        '接続情報を使ってｺﾈｸｼｮﾝを生成します。
        Using conn As New MySqlConnection(objConnection.ConnectionString)
            'MySQL文とｺﾈｸｼｮﾝを設定します。
            Using cmd As New MySqlCommand("SELECT BACKCOLOR FROM mst_color , conn)
                'MySQLへの橋渡しのｱﾀﾞﾌﾟﾀｰを設定します。
                Dim sda As MySqlDataAdapter = New MySqlDataAdapter()
                ''SELECTｺﾏﾝﾄﾞを設定します。
                sda.SelectCommand = cmd
                'SELECTの実行及びﾌｪｯﾁ
                sda.Fill(dt)
                'ｸﾞﾘｯﾄﾞに表示します。
                DataGridView1.DataSource = dt
            End Using
        End Using

データを取得する時点でなにかしらの変更をかけないといけないのかな？
とは、思うのですがやり方が分からず…。

どなたかお分かりになられる方宜しくお願い致します。

■No94174 (魔界の仮面弁士 さん) に返信
> 掲示板投稿時に、『半角カナは使用しないでください。文字化けの原因になります。』という
> 注意書きが表示されていたかと思います。次回以降、ご留意ください。
すみません、修正するのを忘れていました。
以降、気をつけます。

> "#FFFFF" ということは 5 桁ですか? ちょっと中途半端ですね。
すみません、例としてだしたので適当に書きました。

> Color と 16進数コードの変換には、ColorConverter クラスまたは ColorTranslator クラスを使えます。
> 
> 
> Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
> 　　If e.RowIndex < 0 Then
> 　　　　Return 
> 　　End If
> 
> 　　'データバインド先の行を取り出します。
> 　　Dim gridRow = DirectCast(sender, DataGridView).Rows(e.RowIndex)
> 　　Dim rowView = TryCast(gridRow.DataBoundItem, DataRowView)
> 　　If rowView Is Nothing Then
> 　　　　Return
> 　　End If
> 
> 　　'mst_color テーブルから、現在行の BACKCOLOR 列の値を取り出します。
> 　　Dim oColor As Object = rowView("BACKCOLOR")
> 　　If oColor Is Nothing OrElse oColor Is DBNull.Value Then
> 　　　　Return
> 　　End If
> 
> 
> 　　'HTML カラー表記とみなして、Color 構造体に変換しています。
> 　　Dim newBackColor = ColorTranslator.FromHtml(CStr(oColor))
> 
> 　　'透明度指定のある色だと扱いにくいので、
> 　　'ここではあえて不透明に変更しています。
> 　　newBackColor = Color.FromArgb(255, newBackColor)
> 
> 　　'文字色も背景色も同じ色にしてみました。
> 　　'必要に応じて、文字色や選択色を調整してください。
> 　　With e.CellStyle
> 　　　　.SelectionBackColor = newBackColor
> 　　　　.BackColor = newBackColor
> 　　　　.SelectionForeColor = newBackColor
> 　　　　.ForeColor = newBackColor
> 　　End With
> End Sub

色の変換ができました。ありがとうございます。
これをさらに色の表示をするセルを指定するとどのようになりますでしょうか？

■No94183 (魔界の仮面弁士 さん) に返信
> 前提条件が提示されていないので判断できません。
> 『色の表示をするセルを指定する』というのは、何を意味していますか?
> 「セルの値によって、どの列の色を変えるか」が変わったりするのでしょうか?
何個かデータがあるうちの一つのセルに、カラーコードのデータを表示しています。

------------------------------------
データ１|データ２|データ３|色表示
------------------------------------
        |        |        |#d7e4bd
------------------------------------
        |        |        |#ffcc66
------------------------------------

このような感じになっています。

■No94190 (魔界の仮面弁士 さん) に返信
>>------------------------------------
>>データ１|データ２|データ３|色表示
>>------------------------------------
>>　　　　|　　　　|　　　　|#d7e4bd
>>------------------------------------
>>　　　　|　　　　|　　　　|#ffcc66
>>------------------------------------
> 
> (1) 上記のどこを着色したいのでしょうか?
色表示の下のセルから着色したかったので下記のようにしたところ上手くいきました。
        '背景色ｾｯﾄ
        If e.ColumnIndex = 3 Then
            With e.CellStyle
                .BackColor = newBackColor
            End With
        End If

> (2) DataGridView 上に "#d7e4bd" という文字列は見えていた方が良いですか? 見えていない方が良いですか?
> 　Dim gridRow = DirectCast(sender, DataGridView).Rows(e.RowIndex)
> 　Dim rowView As DataRowView= TryCast(gridRow.DataBoundItem, DataRowView)
> 　If rowView IsNot Nothing Then
> 　　　Dim oColor As Object = rowView("BACKCOLOR")
> 　　　'Dim row As DataRow = rowView.Row
> 　　　'Dim table As DataTable = row.Table
> 　End If
文字は見えていない方がいいです。
上記のサンプルコードとプロパティのDataPropertyNameを消したところ上手くいきました。

 
> (3) 色情報の値検査を行う必要がありますか?
できれば常に「# + 16進数6桁」形式しか認めない方針としたいです。
新規追加または編集する場合、カラーダイアログボックスを表示して色を選択し表示するようにしています。
カラーダイアログボックスで選択された値はRGB値にしているのですが、これは「# + 16進数6桁」ではないですよね(-_-;)

■No94193 (魔界の仮面弁士 さん) に返信 
> どうやって RGB 値にしているかが記されていないので、
> 正しいか間違っているかは判断できません…。

'色の作成部分を表示可能にする
            cd.AllowFullOpen = True
            '純色だけに制限しない
            cd.SolidColorOnly = False
            '[作成した色]に指定した色（RGB値）を表示する
            cd.CustomColors = New Integer() {&H33, &H66, &H99, &HCC, &H3300, &H3333, &H3366, &H3399, &H33CC, &H6600, &H6633, &H6666, &H6699, &H66CC, &H9900, &H9933}
            'ダイアログを表示する
            If cd.ShowDialog() = DialogResult.OK Then
                '選択された色の取得
                DaraGridView1.Rows(e.RowIndex).Cells(3).Style.BackColor = cd.Color
            End If
            'ダイアログの開放
            Call cd.Dispose() : cd = Nothing : Call GC.Collect()

すみません、このようにやっていました。

■No94226 (魔界の仮面弁士 さん) に返信
> 新規行の対処方法は、No94193 で紹介した URL に記載されていますので、
> 新しく追加される行のセルの既定値を指定するようにしてみてください。

> もしくは、既定値を指定する代わりに、
>> Dim newBackColor = ColorTranslator.FromHtml(CStr(oColor))
> の前に、「If IsDBNull(oColor) Then」などでチェックするという手もあろうかと思います。

なるほどですね、ありがとうございます。
何度も申し訳ないのですが、BindingSourceを使用する場合、バインド先の行を取得する際はどのようになるのでしょうか？
下記の部分です。

        'データバインド先の行を取り出す
        Dim oColor As Object = Nothing
        Dim gridRow = DirectCast(sender, DataGridView).Rows(e.RowIndex)
        Dim rowView As DataRowView = TryCast(gridRow.DataBoundItem, DataRowView)
        If rowView IsNot Nothing Then
            oColor = rowView("BG_COLOR")
        End If