[VB_Coder]

السلام عليكم

- إستخدم أداة RichTextBox حيث أنك لاتستطيع تلوين كلمة واحدة من النص في أداة النص العادية TextBox , إستخدم هذا الكود :

كود :

Private Sub Command1_Click()
        SetColorWords RichTextBox1, "vb6", vbRed
      End Sub

      Private Function SetColorWords(rtb As RichTextBox, _
                                  sFindString As String, _
                                  lColor As Long) _
                                  As Integer

        Dim lFoundPos As Long
                                      Dim lFindLength As Long
        Dim lOriginalSelStart As Long
        Dim lOriginalSelLength As Long
        Dim iMatchCount As Integer

      lOriginalSelStart = rtb.SelStart
        lOriginalSelLength = rtb.SelLength

        lFindLength = Len(sFindString)

         lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)

        While lFoundPos > 0

          iMatchCount = iMatchCount + 1

rtb.SelStart = lFoundPos
         rtb.SelLength = lFindLength
          rtb.SelColor = lColor

          lFoundPos = rtb.Find(sFindString, _
            lFoundPos + lFindLength, , rtfNoHighlight)
       Wend
      
        rtb.SelStart = lOriginalSelStart
        rtb.SelLength = lOriginalSelLength

        SetColorWords = iMatchCount  

End Function

- تحياتي .