[حسن الجلب]

السلام عليكم ورحمه الله وبركاته
عايز كود يحذف اخر حرف أو كلمه من متغير من نوع نصي واخر لل richtextxbox واخر لل  text box وليس عن طريق ال replace

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

السلام عليكم ورحمة الله وبركاته
احي الكريم اليك هذه الاكواد
لحذف أخر حرف من textBox او RitchTextBox

كود :

       ' حذف أخر حرف لكل من التكست بوكس والريتش بوكس
   
   TextBox1.Text = TextBox1.Text.Trim.Substring(0, TextBox1.TextLength - 2)
   

   RichTextBox1.Text = RichTextBox1.Text.Trim.Substring(0, RichTextBox1.TextLength - 2)

لحذف أخر كلمة من الريتش تكست بوكس ... او التكست بوكس استبدل اسم الكونترول

كود :

' حذف أخر كلمة من  الريتش بوكس
       Dim str() As String = RichTextBox1.Text.Trim.Split(" ")
       RichTextBox1.Clear()
       For i As Integer = 0 To str.Length - 2
           RichTextBox1.Text &= str(i) & " "
       Next

[حسن الجلب]

شكرا لحضرتك لكن لو تكرمت ممكن تشرحلي الاكواد ده لاني. انت من عادتي اني لازم اعرف الحاجه حتي لو مش هستعملها

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

السلام عليكم اخي حسن
الكود الاول بشقيه للتكست بوكس وللرتش تكتبوكس 
هو اننا نقول ان التكست بوكس يساوي نفسه مع حذف الفراغات من الجنبين الايمن والايسر ثم اخذ الحروف من الصفر وحتى طول النص -2 لان الاندكس يبأ من الصفر
اي اننا سنأخذ طول النص منقوصا منه حرف
اما الكود الثاني المتعلق بحذف الكلمة
ايضا نحذف الفراغات من الجانبين ثم نعمل مصفوفة منالكلمات من النص الموجود مقطعا بدلالة الفراغ بين الكلمات
ثم نفرغ الريتش تكست بوكس
ثم نعمل جملة فور على طول المصفوفة -2 بسبب ايضا ان الاندكس يبدأ من الصفر وبذلك نستثني العنصر الاخير وفي كل لفة نضع عنصرا الى الريتش تكست بوكس + فراغ
هذا ببساطة شرح الاكواد

[حسن الجلب]

شكرا لحضرتك لو سمحت اخر حاجه انا عاوز اتواصل معاك خاص علي الفيس مثلاً