还有个问题 如果深色的颜色 字体我要改成白色 不然看不清 我参考这个https://blog.csdn.net/qq_36843675/article/details/79448051来判断获取的颜色深浅
但是没有什么用
static ls As new List(Of String)
Dim name As String = e.Row("工单号")
If ls.Contains(name) = False Then
Dim r As Integer = Rand.Next(0, 255)
Dim g As Integer = Rand.Next(0, 255)
Dim b As Integer = Rand.Next(0, 255)
Dim c As Color = Color.FromARGB(Rand.Next(0, 255), r, g, b)
If (r*0.299 + g*0.578 + b*0.114) >= 192 Then
e.Table.DataTable.AddUserStyle(name, c, Color.black)
Else
e.Table.DataTable.AddUserStyle(name, c, Color.yellow)
End If
ls.add(name)
End If
e.style = name
[此贴子已经被作者于2019/4/23 17:55:10编辑过]
加好友 
发短信
Post By：2019/4/22 23:20:00 [显示全部帖子]
