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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] كيف امسح الاقواس في الريش بوكس (/showthread.php?tid=6776)

[تم الحل] كيف امسح الاقواس في الريش بوكس - ابو بدران - 30-10-12

السلام عليكم
لدي بيانات اعرضها في الرتش بوكس وبها اقواس
كيف امسح او الغي الاقواس داخل الرتش بوكس
اخوكم ابو بدران

[تم الحل] كيف امسح الاقواس في الريش بوكس - ناجي إبراهيم - 31-10-12

السلام عليكم...

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

نرجو الاستفادة و السلام.

[تم الحل] كيف امسح الاقواس في الريش بوكس - ALBRNS - 31-10-12

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

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

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

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

بالتوفيق

[تم الحل] كيف امسح الاقواس في الريش بوكس - ابو بدران - 31-10-12

جزاكم الله خير