+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+---- قسم : قسم اسئلة التقارير والطباعة للغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=73)
+---- الموضوع : تلوين صف بالتقرير (/showthread.php?tid=7425)
تلوين صف بالتقرير - Ahmed Abdulla - 18-12-12
السلام عليكم كيف يمكنني تلوين الصفوف الفردية بلون أخضر مثلا والصفوف الزوجية بلون أخر بتقرير الأكتيف ريبورت ولكم مني جزيل الشكر
تلوين صف بالتقرير - abdouhai - 18-12-12
السلام عليكم
أخي أفدم لك المثال المرفق
أنصحك بأن يكون عندك أرشيف في المنزل بحيث تنسخ كل ما تطلبه من أمثلة على cd أو dvd عندك
وتعود إليه عند الحاجة لأن المدة تطول ولا تبقى بعض الأشياء على النت و تجد صعوبة في إيجادها.
تلوين صف بالتقرير - Ahmed Abdulla - 19-12-12
أخي الكريم جزاك الله خيرا علي تعبك معي ولكني أريد تلوين الصفوف بتقرير الأكتيف ريبورت وليس فليكس جريد
تلوين صف بالتقرير - hsab - 21-06-13
Ahmed Abdulla كتب :أخي الكريم جزاك الله خيرا علي تعبك معي ولكني أريد تلوين الصفوف بتقرير الأكتيف ريبورت وليس فليكس جريد
كما يلى:
[HTML]Private Sub Detail_Format()
On Error Resume Next
Static iRow As Integer
iRow = iRow + 1
txtid.Text = Str(iRow)
If Val(iRow Mod 2) = 1 Then
txtid.BackColor = &HFFFFFF
txt1.BackColor = &HFFFFFF
txt2.BackColor = &HFFFFFF
Else
txtid.BackColor = &H80000013
txt1.BackColor = &H80000013
txt2.BackColor = &H80000013
End If
If txt1 = 0 Then txt1 = "-"
If txt2 = 0 Then txt2 = "-"
End Sub[/HTML]
تلوين صف بالتقرير - تركي الحلواني - 21-06-13
جرب هذا المثال