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

السلام عليكم ورحمة الله وبركاته
احي الكريم اليك هذه الاكواد
لحذف أخر حرف من 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