+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 (/showthread.php?tid=19369)
طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - haiderkh - 21-02-17
السلام عليكم اخوتي الكرام
لدي هذا البرنامج المصغر( المرفق ) وفية تقرير اكتيف ريبورت لطباعة نتائج الطلبة
ارغب في ان تكون درجة المجموع ( total ) والتي تظهر في التقرير باللون الاخضر اذا كانت تساوي 50 او اكبر وباللون الاحمر اذا كانت اصغر من 50
مع الشكر الجزيل لكم مقدما
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - sendbad100 - 21-02-17
وعليكم السلام السلام ورحمة الله وبركاته
اضف الكود التالي في الاكتيف
كود :
Private Sub Detail_AfterPrint()
If Val(Me.Field5.Text) < 50 Then
Me.Field5.BackColor = &H8080FF
Else
Me.Field5.BackColor = &H80FF80
End If
End SubRE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - haiderkh - 21-02-17
أشكرك كثيرا استاذ
sendbad100
جعله الله في ميزان حسناتك
جاري التجربة
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - haiderkh - 22-02-17
للأسف لم يعمل الكود لدي ولا اعرف هل الخطأ لدي في التصميم
حبَّذا مراجعة المثال استاذ sendbad100 وإضافة الكود وأكون شاكرا لحضرتك كثيرا
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - sendbad100 - 22-02-17
اولا تعديل اجراء الكود
PHP كود :
Private Sub Detail_BeforePrint()
If Val(Me.Field5.Text) < 50 Then
Me.Field5.BackColor = &H8080FF
Else
Me.Field5.BackColor = &H80FF80
End If
End Sub
ثم غير الخاصية BackStyle لل Field5 الى 1- DDBKNORMAL
كما في الصوره
تفضل اخي الكريم المثال في المرفقات
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - haiderkh - 22-02-17
شكرًا جزيلا استاذ sendbad100 بارك الله بك أتعبتك
نسأل الله ان يجزيك خيرا
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - sendbad100 - 22-02-17
العفوا
في الخدمة اخي
الله يكتب اجر الجميع
انشاء الله انه مضبوط
RE: طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 - haiderkh - 22-02-17
(22-02-17, 05:23 PM)sendbad100 كتب : العفوانعم مضبوط استاذي الكريم
في الخدمة اخي
الله يكتب اجر الجميع
انشاء الله انه مضبوط
ولكني غيرت backcolor الى forecolor
كي يظهر الرقم الملون وليس خلفية الرقم
شكرا جزيلا