تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] كيف امسح الاقواس في الريش بوكس
#1
السلام عليكم
لدي بيانات اعرضها في الرتش بوكس وبها اقواس
كيف امسح او الغي الاقواس داخل الرتش بوكس
اخوكم ابو بدران
}}}}
تم الشكر بواسطة:
#2
السلام عليكم...

كود :
Private Sub Command2_Click()
    Dim Idx1 As Long
    Dim Idx2 As Long
    Dim AStart As Long
    
    AStart = 0
    Do While AStart < Len(RichTextBox1.Text)
        Idx1 = RichTextBox1.Find("(", AStart)
        If Idx1 = -1 Then
            Exit Do
        Else
            Idx2 = RichTextBox1.Find(")", Idx1 + 1)
            If Idx2 = -1 Then
                Exit Do
            Else
                ' من المهم أن نمسح القوس الثاني قبل الأول
                RichTextBox1.SelStart = Idx2
                RichTextBox1.SelLength = 1
                RichTextBox1.SelText = ""
                
                RichTextBox1.SelStart = Idx1
                RichTextBox1.SelLength = 1
                RichTextBox1.SelText = ""
                
                AStart = Idx2 + 1
            End If
        End If
    Loop
    RichTextBox1.SelStart = 0
    RichTextBox1.SelLength = 0
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
}}}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

بعد الاذن من اخي ناجي

جرب الكود التالي

PHP كود :
Private Sub RichTextBox1_Change()
RichTextBox1.Text Replace$(RichTextBox1.Text"(""")
RichTextBox1.Text Replace$(RichTextBox1.Text")""")
End Sub 

بالتوفيق
}}}}
تم الشكر بواسطة:
#4
جزاكم الله خير
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إجراء عملية القرعة عبد العزيز البسكري 4 105 منذ 5 ساعة مضت
آخر رد: عبد العزيز البسكري
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 72 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] استخراج قيم عمود فى تكست بوكس ABO.BANCIANA 2 278 21-02-16, 08:58 PM
آخر رد: ahmedabdelaliem
  [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected k_medhat 6 411 04-02-16, 04:07 AM
آخر رد: gadr
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 286 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 13 958 06-01-16, 11:07 AM
آخر رد: Ashraf Elafify
  [تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ karika 8 1,018 27-12-15, 03:56 AM
آخر رد: awidan76
  [تم الحل] القسم الصحيح من عدد asto 2 409 26-12-15, 02:37 PM
آخر رد: awidan76
  [سؤال] أضافة سطر جديد فى التيكست بوكس copy77 4 565 27-11-15, 06:36 AM
آخر رد: copy77
  اريد كود ملئ كومبو بوكس من الدتا قريد wolf1120 1 503 22-08-13, 12:24 PM
آخر رد: Uzerat

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


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