منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عندي استفسار عن كود زر 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

بيمسح اخر حرف (ده طبيعي ) ولكن لما احدد حرف في نص الكلام بيمسح اخر حرف بردو ولما احط علامه المؤشر في اي حته بردو يمسح اخر حرف
ارجو تيفيدوني وتردو عليا

تفضل

كود :

     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

(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

شكرا اخي الكود نجح
بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ziad.mg95

LoveVb

ziad.mg95