以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]DrawCell事件显示颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175617)
--  作者：2425004926
--  发布时间：2022/3/11 16:20:00
--  [求助]DrawCell事件显示颜色
 

DrawCell事件中， “十六进制色值”这一列显示颜色该怎么表示？


红色和蓝色的方式测试都不行

If e.Col.Name = "十六进制色值" Then
    Dim s As String = e.Row("十六进制色值")
    e.Style = ColorTranslator.FromHtml(s)
    e.Row("十六进制色值").BackColor = ColorTranslator.FromHtml(e.Row("十六进制色值"))
End If
--  作者：有点蓝
--  发布时间：2022/3/11 16:30:00
--  
“十六进制色值”这一列存储的是什么内容？
--  作者：有点蓝
--  发布时间：2022/3/11 16:31:00
--  
和这里2楼一样的用法：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=175521&skin=0
--  作者：2425004926
--  发布时间：2022/3/11 16:34:00
--  
“十六进制色值”这一列的值
#272727
#3C3C3C
#4F4F4F
#5B5B5B
#6C6C6C
#7B7B7B
#8E8E8E
#9D9D9D
#ADADAD
#BEBEBE
......
--  作者：2425004926
--  发布时间：2022/3/11 16:37:00
--  
好了，谢谢
            Dim s As String = e.Row("十六进制色值")
            e.Table.DataTable.AddUserStyle(s,ColorTranslator.FromHtml(s),Color.black)   \'这一行必须有,否则重启后出错
            e.Style=s