اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ali2017

الردود الموصى بها

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

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

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

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

 

 

اليكم المرفق 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

 

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information