تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تلوين الخلية بناءً على معيار العمر
#1
السلام عليكم....
عندي قاعدة اكسس وفي داتا جريد فيو وهذه الداتا بها اسماء واعمار
مثل الاسم..... العمر
       اسامه..... 20
احتاج كود لو حقل العمر اكبر من 17 سنة يقوم بتعليم الحقل وحده فقط باللون  الاحمر ولو امكن حقل العمر فقط يبقي تمام.
وشكرا لكم.
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub GV_CellFormatting(ByVal sender As ObjectByVal e As DataGridViewCellFormattingEventArgs)
 
   For Each drview As DataGridViewRow In GV.Rows
        Dim ColNo 
As Integer 2

        While 
(ColNo <= 2)

 
           If Not (drview.Cells(2).Value Is NothingThen

                If 
(Convert.ToInt32(drview.Cells(2).Value) > 17Then
                    drview
.Cells(2).Style.BackColor Color.Red
                ElseIf 
(Convert.ToInt32(drview.Cells(2).Value) <= 17Then
                    drview
.Cells(2).Style.BackColor Color.White
                End 
If
 
           End If

 
           ColNo += 1
        End 
While
 
   Next
End Sub 
الرد
#3
شكرا شكرا شكر لك اخي العزيز.
الرد
تم الشكر بواسطة:
#4
ولكن اخي هل ممكن ميظللش العمود كلة يعني الرقم فقط اللي اكبر من 17 يظهر بالاحمر.


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#5
(14-04-19, 07:03 PM)اسامه الهرماوي كتب : ولكن اخي هل ممكن ميظللش العمود كلة يعني الرقم فقط اللي اكبر من 17 يظهر بالاحمر.

وضح اكثر اخي لم افهم عليك.
الرد
#6
For u = 0 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(u).Cells(2).Value.ToString.Contains > 17 Then
                DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red
            End If
        Next
الرد
#7
اخواني المقصود كالاتي العمر 18 الي النهاية يظهر علي العمر فقط علامة مثل الصورة التالية.


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
السلام عليكم اخي الكريم
عذرا على التأخير في الرد
اليك الكود التالي حيث يلون الرقم الموجود في العمود رقم 2 (اي ثالث عمود) اذا كان اكبر من 17
وان اردت تلوين الخلية فاستبدل كلمة Forcolor بـ Backcolor
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells(2).Value > 17 Then

               DataGridView1.Rows(i).Cells(2).Style.ForeColor = Color.Red
           End If
       Next
   End Sub
الرد
تم الشكر بواسطة: اسامه الهرماوي , حريف برمجة , elgokr , elgokr
#9
السلام عليكم...
هذا هو الكود للإفادة.
كود :
 Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
   
       If Me.DataGridView1.Rows(e.RowIndex).Cells("العمر").Value > 18 Then
           Me.DataGridView1.Rows(e.RowIndex).Cells("العمر").Style.BackColor = Color.Red
       End If
   End Sub
الرد
تم الشكر بواسطة: ابراهيم ايبو , elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم