[elgokr]

الامر ابسط ما يكون اخى الفاضل

للاسف رابط تحميل السورس المدرج بالاعلى لا يعمل 

حتى اقوم بتعديل على الكود واعادة ارفاق المشروع مجدداً

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

لكن خليني ابسط الامور لديك اكثر

لنقول انك فى الكود تستخدم طريقة For

وليكن الكود على هذا الشكل

كود :

       For ii As Integer = 0 To 10

       Next

الان الحد الاقصى لعدد الاسطر هو 10 كم فى الصورة وبداية العد هو 0

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

كود :

1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - ؟؟

حيث ان من 0 : 10 هو 11 رقم ولاتمام تقليل ذلك

فكل ما عليك فعله هو جعل الكود على هذا النحو

كود :

       For ii As Integer = 0 To 10 - 1

       Next

طيب لو كان الكود المستخدم فعلياً يحتوى على -1 فهنا ستحتاج الى ان تجعله -2 حسب قيمة الحدث التى تشير الى رقم 10

الامر الاخر الذى يمكنك فعله هو من خلال القيم لعدد الاسطر المرسلة للحفظ فى ملف Notepad

فالامر يمكنك قبل ارساله ان تعفى عدد سطر من القيمة او عمل استبدال السطر الفارغ بلا شئ

وهنا حتى يتم شرحه سيعتمد على طريقة استخدامك للكود حتى لا يتم التشتيت او جعلك فى متاهة

فى انتظار اعادة رفع المشروع ويفضل ان ترفقه هنا بالمرفقات بدلاً من مراكز الرفع

تحياتى لك

وتمنياتى لك التوفيق