ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده
صفحة 1 من اصل 1 • شاطر
ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده
مثال بسيط يوضح كيفية عمل تبديل لالوان الصفوف فى شبكة البيانات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الاجراء التالي يقوم بانشاء لونين للصوف لشبكة البينات وتبديل اللون عند ادخال صف جديد
- الكود:
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))
المثال الثاني لتلوين أعمدة شبكة البيانات على النحو التالى :
الاجراء لذلك على النحو التالى :
- الكود:
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
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد