السلام عليكم
ممكن عكس هدا الكود بحيث يرجع بالماوس خطوة الى الخلف
TEXTBOX1.APPENDTEXT(SPASE(1))
كدلك هل يوجد كود يعمل عمل مفتاح SPACE عند النقر بالماوس داخل التكست بكس بمعنى النقر بالماوس = الظغط على مفتاح SPACE
وعليكم السلام ورحمة الله وبركاته
اذا كنت تقصد المسافة فقط ، فهذا الكود :
كود :
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)
جزاك الله كل خير على سرعة الرد ولاكن لم ينجح الكود معى
المطلوب هو
لو وضعة هدا الكود TEXTBOX1.APPENDTEXT(SPASE(3)) فى حدث CLICK للتكسة بكس
فسينشؤ 3 مسافات فى التكسة بكس
اريد كود يرج لى مسافة واحدة بحيت يصبح مسافتان فقط فى التكست بكس
كود :
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
هذا كود يقوم بحذف اخر حرف عدله كما تريد
(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
هذا كود يقوم بحذف اخر حرف عدله كما تريد
جزاك الله خيرا ورحم الله والديك