[AMAZ1972AMAZ]

(01-01-23, 05:24 PM)aljzazy كتب :

كود :

 If TextBox1.Text < " " Then
           TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1 + 1)
       Else
           TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
       End If

هذا كود يقوم بحذف اخر حرف عدله كما تريد

جزاك الله خيرا ورحم الله والديك