03-04-19, 07:42 PM
03-04-19, 10:57 PM
هذا الكود يحذف ما قبل اخر 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 لمربع النص
With TextBox1
If .Lines.Count > 16 Then
.Text = .Text.Substring(.Text.IndexOf(vbCrLf) + Len(vbCrLf))
.SelectionStart = .Text.Length
End If
End With
نسيت ان اذكر ان تضع الكود في الحدث TextChenged لمربع النص
03-04-19, 11:22 PM
السلام عليكم ورحمة الله وبركاته
ما شاء الله اخي بدري سبقني ووضع الكود الذي يحدف السطر قبل الاخير
وانا بدوري قمت بانشاء مثال يمكن للمستخدم تحديد عدد الاسطر التي يريدها في مربع النص
وعند الكتابة اتوماتيكيا سوف يحذف السطر الاول ويتابع الكتابة وهكذا
يجب اولا وضع قيمة اكبر من 1 في numericupdown
واثناء الكتابة يجب ضغط مفتاح انتر ليتكون سطر جديد
04-04-19, 09:42 PM
الاخ بدري اشكرك من كل قلبي تستاهل ان ترفع رتبتبك بالمنتدى
والاخ ابراهيم ما قصرتوا جزاكم الله خير