Windows 窗体控件变为灰色覆盖

Question

我在 vb.net 中创建了一个 winform 应用程序，它包含一个父容器和其他子窗体。当其中一个包含具有某些单元格格式的数据网格视图的子窗体时，加载其他控件时变为灰色覆盖。

注意：gridview 是使用数据库中的数据创建的，颜色是根据单元格中的值应用的。使用 cellformating 方法改变颜色。我试过双缓冲..但它没有帮助。红色圆圈为标签，绿色为按钮。

找到下面的单元格格式代码：

  Private Sub dataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dataGridView1.CellFormatting
    Try
        Dim i As Integer
        For i = 0 To dataGridView1.RowCount
            If (i = (dataGridView1.RowCount)) Then
                Exit For
            Else
                Dim dt As DateTime = DateTime.Parse(dataGridView1.Rows(i).Cells(6).Value.ToString())
                dt = dt.AddHours(12)
                Dim ts As TimeSpan = dt.Subtract(DateTime.Now)
                Dim s As String = dataGridView1.Rows(i).Cells(7).Value.ToString()
                If s = "Ready to Collect" Then
                    dataGridView1.Rows(i).Cells(7).Style.BackColor = Color.LimeGreen
                    dataGridView1.Rows(i).Cells(8).Value = "-----"
                ElseIf s = "Completed" Then
                    dataGridView1.Rows(i).Cells(7).Style.BackColor = Color.GreenYellow
                    dataGridView1.Rows(i).Cells(8).Value = "-----"
                ElseIf s = "Out of Stock" Then
                    dataGridView1.Rows(i).Cells(7).Style.BackColor = Color.Red
                    dataGridView1.Rows(i).Cells(8).Value = "-----"
                ElseIf s = "Sent" Then
                    dataGridView1.Rows(i).Cells(7).Style.BackColor = Color.OrangeRed
                    If ts.CompareTo(TimeSpan.Zero) < 0 Then
                        dataGridView1.Rows(i).Cells(8).Value = "Process Immediately"
                        dataGridView1.Rows(i).Cells(8).Style.BackColor = Color.OrangeRed
                    Else
                        dataGridView1.Rows(i).Cells(8).Value = String.Format("{0:D2}:{1:D2}", ts.Hours, ts.Minutes)
                    End If
                ElseIf s = "Cancelled" Then
                    dataGridView1.Rows(i).Cells(7).Style.BackColor = Color.White
                    dataGridView1.Rows(i).Cells(8).Value = "-----"
                End If
            End If
        Next

    Catch ex As Exception
        System.Diagnostics.Trace.TraceError(ex.Message)
    End Try

Answer 1

检查DoEvents。也许这对你有帮助。