01-01-23, 05:24 PM
كود :
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هذا كود يقوم بحذف اخر حرف عدله كما تريد