1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
Public Class Form1
Private SearchString As String = String.Empty
Private SearchColor As Color = Color.Red
Public Sub New()
' Cet appel est requis par le concepteur.
InitializeComponent()
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
Me.Text = "DataGridView BarGraph column demo"
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SearchString = "rati"
SearchColor = Color.Red
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
SetupColumns()
AddRows()
DataGridView1.Invalidate()
End Sub
Private Sub btnChangeMyString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeMyString.Click
SearchString = TextBox1.Text
SearchColor = Color.GreenYellow
DataGridView1.Invalidate()
End Sub
Private Sub SetupColumns()
Dim col As DataGridViewTextBoxColumn
'add 2 columns
For i As Integer = 1 To 2
col = New DataGridViewTextBoxColumn()
col.HeaderText = "Column" + i.ToString
Me.DataGridView1.Columns.Add(col)
Next
End Sub
Private Sub AddRows()
Dim rnd As New Random
'add 5 rows
Me.DataGridView1.RowCount = 5
Dim row As DataGridViewRow
Dim i As Integer = 0
For Each row In Me.DataGridView1.Rows
row.Cells(0).Value = "id" + i.ToString
row.Cells(1).Value = "ratine arati tartarin de tarascon " + Rnd.Next(10, 50).ToString
i += 1
Next row
End Sub
Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
If DataGridView1.Columns(1).Index = e.ColumnIndex AndAlso
e.RowIndex >= 0 Then
Dim newRect As New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 1, _
e.CellBounds.Width - 4, e.CellBounds.Height - 4)
Dim backColorBrush As New SolidBrush(e.CellStyle.BackColor)
Dim gridBrush As New SolidBrush(Me.DataGridView1.GridColor)
Dim gridLinePen As New Pen(gridBrush)
Dim gr As Graphics = e.Graphics
Dim fnt As Font = e.CellStyle.Font
Try
' Erase the cell.
gr.FillRectangle(backColorBrush, e.CellBounds)
' Draw the grid lines (only the right and bottom lines;
' DataGridView takes care of the others).
gr.DrawLine(gridLinePen, e.CellBounds.Left, _
e.CellBounds.Bottom - 1, e.CellBounds.Right - 1,
e.CellBounds.Bottom - 1)
gr.DrawLine(gridLinePen, e.CellBounds.Right - 1,
e.CellBounds.Top, e.CellBounds.Right - 1,
e.CellBounds.Bottom)
' Draw the inset highlight box.
e.Graphics.DrawRectangle(Pens.Blue, newRect)
' Draw the text content of the cell, ignoring alignment.
Dim startPoint As Point
Dim rects As List(Of RectangleF)
Dim cellText As String
Dim maxLen As Integer = 32
If (e.Value IsNot Nothing) Then
cellText = CStr(e.Value)
If cellText.Length > 32 Then cellText = cellText.Remove(maxLen - 1)
Dim index As Integer = cellText.IndexOf(SearchString)
startPoint = New Point(e.CellBounds.X + 2, e.CellBounds.Y + 2)
rects = MeasureCharactersInWord(gr, fnt, cellText, startPoint)
Dim p As PointF
If index < 0 Then
Using br As New SolidBrush(e.CellStyle.ForeColor)
For i = 0 To cellText.Length - 1
p = rects(i).Location
gr.DrawString(cellText(i), fnt,
br, p.X, p.Y,
StringFormat.GenericDefault)
Next
End Using
Else
Using br As New SolidBrush(e.CellStyle.ForeColor)
For i = 0 To cellText.Length - 1
p = rects(i).Location
If i >= index And i < index + SearchString.Length Then Continue For
gr.DrawString(cellText(i), fnt,
br, p.X, p.Y,
StringFormat.GenericDefault)
Next
End Using
Using SearchBrush As New SolidBrush(SearchColor)
For i = index To index + SearchString.Length - 1
p = rects(i).Location
gr.DrawString(cellText(i), fnt,
SearchBrush, p.X, p.Y,
StringFormat.GenericDefault)
Next
End Using
End If
End If
e.Handled = True
Finally
gridLinePen.Dispose()
gridBrush.Dispose()
backColorBrush.Dispose()
End Try
End If
End Sub
Private Function MeasureCharactersInWord(ByVal gr As Graphics, ByVal fnt As Font, ByVal source As String, ByVal p As PointF)
Dim result As New List(Of RectangleF)
Dim numcars As Integer = source.Length
' rectangle layout.
Dim size As SizeF = gr.MeasureString(source, fnt)
Dim layoutRect As New RectangleF(p, size)
Using fmt As StringFormat = New StringFormat()
fmt.Alignment = StringAlignment.Near
fmt.LineAlignment = StringAlignment.Near
fmt.Trimming = StringTrimming.None
fmt.FormatFlags = StringFormatFlags.MeasureTrailingSpaces
Dim ranges(numcars - 1) As CharacterRange
For i As Integer = 0 To numcars - 1
ranges(i) = New CharacterRange(i, 1)
Next
fmt.SetMeasurableCharacterRanges(ranges)
'Find ranges.
Dim regions() As Region =
gr.MeasureCharacterRanges(
source, fnt, layoutRect,
fmt)
'Convert the regions into rectangles.
Dim rect As RectangleF
For i As Integer = 0 To regions.Count - 1
rect = regions(i).GetBounds(gr)
result.Add(rect)
Next
End Using
Return result
End Function
End Class |
Discussion :
Changer la couleur d'un caractère spécifique dans une cellule de datagridview
Répondre avec citation
Partager