هذا الكود يحذف ما قبل اخر 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
واثناء الكتابة يجب ضغط مفتاح انتر ليتكون سطر جديد
الاخ بدري اشكرك من كل قلبي تستاهل ان ترفع رتبتبك بالمنتدى
والاخ ابراهيم ما قصرتوا جزاكم الله خير 