+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تلوين خلفية خليه بالداتاجريدفيو (/showthread.php?tid=27856)
تلوين خلفية خليه بالداتاجريدفيو - allo5_800 - 10-12-18
السلام عليكم ورحمة الله وبركاته
انا لدي داتاجريد فيو فيه عدد من الاعمده ثلاثه اعمده اريد ان تكون خلفية الخليه بلون معين عند تكون القيمة مثلا تم الارسال اريد الخلفيه تكون خضراء وقيد الارسال تكون حمرا
هذا بالعمود الاول العمود الثاني تم الاستلام وقيد الاستلام والثالث تم التاكيد وقيد التاكيد
انا بالطبع استخدمت كون ولاكن غير مريح واحس انه ملخبط شوي
كود :
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 SubRE: تلوين خلفية خليه بالداتاجريدفيو - rmnr - 10-12-18
اختصارا
كود :
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