منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مؤشر الماوس الى الخلف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مؤشر الماوس الى الخلف (/showthread.php?tid=44655)

مؤشر الماوس الى الخلف - AMAZ1972AMAZ - 01-01-23

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

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

RE: مؤشر الماوس الى الخلف - Taha Okla - 01-01-23

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

اذا كنت تقصد المسافة فقط ، فهذا الكود :
كود :
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)


RE: مؤشر الماوس الى الخلف - AMAZ1972AMAZ - 01-01-23

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

RE: مؤشر الماوس الى الخلف - aljzazy - 01-01-23

كود :
 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

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

RE: مؤشر الماوس الى الخلف - AMAZ1972AMAZ - 03-01-23

(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

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

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