منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

انا لدي داتاجريد فيو فيه عدد من الاعمده ثلاثه اعمده اريد ان تكون خلفية الخليه بلون معين عند تكون القيمة مثلا تم الارسال اريد الخلفيه تكون خضراء وقيد الارسال تكون حمرا
هذا بالعمود الاول العمود الثاني تم الاستلام وقيد الاستلام والثالث تم التاكيد وقيد التاكيد

انا بالطبع استخدمت كون ولاكن غير مريح واحس انه ملخبط شوي

كود :

ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _

  Handles DGV_send.CellFormatting

        On Error Resume Next

        ' Check if this is the right column.

        If DGV_send.Columns(e.ColumnIndex).Name = "note1" Then

            ' Check if this is the right value.

            If e.Value = "تم الارسال" Then

                e.CellStyle.ForeColor = Color.Black

                e.CellStyle.BackColor = Color.Green

لذا ارجو مساعدتي

تم حل المشكله وللمعلوميه تم عبر الكود التالي واتمنى ان يفيد اي احد اخر

كود :

  Public Sub color_note1()

        For i As Integer = 0 To Me.DGV_send.Rows.Count - 1

            If Me.DGV_send.Rows(i).Cells("note1").Value = "تم الارسال" Then

                Me.DGV_send.Rows(i).Cells("note1").Style.BackColor = Color.Green

            End If

        Next

    End Sub

    Public Sub color_note2()

        For i As Integer = 0 To Me.DGV_send.Rows.Count - 1

            If Me.DGV_send.Rows(i).Cells("note2").Value = "قيد التسليم" Then

                Me.DGV_send.Rows(i).Cells("note2").Style.BackColor = Color.Red

            ElseIf Me.DGV_send.Rows(i).Cells("note2").Value = "تم التسليم" Then

            Me.DGV_send.Rows(i).Cells("note2").Style.BackColor = Color.Green

            End If

        Next

    End Sub

    Public Sub color_note3()

        For i As Integer = 0 To Me.DGV_send.Rows.Count - 1

            If Me.DGV_send.Rows(i).Cells("note3").Value = "قيد التاكيد" Then

                Me.DGV_send.Rows(i).Cells("note3").Style.BackColor = Color.Red

            ElseIf Me.DGV_send.Rows(i).Cells("note3").Value = "تم التاكيد" Then

                Me.DGV_send.Rows(i).Cells("note3").Style.BackColor = Color.Green

            End If

        Next

    End Sub

اختصارا

كود :

Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

    If e.Value = "تم التسليم" Or e.Value = "تم الارسال" Or e.Value = "تم التاكيد" Then

        e.CellStyle.BackColor = Color.Green

    ElseIf e.Value = "قيد التسليم" Or e.Value = "قيد التاكيد" Then

        e.CellStyle.BackColor = Color.Red

    End If

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

allo5_800

rmnr