+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] استفسار عن كود Back Space (/showthread.php?tid=16739)
استفسار عن كود Back Space - ziad.mg95 - 08-08-16
السلام عليكم ورحمه الله وبركاته
عندي استفسار عن كود زر Back Space .............
المشروع بتاعي عباره عن فكره Notepad طبعا فكره قديمه بس انا قولت اعدل شويه
صوره البرنامج في المرفقات
المشكله هي ان لما ادوس علي الزر الانا عملتو بالكود ده
كود :
Try
If Len(RichTextBox1.Text) > 0 Then
RichTextBox1.Text = Mid(RichTextBox1.Text, 1, Len(RichTextBox1.Text) - 1)
RichTextBox1.Focus()
End If
Catch
End Tryبيمسح اخر حرف (ده طبيعي ) ولكن لما احدد حرف في نص الكلام بيمسح اخر حرف بردو ولما احط علامه المؤشر في اي حته بردو يمسح اخر حرف
ارجو تيفيدوني وتردو عليا
RE: استفسار عن كود Back Space - LoveVb - 09-08-16
تفضل
كود :
If RichTextBox1.TextLength <> 0 Then
Dim I As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Remove(If(I = 0, RichTextBox1.TextLength - 1, I - 1), 1)
RichTextBox1.Focus()
End If End IfRE: استفسار عن كود Back Space - ziad.mg95 - 09-08-16
(09-08-16, 05:17 PM)LoveVb كتب : تفضلشكرا اخي الكود نجح
كود :
If RichTextBox1.TextLength <> 0 Then
Dim I As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Remove(If(I = 0, RichTextBox1.TextLength - 1, I - 1), 1)
RichTextBox1.Focus()
End If End If
بارك الله فيك