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

■No94233 (魔界の仮面弁士 さん) に返信

すみません、勘違いでした。
上手く稼働しました。お助けいただきありがとうございます。

        If e.RowIndex < 0 Then
            Return
        End If

        'ﾃﾞｰﾀﾊﾞｲﾝﾄﾞ先の行を取り出す
        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

        If IsDBNull(oColor) Then
        Else

            'HTMLカラー表記とみなして、Color構造体に変換する
            Dim newBackColor = ColorTranslator.FromHtml(CStr(oColor))
            ''透明度指定のある色だと扱いにくいため不透明に変更する
            newBackColor = Color.FromArgb(255, newBackColor)

            '背景色セット
            If e.ColumnIndex = 3 Then
                With e.CellStyle
                    .BackColor = newBackColor
                End With
            End If
        End If