منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغير لون Field بناء على قيمة معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : تغير لون Field بناء على قيمة معينة (/showthread.php?tid=37393)

تغير لون Field بناء على قيمة معينة - مصمم هاوي - 05-01-21

حياكم الله إخوتي الكرام وأساتذتي الأعزاء
وعذراً على طول الغياب بسبب إجراء عملية تركيب بلاتين لوالدتي - حفظها الله - وذلك أثر سقوطها وإصابتها بكسور شديدة في العظم المتصل بمنطقة الحوض
وقد تكللت العملية والحمد لله بالنجاح والتوفيق.
سائلاً المولى عز وجل أن يُطيل في عمرها ويُحسن عملها

وعذراً على السؤال المستعجل وهو بخصوص تقرير الأكتيف ريبورت

طريقة تعديل كود لون (Field2.Text) + (Field2.Text) (وهكذا) بناء على قيمة الــ (Field3.Text)

مثلاُ : لو كانت قيمة (Field3) تساوي أو أكبر من (40) وكذلك لونه أحمر
فإن لون (Field2) + (Field1) يكون أحمر

كود :
Private Sub Detail_Format()
If Field3.Text >= 40 Then
Field3.ForeColor = vbRed
ElseIf
Field1.ForeColor = vbRed
Field2.ForeColor = vbRed
End If
End Sub


RE: تغير لون Field بناء على قيمة معينة - 62531 - 05-01-21

كود :
Private Sub Detail_Format()
   If Val(ActiveReport1.Field3) >= 40 And ActiveReport1.Field3.ForeColor = vbRed Then
       ActiveReport1.Field1.ForeColor = vbRed
       ActiveReport1.Field2.ForeColor = vbRed
   End If
End Sub