منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟ (/showthread.php?tid=12978)



كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟ - Microformt - 17-08-15

الاخوه الكرام
 السلام عليكم ورحمة وبركاتة
 كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟
 نامل من الله المساعدة والله يحفظكم ويرعاكم


RE: كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟ - أبو عمر - 17-08-15

اسنخ الكود التالي
كود :
Sub colored()
With fox
For I = 1 To .Rows - 1
.Row = I
If (.Row Mod 2 = 0) Then
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = &HFF8080
Next
Else
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = vbWhite
Next

End If
Next


End With

End Sub

وفي اخر حدث للفورم لود استدعه
colored


RE: كيف اطبق طريقة الوان الموجده في الصوره المرفقه على برنامجي المرفق ؟؟ - Microformt - 18-08-15

(17-08-15, 11:37 PM)Lion_Ksa كتب : اسنخ الكود التالي
كود :
Sub colored()
With fox
For I = 1 To .Rows - 1
.Row = I
If (.Row Mod 2 = 0) Then
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = &HFF8080
Next
Else
For j = 0 To .Cols - 1
.Col = j
.CellBackColor = vbWhite
Next

End If
Next


End With

End Sub

وفي اخر حدث للفورم لود استدعه
colored
اخي العزيز
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم