[DK-x]

مرحبا  
عندي مشروع و احد مهماته حذف السطر الاول من التيكست بوكس كل مره يكون فيها عدد الاسطر بالمجمل 16
كيف ممكن كتابة الكود الخاص    

[بدري]

هذا الكود يحذف ما قبل اخر 16 سطر من اسطر TextBox

With TextBox1
    If .Lines.Count > 16 Then
        .Text = .Text.Substring(.Text.IndexOf(vbCrLf) + Len(vbCrLf))
        .SelectionStart = .Text.Length
    End If
End With

---

نسيت ان اذكر ان تضع الكود في الحدث TextChenged لمربع النص

[ابراهيم ايبو]

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

ما شاء الله اخي بدري سبقني ووضع الكود الذي يحدف السطر قبل الاخير

وانا بدوري قمت بانشاء مثال يمكن للمستخدم تحديد عدد الاسطر التي يريدها في مربع النص

وعند الكتابة اتوماتيكيا سوف يحذف السطر الاول ويتابع الكتابة وهكذا

---

يجب اولا وضع قيمة اكبر من 1 في numericupdown 
واثناء الكتابة يجب ضغط مفتاح انتر ليتكون  سطر جديد

[DK-x]

الاخ بدري اشكرك من كل قلبي تستاهل ان ترفع رتبتبك بالمنتدى 

والاخ ابراهيم ما قصرتوا جزاكم الله خير