[ابو بدران]

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

[ناجي إبراهيم]

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

كود :

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]

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

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

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

PHP كود :

Private Sub RichTextBox1_Change()
RichTextBox1.Text = Replace$(RichTextBox1.Text, "(", "")
RichTextBox1.Text = Replace$(RichTextBox1.Text, ")", "")
End Sub 


بالتوفيق

[ابو بدران]

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