如何根据列1中的值自动向DataGridView的行标题添加不同颜色的图标/图像

huangapple
go评论88阅读模式
英文:

How to add different colour icons/images automatic to the Row Header of a DataGridView based on value in column1

问题

如何根据列1中的值自动将不同颜色的图标/图像添加到DataGridView的行标题中？

是否可以在不手动设置基于“列1”中的值的颜色的情况下随机选择所有颜色，还可以考虑“列1”和“列2”之间的值组合？

谢谢

  1. Private colors As Color()
  3. Protected Overrides Sub OnLoad(e As EventArgs)
  4.     MyBase.OnLoad(e)
  6.     colors = {Color.Red, Color.Green, Color.Orange, Color.Black}
  8.     Dim Table1 = New DataTable("TableName")
  10.     Table1.Columns.AddRange({
  11.         New DataColumn("Column1", GetType(String)),
  12.         New DataColumn("Column2", GetType(Integer)),
  13.         New DataColumn("Column3", GetType(Integer))
  14.     })
  16.     Table1.Rows.Add("Item1", 44, 99)
  17.     Table1.Rows.Add("Item2", 50, 70)
  18.     Table1.Rows.Add("Item3", 75, 85)
  19.     Table1.Rows.Add("Item2", 60, 70)
  20.     Table1.Rows.Add("Item3", 85, 85)
  21.     Table1.Rows.Add("Item4", 77, 21)
  22.     Table1.Rows.Add("Item2", 60, 70)
  24.     DataGridView1.RowTemplate.Height = 48
  25.     DataGridView1.RowHeadersWidth = 48
  26.     DataGridView1.DataSource = Table1
  27. End Sub
  29. Private Sub DataGridView1_CellPainting(
  30.                 sender As Object,
  31.                 e As DataGridViewCellPaintingEventArgs) _
  32.                 Handles DataGridView1.CellPainting
  33.     If e.RowIndex >= 0 AndAlso
  34.         e.ColumnIndex = -1 AndAlso
  35.         e.RowIndex <> DataGridView1.NewRowIndex Then
  36.         Dim g = e.Graphics
  37.         Dim sz = Math.Min(e.CellBounds.Width, e.CellBounds.Height) - 6
  38.         Dim ellipseRect = New Rectangle(
  39.                 e.CellBounds.X + (e.CellBounds.Width - sz) \ 2,
  40.                 e.CellBounds.Y + (e.CellBounds.Height - sz) \ 2,
  41.                 sz, sz)
  42.         Dim imgRect = Rectangle.Inflate(ellipseRect, -3, -3)
  43.         Dim colorIndex = e.RowIndex Mod colors.Length
  45.         e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  46.                 DataGridViewPaintParts.Border Or
  47.                 DataGridViewPaintParts.SelectionBackground)
  49.         Using bmp = My.Resources.SomeImage,
  50.             ellipseBrush = New SolidBrush(colors(colorIndex))
  51.             g.SmoothingMode = SmoothingMode.AntiAlias
  52.             g.FillEllipse(ellipseBrush, ellipseRect)
  53.             g.SmoothingMode = SmoothingMode.None
  54.             g.DrawImage(bmp, imgRect,
  55.                         0, 0, bmp.Width, bmp.Height,
  56.                         GraphicsUnit.Pixel)
  57.         End Using
  59.         e.Handled = True
  60.     End If
  61. End Sub
英文:

How to add different colour icons/images automatic to the Row Header of a DataGridView based on value in column1?

is it possible to pick up all the colors randomly without manually setting the color based on the value in "COLUMN1" and can also take the value in combination between "COLUMN1" and "COLUMN2"?

Thanks

  1. Private colors As Color()
  2. Protected Overrides Sub OnLoad(e As EventArgs)
  3. MyBase.OnLoad(e)
  4. colors = {Color.Red, Color.Green, Color.Orange, Color.Black}
  5. Dim Table1 = New DataTable(&quot;TableName&quot;)
  6. Table1.Columns.AddRange({
  7. New DataColumn(&quot;Column1&quot;, GetType(String)),
  8. New DataColumn(&quot;Column2&quot;, GetType(Integer)),
  9. New DataColumn(&quot;Column3&quot;, GetType(Integer))
  10. })
  11. Table1.Rows.Add(&quot;Item1&quot;, 44, 99)
  12. Table1.Rows.Add(&quot;Item2&quot;, 50, 70)
  13. Table1.Rows.Add(&quot;Item3&quot;, 75, 85)
  14. Table1.Rows.Add(&quot;Item2&quot;, 60, 70)
  15. Table1.Rows.Add(&quot;Item3&quot;, 85, 85)
  16. Table1.Rows.Add(&quot;Item4&quot;, 77, 21)
  17. Table1.Rows.Add(&quot;Item2&quot;, 60, 70)
  18. DataGridView1.RowTemplate.Height = 48
  19. DataGridView1.RowHeadersWidth = 48
  20. DataGridView1.DataSource = Table1
  21. End Sub
  22. Private Sub DataGridView1_CellPainting(
  23. sender As Object,
  24. e As DataGridViewCellPaintingEventArgs) _
  25. Handles DataGridView1.CellPainting
  26. If e.RowIndex &gt;= 0 AndAlso
  27. e.ColumnIndex = -1 AndAlso
  28. e.RowIndex &lt;&gt; DataGridView1.NewRowIndex Then
  29. Dim g = e.Graphics
  30. Dim sz = Math.Min(e.CellBounds.Width, e.CellBounds.Height) - 6
  31. Dim ellipseRect = New Rectangle(
  32. e.CellBounds.X + (e.CellBounds.Width - sz) \ 2,
  33. e.CellBounds.Y + (e.CellBounds.Height - sz) \ 2,
  34. sz, sz)
  35. Dim imgRect = Rectangle.Inflate(ellipseRect, -3, -3)
  36. Dim colorIndex = e.RowIndex Mod colors.Length
  37. e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  38. DataGridViewPaintParts.Border Or
  39. DataGridViewPaintParts.SelectionBackground)
  40. Using bmp = My.Resources.SomeImage,
  41. ellipseBrush = New SolidBrush(colors(colorIndex))
  42. g.SmoothingMode = SmoothingMode.AntiAlias
  43. g.FillEllipse(ellipseBrush, ellipseRect)
  44. g.SmoothingMode = SmoothingMode.None
  45. g.DrawImage(bmp, imgRect,
  46. 0, 0, bmp.Width, bmp.Height,
  47. GraphicsUnit.Pixel)
  48. End Using
  49. e.Handled = True
  50. End If
  51. End Sub

答案1

得分: 1

使用相同的随机颜色来标识重复行吗？为了实现这个目标，你需要根据单元格的值对行进行分组，并为每个分组使用一种颜色。在CellPainting事件中执行这个操作是一项繁重的任务，因为它对网格中的每个单元格都会触发。因此，我建议在DataTable中添加一个隐藏的DataColumn，用于保存每行的颜色索引。这些索引在首次绑定控件时设置，以及用户修改值时更新。

  1. ' +
  2. Imports System.Reflection
  4. Private colors As Color()
  5. Private bmp As Bitmap
  7. Sub New()
  8.     InitializeComponent()
  10.     ' 减少闪烁...
  11.     DataGridView1.GetType().
  12.     GetProperty("DoubleBuffered",
  13.                 BindingFlags.Instance Or BindingFlags.NonPublic).
  14.     SetValue(DataGridView1, True)
  15. End Sub
  17. Protected Overrides Sub OnLoad(e As EventArgs)
  18.     MyBase.OnLoad(e)
  20.     ' 收集深色...
  21.     colors = GetType(Color).
  22.         GetProperties(BindingFlags.Public Or BindingFlags.Static).
  23.         Where(Function(pi) pi.PropertyType = GetType(Color)).
  24.         Select(Function(pi) CType(pi.GetValue(GetType(Color), Nothing), Color)).
  25.         Where(Function(c)
  26.                     Return ((
  27.                     c.R * 0.299F +
  28.                     c.G * 0.587F +
  29.                     c.B * 0.114F) / 256.0F) <= 0.5F
  30.                 End Function).ToArray()
  32.     bmp = My.Resources.Money
  34.     Dim Table1 = New DataTable("TableName")
  36.     Table1.Columns.AddRange({
  37.         New DataColumn("Column1", GetType(String)),
  38.         New DataColumn("Column2", GetType(Integer)),
  39.         New DataColumn("Column3", GetType(Integer)),
  40.         New DataColumn("ColorIndex", GetType(Integer))
  41.     })
  43.     Table1.Rows.Add("Item1", 44, 99)
  44.     Table1.Rows.Add("Item2", 50, 70)
  45.     Table1.Rows.Add("Item3", 75, 85)
  46.     Table1.Rows.Add("Item2", 60, 70)
  47.     Table1.Rows.Add("Item3", 75, 85)
  48.     Table1.Rows.Add("Item4", 77, 21)
  49.     Table1.Rows.Add("Item2", 50, 70)
  50.     ' ...等等。
  52.     DataGridView1.DataSource = Table1
  53.     DataGridView1.Columns("ColorIndex").Visible = False
  54.     UpdateColorColumn()
  55.     Table1.AcceptChanges()
  56. End Sub
  58. Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
  59.     MyBase.OnFormClosed(e)
  60.     bmp.Dispose()
  61.     DirectCast(DataGridView1.DataSource, IDisposable)?.Dispose()
  62. End Sub
  64. Private Sub DataGridView1_CellValueChanged(sender As Object,
  65.                 e As DataGridViewCellEventArgs) _
  66.                 Handles DataGridView1.CellValueChanged
  67.     UpdateColorColumn()
  68. End Sub
  70. Private Sub DataGridView1_CellPainting(sender As Object,
  71.                 e As DataGridViewCellPaintingEventArgs) _
  72.                 Handles DataGridView1.CellPainting
  73.     If e.RowIndex >= 0 AndAlso e.ColumnIndex = -1 AndAlso
  74.         e.RowIndex <> DataGridView1.NewRowIndex Then
  76.         Dim ellipseSize = DataGridView1.RowTemplate.Height - 3
  77.         Dim ellipseRect = New Rectangle(
  78.                 e.CellBounds.X + (e.CellBounds.Width - ellipseSize) \ 2,
  79.                 e.CellBounds.Y + (e.CellBounds.Height - ellipseSize) \ 2,
  80.                 ellipseSize, ellipseSize)
  81.         Dim imgSize = ellipseSize ' 或者更小...
  82.         Dim imgRect = New Rectangle(
  83.             ellipseRect.X + (ellipseRect.Width - imgSize) \ 2,
  84.             ellipseRect.Y + (ellipseRect.Height - imgSize) \ 2,
  85.             imgSize, imgSize)
  86.         Dim drv = DirectCast(DataGridView1.Rows(e.RowIndex).DataBoundItem, DataRowView)
  87.         Dim colorIndex = Convert.ToInt32(drv.Item("ColorIndex"))
  88.         Dim g = e.Graphics
  89.         Dim gs = g.Save()
  91.         e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  92.                 DataGridViewPaintParts.Border Or
  93.                 DataGridViewPaintParts.SelectionBackground)
  95.         Using ellipseBrush = New SolidBrush(colors(colorIndex))
  96.             g.SmoothingMode = SmoothingMode.AntiAlias
  97.             g.FillEllipse(ellipseBrush, ellipseRect)
  98.             g.InterpolationMode = InterpolationMode.HighQualityBicubic
  99.             g.DrawImage(bmp, imgRect, 0, 0, bmp.Width, bmp.Height,
  100.                         GraphicsUnit.Pixel)
  101.         End Using
  103.         g.Restore(gs)
  104.         e.Handled = True
  105.     End If
  106. End Sub
  108. Private Sub UpdateColorColumn()
  109.     Dim dt = DirectCast(DataGridView1.DataSource, DataTable)
  110.     dt.EndInit()
  111.     Dim groups = dt.AsEnumerable().
  112.         GroupBy(Function(g) New With {
  113.         Key .Col1 = g.Item(0),
  114.         Key .Col2 = g.Item(1),
  115.         Key .Col3 = g.Item(2) ' 移除此处以便根据前两个分组。
  116.     })
  118.     For i = 0 To groups.Count - 1
  119.         Dim group = groups(i)
  120.         Dim colorIndex = i Mod colors.Length
  122.         For Each row In group
  123.             row("ColorIndex") = colorIndex
  124.         Next
  125.     Next
  126. End Sub

如果你有一个数据库，请在添加ColorIndex列之前填充DataTable。要更新数据库，你不需要特别处理额外的列。INSERT和UPDATE命令会执行它们的SQL CommandText查询，并忽略Columns集合中的其他内容。不过，你可以获取当前DataTable的副本，并排除非数据库列。

例如：

  1. Dim dt = Table1.DefaultView.
  2.     ToTable(False, Table1.Columns.
  3.     Cast(Of DataColumn).
  4.     Where(Function(c) c.ColumnName <> "ColorIndex").
  5.     Select(Function(c) c.ColumnName).ToArray())

作为另一种选择，你可以使用DataGridViewRow.Tag属性来保存颜色索引。下面是另一种写法：

  1. Private colors As Color()
  2. ' ...
  4. Protected Overrides Sub OnLoad(e As EventArgs)
  5.     MyBase.OnLoad(e)
  7.     ' ...
  9.     DataGridView1.DataSource = Table1
  10.     UpdateColorIndices()
  11. End Sub
  13. ' ...
  15. Private Sub DataGridView1_CellPainting(sender As Object,
  16.                 e As DataGridViewCellPaintingEventArgs) _
  17.                 Handles DataGridView1.CellPainting
  18.     If e.RowIndex >= 0 AndAlso e.ColumnIndex = -1 AndAlso
  19.         e.RowIndex <> DataGridView1.NewRowIndex Then
  21.         Dim ellipseSize = DataGridView1.RowTemplate.Height - 3
  22.         Dim ellipseRect = New Rectangle(
  23.                 e.CellBounds.X + (e.CellBounds.Width - ellipseSize) \ 2,
  24.                 e.CellBounds.Y + (e.CellBounds.Height - ellipseSize) \ 2,
  25.                 ellipseSize, ellipseSize)
  26.         Dim imgSize = ellipseSize
  27.         Dim imgRect = New Rectangle(
  28.             ellipseRect.X + (ellipseRect.Width - imgSize) \ 2,
  29.             ellipseRect.Y
  31. <details>
  32. <summary>英文:</summary>
  34. So, you mean using the same random color for the duplicate rows? For that, you need to group the rows by the cell values and use a color for each group. Doing this in the `CellPainting` event is a heavy task since it&#39;s being raised for each cell in the grid. Hence, I suggest adding a hidden `DataColumn` to the `DataTable` to keep the color index of each row. The indices are set when you bind the control the first time, and when the user modifies the values.
  36. ```vb.net
  37. &#39; +
  38. Imports System.Reflection
  40. Private colors As Color()
  41. Private bmp As Bitmap
  43. Sub New()
  44.     InitializeComponent()
  46.     &#39; To reduce the flickering...
  47.     DataGridView1.GetType().
  48.     GetProperty(&quot;DoubleBuffered&quot;,
  49.                 BindingFlags.Instance Or BindingFlags.NonPublic).
  50.     SetValue(DataGridView1, True)
  51. End Sub
  53. Protected Overrides Sub OnLoad(e As EventArgs)
  54.     MyBase.OnLoad(e)
  56.     &#39; Collect dark colors...
  57.     colors = GetType(Color).
  58.         GetProperties(BindingFlags.Public Or BindingFlags.Static).
  59.         Where(Function(pi) pi.PropertyType = GetType(Color)).
  60.         Select(Function(pi) CType(pi.GetValue(GetType(Color), Nothing), Color)).
  61.         Where(Function(c)
  62.                     Return ((
  63.                     c.R * 0.299F +
  64.                     c.G * 0.587F +
  65.                     c.B * 0.114F) / 256.0F) &lt;= 0.5F
  66.                 End Function).ToArray()
  68.     bmp = My.Resources.Money
  70.     Dim Table1 = New DataTable(&quot;TableName&quot;)
  72.     Table1.Columns.AddRange({
  73.         New DataColumn(&quot;Column1&quot;, GetType(String)),
  74.         New DataColumn(&quot;Column2&quot;, GetType(Integer)),
  75.         New DataColumn(&quot;Column3&quot;, GetType(Integer)),
  76.         New DataColumn(&quot;ColorIndex&quot;, GetType(Integer))
  77.     })
  79.     Table1.Rows.Add(&quot;Item1&quot;, 44, 99)
  80.     Table1.Rows.Add(&quot;Item2&quot;, 50, 70)
  81.     Table1.Rows.Add(&quot;Item3&quot;, 75, 85)
  82.     Table1.Rows.Add(&quot;Item2&quot;, 60, 70)
  83.     Table1.Rows.Add(&quot;Item3&quot;, 75, 85)
  84.     Table1.Rows.Add(&quot;Item4&quot;, 77, 21)
  85.     Table1.Rows.Add(&quot;Item2&quot;, 50, 70)
  86.     &#39; ...etc.
  88.     DataGridView1.DataSource = Table1
  89.     DataGridView1.Columns(&quot;ColorIndex&quot;).Visible = False
  90.     UpdateColorColumn()
  91.     Table1.AcceptChanges()
  92. End Sub
  94. Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
  95.     MyBase.OnFormClosed(e)
  96.     bmp.Dispose()
  97.     DirectCast(DataGridView1.DataSource, IDisposable)?.Dispose()
  98. End Sub
  100. Private Sub DataGridView1_CellValueChanged(sender As Object,
  101.                 e As DataGridViewCellEventArgs) _
  102.                 Handles DataGridView1.CellValueChanged
  103.     UpdateColorColumn()
  104. End Sub
  106. Private Sub DataGridView1_CellPainting(sender As Object,
  107.                 e As DataGridViewCellPaintingEventArgs) _
  108.                 Handles DataGridView1.CellPainting
  109.     If e.RowIndex &gt;= 0 AndAlso e.ColumnIndex = -1 AndAlso
  110.         e.RowIndex &lt;&gt; DataGridView1.NewRowIndex Then
  112.         Dim ellipseSize = DataGridView1.RowTemplate.Height - 3
  113.         Dim ellipseRect = New Rectangle(
  114.                 e.CellBounds.X + (e.CellBounds.Width - ellipseSize) \ 2,
  115.                 e.CellBounds.Y + (e.CellBounds.Height - ellipseSize) \ 2,
  116.                 ellipseSize, ellipseSize)
  117.         Dim imgSize = ellipseSize &#39; Or smaller...
  118.         Dim imgRect = New Rectangle(
  119.             ellipseRect.X + (ellipseRect.Width - imgSize) \ 2,
  120.             ellipseRect.Y + (ellipseRect.Height - imgSize) \ 2,
  121.             imgSize, imgSize)
  122.         Dim drv = DirectCast(DataGridView1.Rows(e.RowIndex).DataBoundItem, DataRowView)
  123.         Dim colorIndex = Convert.ToInt32(drv.Item(&quot;ColorIndex&quot;))
  124.         Dim g = e.Graphics
  125.         Dim gs = g.Save()
  127.         e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  128.                 DataGridViewPaintParts.Border Or
  129.                 DataGridViewPaintParts.SelectionBackground)
  131.         Using ellipseBrush = New SolidBrush(colors(colorIndex))
  132.             g.SmoothingMode = SmoothingMode.AntiAlias
  133.             g.FillEllipse(ellipseBrush, ellipseRect)
  134.             g.InterpolationMode = InterpolationMode.HighQualityBicubic
  135.             g.DrawImage(bmp, imgRect, 0, 0, bmp.Width, bmp.Height,
  136.                         GraphicsUnit.Pixel)
  137.         End Using
  139.         g.Restore(gs)
  140.         e.Handled = True
  141.     End If
  142. End Sub
  144. Private Sub UpdateColorColumn()
  145.     Dim dt = DirectCast(DataGridView1.DataSource, DataTable)
  146.     dt.EndInit()
  147.     Dim groups = dt.AsEnumerable().
  148.         GroupBy(Function(g) New With {
  149.         Key .Col1 = g.Item(0),
  150.         Key .Col2 = g.Item(1),
  151.         Key .Col3 = g.Item(2) &#39; Remove this to group by the first two.
  152.     })
  154.     For i = 0 To groups.Count - 1
  155.         Dim group = groups(i)
  156.         Dim colorIndex = i Mod colors.Length
  158.         For Each row In group
  159.             row(&quot;ColorIndex&quot;) = colorIndex
  160.         Next
  161.     Next
  162. End Sub

If you have a DataBase, fill the DataTable before you add the ColorIndex column. To update the DB, you don't need to do anything special regarding the additional column(s). The INSERT and UPDATE commands execute their SQL CommandText queries and ignore anything else in the Columns collection. However, you can get a copy of the current DataTable and exclude the non-database columns.

For example:

  1. Dim dt = Table1.DefaultView.
  2.     ToTable(False, Table1.Columns.
  3.     Cast(Of DataColumn).
  4.     Where(Function(c) c.ColumnName &lt;&gt; &quot;ColorIndex&quot;).
  5.     Select(Function(c) c.ColumnName).ToArray())

As another option, use the DataGridViewRow.Tag property to keep the color index. The same could have been written like this.

  1. Private colors As Color()
  2. &#39; ...
  4. Protected Overrides Sub OnLoad(e As EventArgs)
  5.     MyBase.OnLoad(e)
  7.     &#39; ...
  9.     DataGridView1.DataSource = Table1
  10.     UpdateColorIndices()
  11. End Sub
  13. &#39; ...
  15. Private Sub DataGridView1_CellPainting(sender As Object,
  16.                 e As DataGridViewCellPaintingEventArgs) _
  17.                 Handles DataGridView1.CellPainting
  18.     If e.RowIndex &gt;= 0 AndAlso e.ColumnIndex = -1 AndAlso
  19.         e.RowIndex &lt;&gt; DataGridView1.NewRowIndex Then
  21.         Dim ellipseSize = DataGridView1.RowTemplate.Height - 3
  22.         Dim ellipseRect = New Rectangle(
  23.                 e.CellBounds.X + (e.CellBounds.Width - ellipseSize) \ 2,
  24.                 e.CellBounds.Y + (e.CellBounds.Height - ellipseSize) \ 2,
  25.                 ellipseSize, ellipseSize)
  26.         Dim imgSize = ellipseSize
  27.         Dim imgRect = New Rectangle(
  28.             ellipseRect.X + (ellipseRect.Width - imgSize) \ 2,
  29.             ellipseRect.Y + (ellipseRect.Height - imgSize) \ 2,
  30.             imgSize, imgSize)
  31.         Dim colorIndex = Convert.ToInt32(DataGridView1.Rows(e.RowIndex).Tag)
  32.         Dim g = e.Graphics
  33.         Dim gs = g.Save()
  35.         e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  36.                 DataGridViewPaintParts.Border Or
  37.                 DataGridViewPaintParts.SelectionBackground)
  39.         Using ellipseBrush = New SolidBrush(colors(colorIndex))
  40.             g.SmoothingMode = SmoothingMode.AntiAlias
  41.             g.FillEllipse(ellipseBrush, ellipseRect)
  42.             g.InterpolationMode = InterpolationMode.HighQualityBicubic
  43.             g.DrawImage(bmp, imgRect, 0, 0, bmp.Width, bmp.Height,
  44.                         GraphicsUnit.Pixel)
  45.         End Using
  47.         g.Restore(gs)
  48.         e.Handled = True
  49.     End If
  50. End Sub
  52. Private Sub UpdateColorIndices()
  53.     DataGridView1.EndEdit()
  54.     Dim groups = DataGridView1.Rows.Cast(Of DataGridViewRow).
  55.         Where(Function(r) r.Index &lt;&gt; DataGridView1.NewRowIndex).
  56.         GroupBy(Function(r) New With {
  57.         Key .Col0 = r.Cells(0).Value,
  58.         Key .Col1 = r.Cells(1).Value,
  59.         Key .Col2 = r.Cells(2).Value
  60.     })
  62.     For i = 0 To groups.Count - 1
  63.         Dim index = i Mod colors.Length
  64.         For Each row In groups(i)
  65.             row.Tag = index
  66.         Next
  67.     Next
  68.     DataGridView1.Invalidate()
  69. End Sub

Also, you could create a Dictionay(Of Integer, Color) where each KeyValuePair holds the row index and the ellipse color.

  1. Private colors As Color()
  2. Private ReadOnly dictColors As New Dictionary(Of Integer, Color)
  3. &#39; ...
  5. Private Sub DataGridView1_CellPainting(sender As Object,
  6.                 e As DataGridViewCellPaintingEventArgs) _
  7.                 Handles DataGridView1.CellPainting
  8.     If e.RowIndex &gt;= 0 AndAlso e.ColumnIndex = -1 AndAlso
  9.         e.RowIndex &lt;&gt; DataGridView1.NewRowIndex Then
  11.         Dim ellipseSize = DataGridView1.RowTemplate.Height - 3
  12.         Dim ellipseRect = New Rectangle(
  13.                 e.CellBounds.X + (e.CellBounds.Width - ellipseSize) \ 2,
  14.                 e.CellBounds.Y + (e.CellBounds.Height - ellipseSize) \ 2,
  15.                 ellipseSize, ellipseSize)
  16.         Dim imgSize = ellipseSize
  17.         Dim imgRect = New Rectangle(
  18.             ellipseRect.X + (ellipseRect.Width - imgSize) \ 2,
  19.             ellipseRect.Y + (ellipseRect.Height - imgSize) \ 2,
  20.             imgSize, imgSize)
  21.         Dim g = e.Graphics
  22.         Dim gs = g.Save()
  24.         e.Paint(e.ClipBounds, DataGridViewPaintParts.Background Or
  25.                 DataGridViewPaintParts.Border Or
  26.                 DataGridViewPaintParts.SelectionBackground)
  28.         Using ellipseBrush = New SolidBrush(dictColors(e.RowIndex))
  29.             g.SmoothingMode = SmoothingMode.AntiAlias
  30.             g.FillEllipse(ellipseBrush, ellipseRect)
  31.             g.InterpolationMode = InterpolationMode.HighQualityBicubic
  32.             g.DrawImage(bmp, imgRect, 0, 0, bmp.Width, bmp.Height,
  33.                         GraphicsUnit.Pixel)
  34.         End Using
  36.         g.Restore(gs)
  37.         e.Handled = True
  38.     End If
  39. End Sub
  41. Private Sub UpdateColorIndices()
  42.     DataGridView1.EndEdit()
  43.     dictColors.Clear()
  44.     Dim groups = DataGridView1.Rows.Cast(Of DataGridViewRow).
  45.         Where(Function(r) r.Index &lt;&gt; DataGridView1.NewRowIndex).
  46.         GroupBy(Function(r) New With {
  47.         Key .Col0 = r.Cells(0).Value,
  48.         Key .Col1 = r.Cells(1).Value,
  49.         Key .Col2 = r.Cells(2).Value
  50.     })
  52.     For i = 0 To groups.Count - 1
  53.         Dim index = i Mod colors.Length
  54.         For Each row In groups(i)
  55.             dictColors(row.Index) = colors(index)
  56.         Next
  57.     Next
  58.     DataGridView1.Invalidate()
  59. End Sub

huangapple
  • 本文由 发表于 2023年6月29日 00:27:44
  • 转载请务必保留本文链接：https://go.coder-hub.com/76575084.html
  • datagridrowheader
  • datagridview
  • rowheader
  • vb.net
  • winforms
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定