[AMAZ1972AMAZ]

السلام عليكم
ممكن عكس هدا الكود بحيث يرجع بالماوس خطوة الى الخلف
TEXTBOX1.APPENDTEXT(SPASE(1))

كدلك هل يوجد كود يعمل عمل مفتاح SPACE عند النقر بالماوس داخل التكست بكس بمعنى النقر بالماوس = الظغط على مفتاح SPACE

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

اذا كنت تقصد المسافة فقط ، فهذا الكود :

كود :

If Strings.Right(TextBox1.Text, 1) = " " Then
           TextBox1.Text = Strings.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
           TextBox1.Focus()
           TextBox1.SelectionStart = Len(TextBox1.Text)

       End If

وإذا كنت تقصد التراجع بشكل عام ، فهذا الكود :

كود :

TextBox1.Text = Strings.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
TextBox1.Focus()
TextBox1.SelectionStart = Len(TextBox1.Text)

[AMAZ1972AMAZ]

جزاك الله كل خير على سرعة الرد ولاكن لم ينجح الكود معى
المطلوب هو
لو وضعة هدا الكود TEXTBOX1.APPENDTEXT(SPASE(3)) فى حدث CLICK للتكسة بكس
فسينشؤ 3 مسافات فى التكسة بكس
اريد كود يرج لى مسافة واحدة بحيت يصبح مسافتان فقط فى التكست بكس

[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

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

[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

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

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