اريد التحكم في دائرة حول رقم (سمك خط الدائرة)

[ali2017]

السلام عليكم ورحمة الله وبركاته

الاخوة الخبراء    الكرام

اريد التحكم في سمك الخط في الدائرة الموضوعة حول الرقم

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

 

 

اليكم المرفق 

فكرة_وضع_دائرة_على_رقم.rar

[ابوخليل]

وعليكم السلام 

اليك التعديل على الوحدة النمطية 

ايضا قمت ببعض التصرف والتعديل على مسميات المتغيرات ، حيث المسمى الموجود في المثال لا يعين على الفهم

Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Integer)
    Dim ctrl As Control
    Dim Degr As Double
    Dim sr_y As Single, sr_x As Single
    Dim Hei As Integer, Wid As Integer
    Dim lft_wid As Single, top_hei As Single
    'تستطيع التغيير في حجم الدائرة من خلال الارقام ادناه
    sr_y = 0.9
    sr_x = 200
    Hei = TxtCtrl.Height * 1.9
    Wid = TxtCtrl.Width * 1.09
    top_hei = (TxtCtrl.Top + TxtCtrl.Height) \ 2 + sr_x
    Set ctrl = TxtCtrl ' اسم الحقل الذي يوضع عليه الدائرة
    If Not IsNull(ctrl) Then
    Degr = (ctrl <= TxtDegree) ' سوف يتم وضع الدائرة إذا كان الحقل المسمى (الدرجة) يحتوي على الرقم 49 فأقل
    If Degr Then
    Rpt.DrawWidth = 24
    lft_wid = ctrl.Left + (ctrl.Width \ 2) ' تغيير الرقم يؤثر في مكان الدائر يسار أو يمين
    Rpt.Circle (lft_wid, top_hei), Wid \ 2, vbRed, , , sr_y ' التغيير في الرقم يؤثر في الدائرة من ناحية الاتساع
    End If
    End If
End Sub

Rpt.DrawWidth = 24  الرقم في هذا السطر المسؤول عن سمك محيط الدائرة

فكرة_وضع_دائرة_على_رقمUP.rar

[ali2017]

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

جاري التحميل والتجربة

 

ابو خليل بارك الله فيك تمت التجربة بنجاح   لله الحمد والشكر

يوجد مشكلة صغيرة

الحد الادنى للدرجة مثلا   20      اريد انا اضع  19.9  مثلا   

 

لا يقبلها   ويجبرني ان اكتب رقم صحيح      (19)

[ابوخليل]

التغيير يكون هنا :

Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Double)

 الكلمة في آخر الجملة  Double  اي ان المتغير رقمي مزدوج بدلا من  Integer  عدد صحيح طويل

ايضا تم التعديل في تنسيق حقل الدرجة  في التقرير  كي يظهر الكسر  .. انظر المثال

وضع_دائرة_على_رقمUP2.rar