30-10-12, 05:27 PM
31-10-12, 01:18 AM
السلام عليكم...
نرجو الاستفادة و السلام.
كود :
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
نرجو الاستفادة و السلام.
31-10-12, 04:31 AM
وعليكم السلام ورحمة الله وبركاته
بعد الاذن من اخي ناجي
جرب الكود التالي
بالتوفيق
بعد الاذن من اخي ناجي
جرب الكود التالي
PHP كود :
Private Sub RichTextBox1_Change()
RichTextBox1.Text = Replace$(RichTextBox1.Text, "(", "")
RichTextBox1.Text = Replace$(RichTextBox1.Text, ")", "")
End Sub
بالتوفيق
31-10-12, 08:11 AM
جزاكم الله خير