هذا المثال يلزمه بعض التعديل من الأخوة المبدعين
من ناحية تلوين الخط ليكون أحمر أو أي لون يتم اختياره
ولهم الحرية في تطوير البرنامج لتعم الفائدة للجميع
ولكم تحياتي
*تقارير* طريقة وضع دائرة على رقم معين في التقرير
مغلق
مثال جميل وشرح أجمل
جزاك الله خيراً
كذا الشرح والا بلاش لو كل واحد عمل كود
وشرحه معه كان يا سلام بصير اتحدى
هذا شسمه رئيس شركة مايكروسوفت:D:D
لا هنت يا شوق البنت
جمييييييييييييييييييييل
مثال وشرح وكله على بعضه حلو
أشرف خليل
الأخ الكريم المبدع (*) (*) (*) (*) (*) : فهد الدوسرى
جزاكم الله خيرا كثيييييرا علىالأمثلة اللى بتيجى فى وقتها(gift).. والله وكان سؤالى التالى كيف تجعل لون خط الدائرة أحمر? وكنت سباقا بالسؤال أيضا...
زادك الله علما فأنت كريم متواضع به .. وجعل الله عونك لإخوانك فىميزان أعمالك. اللهم آمين
السلام عليكم
الله يبارك فيك
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
لم اعرف كيفية وضعت الدائره فقد بحثت في الحدث والخصائص لكني لم اعرف نرجو الافاده
وعذرا
لنفترض ان لديك مربع نص في التقرير اسمه الدرجه
وهو موجود في المثال السابق .
ويكون هذا المربع اي الدرجه في مقطع تفصيل التقرير
ظلل هذا المقطع ستلون لك باللون الاسود .
ثم انقر على خصائص مقطع التفصيل ستجد تبويب حدث
انقر عليه ستجد من ضمن صفوف حدث صف باسم عند الطباعة
انقر على الخانه الفارغه امامه واختر اجراء حدث وستظهر بجانبها
ثلاثة نقاط صغيرة اضغط عليها بالفأره . وستفتح لك مباشره مكان
كتابة الكود ضع هذا الكود فيه بالنسخ واللصق ثم اغلق
محرر الاكواد واحفظ العمل وانظر الى تقريريك ويمكن تغيير ما تريد بالكود
لان الكود معمل ان يكون دائرة على الارقام الاقل من 49 درجه ويمكن
تغييرها حب ما تشاء .
هذا هو الكود :
Dim www As Control Dim qqq As Integer Dim rrr As Single, ppp As Single Dim kkk As Integer, nnn As Integer Dim mmm As Single, ttt As Single rrr = 0.29 ' لتغيير حجم الدائرة غير في الأرقام مثلاً 0.39 أو 0.49 أو 0.59 ppp = 89 ' لتغيير الحجم غير في الأرقام مثلاً 100 أو 200 أو 300 kkk = Me!الدرجة.Height * 1.1 ' التغيير في هذه الأرقام يغير في الدائرة nnn = Me!الدرجة.Width * 1.04 ' التغيير في هذه الأرقام يغير في الدائرة ttt = (Me!الدرجة.Top + Me!الدرجة.Height) 4 + ppp ' التغيير في هذه الأرقام يغير في الدائرة Set www = Me!الدرجة ' اسم الحقل الذي يوضع عليه الدائرة If Not IsNull(www) Then qqq = (www <= 49) ' سوف يتم وضع الدائرة إذا كان الحقل المسمى (الدرجة) يحتوي على الرقم 49 فأقل If qqq Then mmm = www.Left + (www.Width 2) ' تغيير الرقم يؤثر في مكان الدائر يسار أو يمين Me.Circle (mmm, ttt), nnn 3, , , , rrr ' التغيير في الرقم يؤثر في الدائرة من ناحية الاتساع End If End If
وانصحك ان تنسخ الكود من المثال مباشره لان هذا يمكن فيه زياده او نقصان
ارجو ان يكون الشرح مفهوم عذرا هذا ما استطعت ان اشرحه:D
هذا الموضوع مغلق.