我有一个DataGridView.but我正在遭受dgvw的闪烁问题！ dgvw的编码如下：
Private Sub userdatagrid_DataBindingComplete(sender As Object, e As DataGridViewBindingCompleteEventArgs) Handles userdatagrid.DataBindingComplete
userdatagrid.Columns(0).ReadOnly = False : userdatagrid.Columns(2).ReadOnly = True
End Sub
Private Sub userdatagrid_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles userdatagrid.RowPrePaint
For i = 0 To userdatagrid.Rows.Count - 1
If userdatagrid.Rows(i).Cells(0).Value = True Then
userdatagrid.Rows(i).DefaultCellStyle.BackColor = Color.FromArgb(250, 187, 187)
Else
userdatagrid.Rows(i).DefaultCellStyle.BackColor = Color.Azure
End If
Next
End Sub
Private Sub userdatagrid_CellMouseEnter(sender As Object, e As DataGridViewCellEventArgs) Handles userdatagrid.CellMouseEnter
If e.RowIndex > -1 Then
userdatagrid.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(233, 233, 233)
Else
End If
End Sub
Private Sub userdatagrid_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles userdatagrid.CellMouseLeave
If e.RowIndex > -1 Then
userdatagrid.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Azure
End If
End Sub
Private Sub filterdata(valuetosearch As String)
Dim srq As String = "Select * from Contacts where CONCAT([Unique id],Prefix,[First name],[Last name],Gender,Title,Company,Phone,Mobile,Fax,[Business Email],[Personal email],Reference,Address,[Address 2],Country,City,Zip,Facebook,GooglePlus,Instagram,Twitter,Website,Salary,Currency,[Group],[Id/Status],Note,[Added by]) like '%" & valuetosearch & "%' "
Dim mycmd As New SqlCommand(srq, con)
Dim adapter As New SqlDataAdapter(mycmd)
Dim table As New DataTable()
adapter.Fill(table)
userdatagrid.DataSource = table
End Sub
Private Sub DataGridView_CellChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
Dim dataGridView As DataGridView = DirectCast(sender, DataGridView)
If Not Me._IsSelectAllChecked Then
If dataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = False Then
'When any single CheckBox is unchecked, uncheck the header CheckBox.
DirectCast(dataGridView.Controls.Item("SelectAll"), CheckBox).Checked = False
Else
'When any single CheckBox is checked, loop through all CheckBoxes to determine
'if the header CheckBox needs to be unchecked.
Dim isAllChecked As Boolean = True
For Each row As DataGridViewRow In dataGridView.Rows
If row.Cells(0).Value = False Then
isAllChecked = False
Exit For
End If
Next
DirectCast(dataGridView.Controls.Item("SelectAll"), CheckBox).Checked = isAllChecked
End If
End If
End Sub
'The CurrentCellDirtyStateChanged event happens after user change the cell value,
'before the cell lose focus and CellValueChanged event.
Private Sub DataGridView_CurrentCellDirtyStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim dataGridView As DataGridView = DirectCast(sender, DataGridView)
If TypeOf dataGridView.CurrentCell Is DataGridViewCheckBoxCell Then
'When the value changed cell is DataGridViewCheckBoxCell, commit the change
'to invoke the CellValueChanged event.
dataGridView.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If
End Sub
Private Sub AddSelectAllCheckBox(ByVal theDataGridView As DataGridView)
Dim cbx As New CheckBox
cbx.Name = "SelectAll"
'The box size
cbx.Size = New Size(14, 14)
Dim rect As Rectangle
rect = theDataGridView.GetCellDisplayRectangle(25, -1, True)
'Put CheckBox in the middle-center of the column header.
'cbx.Location = New System.Drawing.Point(rect.Location.X + ((rect.Width - cbx.Width / 2)), rect.Location.Y + ((rect.Height - cbx.Height) / 2))
cbx.Location = New System.Drawing.Point(rect.Location.X + 17, rect.Location.Y + 15)
cbx.BackColor = Color.White
theDataGridView.Controls.Add(cbx)
'Handle header CheckBox check/uncheck function
AddHandler cbx.Click, AddressOf HeaderCheckBox_Click
'When any CheckBox value in the DataGridViewRows changed,
'check/uncheck the header CheckBox accordingly.
AddHandler theDataGridView.CellValueChanged, AddressOf DataGridView_CellChecked
'This event handler is necessary to commit new CheckBox cell value right after
'user clicks the CheckBox.
'Without it, CellValueChanged event occurs until the CheckBox cell lose focus
'which means the header CheckBox won't display corresponding checked state instantly when user
'clicks any one of the CheckBoxes.
AddHandler theDataGridView.CurrentCellDirtyStateChanged, AddressOf DataGridView_CurrentCellDirtyStateChanged
End Sub
Private _IsSelectAllChecked As Boolean
Private Sub HeaderCheckBox_Click(ByVal sender As Object, ByVal e As EventArgs)
For i = 0 To userdatagrid.Rows.Count - 1
Me._IsSelectAllChecked = True
Dim cbx As CheckBox
cbx = DirectCast(sender, CheckBox)
Dim theDataGridView As DataGridView = cbx.Parent
For Each row As DataGridViewRow In theDataGridView.Rows
row.Cells(0).Value = cbx.Checked
Next
theDataGridView.EndEdit()
Me._IsSelectAllChecked = False
userdatagrid.Rows(i).DefaultCellStyle.BackColor = Color.Azure
Next
End Sub
Private Sub Contact_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cmd As New SqlCommand("select * from contacts", con)
Dim adapter As New SqlDataAdapter(cmd)
Dim table As New DataTable
adapter.Fill(table)
userdatagrid.DataSource = table
userdatagrid.Columns(0).Frozen=true
AddSelectAllCheckBox(userdatagrid)
userdatagrid.Columns(0).Width = 48
userdatagrid.Columns(1).Width = 33
Dim img As DataGridViewImageColumn
img = userdatagrid.Columns(1)
img.ImageLayout = DataGridViewImageCellLayout.Stretch
我后来尝试过：
Private Sub userdatagrid_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles userdatagrid.RowPrePaint
If e.RowIndex < 0 OrElse userdatagrid.Rows(e.RowIndex).IsNewRow Then Return
If Convert.ToInt32(userdatagrid.Rows(e.RowIndex).Cells(0).Value) > False Then
userdatagrid.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(250, 187, 187)
Else
userdatagrid.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Azure
End If
End Sub
P.S。我的dgvw有很多RGB颜色变化，我的意思是它色彩鲜艳（不知道它是否有帮助，但仍然包括在内）