منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده

اذهب الى الأسفل

ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده Empty ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده

مُساهمة من طرف السنى الجمعة نوفمبر 02, 2018 2:56 pm

مثال بسيط يوضح كيفية عمل تبديل لالوان الصفوف فى شبكة البيانات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] 


ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده 214-alternar-color-de-filas


الاجراء التالي يقوم بانشاء لونين للصوف لشبكة البينات وتبديل اللون عند ادخال صف جديد

الكود:
Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
    Dim iRow            As Long
    Dim iCol            As Integer
    Dim lCurrentColor   As Long
    
    With objFlexgrid
  
        .Redraw = False
        .BackColor = lColor1
        
        For iRow = 1 To .Rows - 1 Step 2
      
            .Row = iRow
        
            For iCol = 0 To .Cols - 1
                .Col = iCol
                .CellBackColor = lColor2
            Next
        Next
    
        .Redraw = True
    End With
End Sub


يتم استخدام الوظيفة السابقة عن طريق الشفرة التالية 

الكود:
  Call pvSetColors(MSFlexGrid1, RGB(233, 233, 233), RGB(209, 222, 253))


المثال الثاني لتلوين أعمدة شبكة البيانات على النحو التالى :

ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده 214-alternar-color-de-columnas


الاجراء لذلك على النحو التالى :

الكود:


Private Sub SetColColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
    Dim iRow            As Long
    Dim iCol            As Integer
    Dim lCurrentColor  As Long
     
    lCurrentColor = lColor1
     
    With objFlexgrid
       
        .Redraw = False
        For iCol = 0 To .Cols - 1
            .Col = iCol
            If lCurrentColor = lColor1 Then
              lCurrentColor = lColor2
            Else
              lCurrentColor = lColor1
            End If
            For iRow = 1 To .Rows - 1
              .Row = iRow
              .CellBackColor = lCurrentColor
            Next
        Next
     
        .Redraw = True
    End With
End Sub


الاستخدام على النحو التالى :

الكود:
 Call SetColColors(MSFlexGrid1, RGB(233, 233, 233), RGB(209, 222, 253))

السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى