منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

الشرح هنا وتمت التجربة بنجاح.

(22-07-19, 05:41 PM)سعود كتب : [ -> ]الشرح هنا وتمت التجربة بنجاح.

للاسف اطلعت عليه من قبل اخ سعود ولم افهم الكود اطلاقا حتي استعمله

---

(22-07-19, 05:41 PM)سعود كتب : [ -> ]الشرح هنا وتمت التجربة بنجاح.

للاسف اطلعت عليه من قبل اخ سعود ولم افهم الكود اطلاقا حتي استعمله

موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


الجواب من ايدك يحلي اخ سعود

---

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


كذالك الاخطاء تستمر من فضلك مثال بسيط اخ سعود  انا اسف لتعبك

(22-07-19, 06:16 PM)bakriano30@yahoo.com كتب : [ -> ]

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


الجواب من ايدك يحلي اخ سعود

---

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


كذالك الاخطاء تستمر من فضلك مثال بسيط اخ سعود  انا اسف لتعبك

تفضل اخ كريم

(22-07-19, 06:34 PM)Basil Abdallah كتب : [ -> ]

(22-07-19, 06:16 PM)bakriano30@yahoo.com كتب : [ -> ]

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


الجواب من ايدك يحلي اخ سعود

---

(22-07-19, 05:58 PM)سعود كتب : [ -> ]موضوع سؤال زي موضوعنا والجواب تحت زي جوابي هذا

PHP كود :

Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
    Dim textEnd As Integer = rtb.TextLength
    Dim index As Integer = 0
    Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
    Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
    While (index < lastIndex)
      rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
      rtb.SelectionFont = fnt
      rtb.SelectionLength = searchtext.Length
      rtb.SelectionColor = Color.Red
      rtb.SelectionBackColor = Color.Cyan
      index = rtb.Text.IndexOf(searchtext, index) + 1
    End While
  End Sub

'============USAGE============

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'this method with search for text "boy" in RichTextBox2, change the textcolor to red and back color to cyan as indicated in the screenshot below 
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub 


كذالك الاخطاء تستمر من فضلك مثال بسيط اخ سعود  انا اسف لتعبك

تفضل اخ كريم

PHP كود :

Dim txt As String
        txt = RichTextBox1.Find(TextBox1.Text)
        RichTextBox1.SelectionBackColor = Color.Red 


بارك الله فيك هذا هو المطلوب

بعد اذن جيمع الزملاء بارك الله فيهم ... اعتقد ان هذا الكود اسهم و اوضح ومختصر ايضا 
 

بهذه الطريقة