السادة الكرام
السلام عليكم ورحمة وبركاته
كيف يمكن تطبيق الذي في الصورة المرفقه بخصو الوان على برنامجي المرفق؟؟
والله يحفظكم ويرعاكم ويجعل الجنة داركم الاخير
كيف يمكن تطبيق الذي في الصورة المرفقه بخصو الوان على برنامجي المرفق؟؟
السلام عليكم...
نقلت الكود الأصلي من الحدث Form_Resize إلى الحدث Form_Load و أضفت إليه كود التلوين:
Private Sub Form_Load()
Dim ARow As Long
' الكود الأصلي
MSFlexGrid1.Rows = 6
MSFlexGrid1.Cols = 6
MSFlexGrid1.Clear
MSFlexGrid1.ColAlignment(0) = 3
MSFlexGrid1.ColAlignment(1) = 3
MSFlexGrid1.ColAlignment(2) = 3
MSFlexGrid1.ColAlignment(3) = 3
MSFlexGrid1.ColAlignment(4) = 3
MSFlexGrid1.ColAlignment(5) = 3
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.ColWidth(1) = 1800
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1500
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.ColWidth(5) = 1500
MSFlexGrid1.TextMatrix(0, 0) = "التاريخ"
MSFlexGrid1.TextMatrix(0, 1) = "رقم الحساب"
MSFlexGrid1.TextMatrix(0, 2) = "اسم العميل"
MSFlexGrid1.TextMatrix(0, 3) = "رقم الهوية الوطنية"
MSFlexGrid1.TextMatrix(0, 4) = "تاريخ الإصدار"
MSFlexGrid1.TextMatrix(0, 5) = "مصدرها"
' كود التلوين
MSFlexGrid1.FillStyle = flexFillRepeat
For ARow = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1 Step 2
MSFlexGrid1.Row = ARow
MSFlexGrid1.RowSel = ARow
MSFlexGrid1.Col = MSFlexGrid1.FixedCols
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellBackColor = vbYellow
Next ARow
MSFlexGrid1.FillStyle = flexFillSingle
MSFlexGrid1.Row = MSFlexGrid1.FixedRows
MSFlexGrid1.Col = MSFlexGrid1.FixedCols
End Sub* بما أن الكود يعتمد على حلقة للمرور على كل الصفوف فربما يحدث بعض التأخير في بداية تشغيل البرنامج إذا كان عدد الصفوف كبيراً جداً (بالآلاف).
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
najy_zl كتب:السلام عليكم...
نقلت الكود الأصلي من الحدث Form_Resize إلى الحدث Form_Load و أضفت إليه كود التلوين:
Private Sub Form_Load() Dim ARow As Long ' الكود الأصلي MSFlexGrid1.Rows = 6 MSFlexGrid1.Cols = 6 MSFlexGrid1.Clear MSFlexGrid1.ColAlignment(0) = 3 MSFlexGrid1.ColAlignment(1) = 3 MSFlexGrid1.ColAlignment(2) = 3 MSFlexGrid1.ColAlignment(3) = 3 MSFlexGrid1.ColAlignment(4) = 3 MSFlexGrid1.ColAlignment(5) = 3 MSFlexGrid1.ColWidth(0) = 1500 MSFlexGrid1.ColWidth(1) = 1800 MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.ColWidth(3) = 1500 MSFlexGrid1.ColWidth(4) = 1500 MSFlexGrid1.ColWidth(5) = 1500 MSFlexGrid1.TextMatrix(0, 0) = "التاريخ" MSFlexGrid1.TextMatrix(0, 1) = "رقم الحساب" MSFlexGrid1.TextMatrix(0, 2) = "اسم العميل" MSFlexGrid1.TextMatrix(0, 3) = "رقم الهوية الوطنية" MSFlexGrid1.TextMatrix(0, 4) = "تاريخ الإصدار" MSFlexGrid1.TextMatrix(0, 5) = "مصدرها" ' كود التلوين MSFlexGrid1.FillStyle = flexFillRepeat For ARow = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1 Step 2 MSFlexGrid1.Row = ARow MSFlexGrid1.RowSel = ARow MSFlexGrid1.Col = MSFlexGrid1.FixedCols MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 MSFlexGrid1.CellBackColor = vbYellow Next ARow MSFlexGrid1.FillStyle = flexFillSingle MSFlexGrid1.Row = MSFlexGrid1.FixedRows MSFlexGrid1.Col = MSFlexGrid1.FixedCols End Sub* بما أن الكود يعتمد على حلقة للمرور على كل الصفوف فربما يحدث بعض التأخير في بداية تشغيل البرنامج إذا كان عدد الصفوف كبيراً جداً (بالآلاف).
نرجو الاستفادة و السلام.
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
استاذي العزيز
السلام عليكم ورحمة وبركاتة
احب ان اقدم لك جزيل الشكر والتقدير على ما تقدمة من دعم فني والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام والتقدير