المشاركات : 31
المواضيع 0
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
السلام عليكم
لدي بيانات اعرضها في الرتش بوكس وبها اقواس
كيف امسح او الغي الاقواس داخل الرتش بوكس
اخوكم ابو بدران
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
كود :
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
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ