[جوري]

(31-10-16, 09:14 AM)myalsailamy كتب : شيء جميل لما الواحد  يضع سؤال ما يستسلم  يحاول و يحاول  الى ان يجد ضالته  ،، و الاجمل لما يضع الحل الذي وصل اليه

همسه :  
انت بالطريق الصحيح في البرمجه و حل مشاكلك بنفسك ، ناقصك فقط خبره لتعرف الكلمات المفتاحيه التي يجب عليك انت تكتبها في قوقل لتجد اجاباتك و انت بدأت في هذا المشوار ، و ان شاء الله بعد سنين ستتذكر كلامي هذا ، مشكلة اي باحث عن اجابه هو عدم تقسيم السؤال الذي يبحث عنه بسبب عدم امتلاكه  الخبره او الكسل (و هذي بداية فشل المبرمج الجديد  ، و بالمناسبه هذا النوع لا يستمر بالبرمجه بعد التخرج) ، بمعنى انه يسأل لكي يحصل على الاجابه كامله ، و هذا خطأ ، مهارات البحث عن المشاكل البرمجيه هو ان تجزأ  بحثك وهو كما فعلت في موضوعك بنجاح  ، أولا بحثت كيف تزيد طول الصورة ، بعدها كيف تكتب نص ، و بعدها لو كان النص عربي كيف تكتبه من اليمين الى اليسار ،و بعدها كيف  ترسم اطار حول الصوره  ، بعدها  كيف تغير شكل الاطار اما خط واحد او خطين بالاضافه الى تغيير لونه  ...الخ  

تحياتي لك

وسام علي صدري  - انار الله لك الدنيا وزادك من علمه 
وادخل البهجه علي صدرك -وسقاك من حوض نبيه  الكريم - واظلك تحت عرشه 

والله - لقد قرأت ردك الكريم - وكلما انتهيت احببت قرائته مرة اخري وهذا ما يحدث لي في كل مره

تدخل البهجه الي صدري بفضل الله وحده وكنت سببا - يزيدني ثقة في ان ما اقضيه من وقت في البرمجه لا يضيع هباء

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

"أستاذي واخي الكريم "محمد يحيى" تقبل فائق احترامي

ولك جزيل الشكر بعد الله

---

(31-10-16, 02:08 PM)ممدوح كتب : وعليكم السلام ورحمة الله وبركاته

بارك الله فيك وفي أخينا محمد لثناءه وتوجيهاته

رأيت كود الدالة AddBorder ورأيته فقط لعمل إطار حول الصورة فتجبت لطوله واستخدامه حلقات For
المسألة أبسط من ذلك باستخدام gr.Clear جربي هذا الكود

كود :

Public Function AddBorderX(ByVal bm As Bitmap, ByVal borderColor As System.Drawing.Color, ByVal borderWidthInPixels As Integer) As Bitmap
   Dim newBitmap As New Bitmap(bm.Width + (borderWidthInPixels * 2), bm.Height + (borderWidthInPixels * 2))
   Dim gr As System.Drawing.Graphics = Graphics.FromImage(newBitmap)
   gr.Clear(borderColor)
   gr.DrawImage(bm, borderWidthInPixels, borderWidthInPixels, bm.Width, bm.Height)
   Return newBitmap
End Function

وبارك الله فيك  , اخي ممدوح 
سلمت اناملك الذكيه - لقد فهمته فعدلته - فاصبح بسيطا -يسهل فهمه 
وقد جربته وقام بنفس الوظيفه بالفعل 
فشكرا جزيلا لك