0

我有一个 CellValueChanged 事件，我将任何更新的记录添加到审计表中，并且我想在此事件中将单元格边框更改为红色以指示单元格已更新：

Private Sub PL_DGV_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles PL_DGV.CellValueChanged
        If isLoaded Then
            Dim grid_row As DataRow = Me.DataSet.PL.Rows(e.RowIndex)

            Dim Column1 = Variable1
            Dim Column2 = grid_row.Item("Column2").ToString().Trim()
            Dim Column3 = grid_row.Item("Column3").ToString().Trim()

            Dim Updated_column_name = Me.DataSet.PL.Columns(e.ColumnIndex).ColumnName
            Dim Updated_value = grid_row.Item(Updated_column_name).ToString()

            Dim row As DataRow = Me.DataSet.PL_ChangesLog.NewRow()
            row("Column1") = Column1
            row("Column2") = Column2
            row("Column3") = Column3
            row("Column4") = Updated_column_name
            row("Column5") = Updated_value
            row("timestamp") = DateTime.Now()
            row("username") = Environment.UserName()

            Me.DataSet.PL_ChangesLog.Rows.Add(row)

            Dim new_style = New DataGridViewCellStyle

            unsaved_changes = True
        End If
End Sub

此外，一旦保存更改，这些单元格将需要再次删除它们的边框以恢复默认值。这将通过 Button 或 Form 正在关闭并且用户选择“是”时发生：

Private Sub PLC_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If unsaved_changes Then
            Dim result = MsgBox("There are unsaved changes within the grid - would you like to save changes?", MessageBoxButtons.YesNoCancel)
            If result = DialogResult.Yes Then

            ElseIf result = DialogResult.Cancel Then
                e.Cancel = True
            End If
        End If
End Sub

是否可以在 CellValueChanged 事件中完成，还是应该根据更新的单元格索引作为单独的函数完成？

4

2 回答 2

1

请参阅此链接如何在 DataGridView 单元格被编辑时在其周围绘制边框？

或者你可以试试这个但需要改进代码

 Dim rec As New Drawing.Rectangle

            rec = DataGridView1.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, False)

            DataGridView1.CreateGraphics.DrawRectangle(New Pen(Color.Red, 2), CInt(rec.X), CInt(rec.Y), CInt(rec.Width - 2), CInt(rec.Height - 2))

            DataGridView1.EditingControl.BackColor = Color.Red
于 2021-07-26T10:00:02.973 回答
0

我还没有弄清楚如何正确地在单元格周围绘制一个矩形，但是在与要求的提供者进一步讨论之后，将在其中编辑了单元格的行设置为粗体字体。

使用以下代码实现它：

    Dim DGV_row As DataGridViewRow = PL_DGV.Rows(e.RowIndex)
    Dim new_style As New DataGridViewCellStyle With {
        .Font = New System.Drawing.Font("Segoe UI", 9, FontStyle.Bold)
    }
    DGV_row.DefaultCellStyle = new_style
于 2021-07-27T11:41:08.603 回答