تلوين او تضليل بعض الخلايا في التقرير

[شامل2]

السلام عليكم

تقرير يظهر شيت التلاميذ ويضع دوائر مختلفة الحجم وملونه حول الدرجات الضعيفة

 

المطوب : كيف يمكن تلون داخل الدائرة؟

 

وضع دائرة باشكال مختلفة.rar

 

 

تم تعديل أغسطس 11, 2018 بواسطه شامل2

[أ / محمد صالح]

أضف هذين السطرين

Rpt.FillColor = RGB(255, 0, 0)      'backColor red.
Rpt.FillStyle = 0

بعد سطر إنشاء الدائرة الذي يبدأبـ

Rpt.Circle (mmm, ttt), nnn \ 3, vbRed,

وفقنا الله جميعا لكل ما يحب ويرضى

[شامل2]

الله يوفقكم اخينا العزيز

بارك الله بعملكم

[شامل2]

10 ساعات مضت, أ / محمد صالح said:

أضف هذين السطرين

Rpt.FillColor = RGB(255, 0, 0)      'backColor red.
Rpt.FillStyle = 0

بعد سطر إنشاء الدائرة الذي يبدأبـ

Rpt.Circle (mmm, ttt), nnn \ 3, vbRed,

وفقنا الله جميعا لكل ما يحب ويرضى

السلام عليكم

الكود يعمل بشكل جيد ولكنه لا يعمل مع الحقل الأول في التقرير

كما في الصورة

[أ / محمد صالح]

المشكلة في كود إنشاء الدائرة

جرب هذا الكود

Public Sub sbCrclInTxt(Rpt As Report, TxtCtrl As TextBox, TxtDegree As Integer)
    If TxtCtrl.Value <= TxtDegree Then
    Dim sngHCtr As Single, sngVCtr As Single, sngRadius As Single
    sngHCtr = TxtCtrl.Left + (TxtCtrl.Width \ 2)
    sngVCtr = TxtCtrl.Top + (TxtCtrl.Height \ 2)
    sngRadius = TxtCtrl.Width \ 4     ' Circle radius.
    Rpt.FillColor = RGB(255, 0, 0)   ' Background Color red.
    Rpt.FillStyle = 0                     ' Fill solid.
    Rpt.Circle (sngHCtr, sngVCtr), sngRadius, vbRed, , , 0.55
    End If
End Sub

ولتعديل شكل الدائرة

يمكن تعديل الرقم 4 الموجود في sngRadius

أو الرقم الأخير 0.55 بقيمة أقل من الواحد الصحيح

[شامل2]

10 ساعات مضت, أ / محمد صالح said:

المشكلة في كود إنشاء الدائرة

جرب هذا الكود

Public Sub sbCrclInTxt(Rpt As Report, TxtCtrl As TextBox, TxtDegree As Integer)
    If TxtCtrl.Value <= TxtDegree Then
    Dim sngHCtr As Single, sngVCtr As Single, sngRadius As Single
    sngHCtr = TxtCtrl.Left + (TxtCtrl.Width \ 2)
    sngVCtr = TxtCtrl.Top + (TxtCtrl.Height \ 2)
    sngRadius = TxtCtrl.Width \ 4     ' Circle radius.
    Rpt.FillColor = RGB(255, 0, 0)   ' Background Color red.
    Rpt.FillStyle = 0                     ' Fill solid.
    Rpt.Circle (sngHCtr, sngVCtr), sngRadius, vbRed, , , 0.55
    End If
End Sub

ولتعديل شكل الدائرة

يمكن تعديل الرقم 4 الموجود في sngRadius

أو الرقم الأخير 0.55 بقيمة أقل من الواحد الصحيح

السلام عليكم

بارك الله بعملك وجعله الله في ميزان حسناتك

تمت الإجابة بشكل واف وكافي