تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] استفسار عن كود Back Space
#1
السلام عليكم ورحمه الله وبركاته 

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

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


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
تفضل


كود :
     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
#3
(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
شكرا اخي الكود نجح 
بارك الله فيك
الرد }}}}
تم الشكر بواسطة: LoveVb


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي dubai.eig 2 39 أمس, 10:22 AM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص عمل زر Next previous dubai.eig 7 124 15-10-17, 11:11 PM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 47 12-10-17, 09:07 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 154 10-10-17, 07:03 PM
آخر رد: dubai.eig
  [سؤال] استفسار محمد سعد مدني 0 43 03-10-17, 10:28 AM
آخر رد: محمد سعد مدني
  استفسار على موضوع grouping mo93 2 56 30-09-17, 04:22 AM
آخر رد: mo93
  استفسار بخصوص الصيغة bidaya 2 100 26-09-17, 05:25 PM
آخر رد: wale90
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 102 11-09-17, 05:29 PM
آخر رد: سعود الشامان
Information [VB.NET] استفسار عن اسم اداة مفتاح القبائلي 2 66 08-09-17, 04:32 PM
آخر رد: مفتاح القبائلي
  استفسار حول اظهار البرنامج زيد زينوبي 11 441 26-08-17, 04:49 PM
آخر رد: زيد زينوبي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم