كيف اتحكم في الالوان عن طريق الكود في اداة Text Box

[al hafez]

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

ياشباب اريد خدمة كيف لي تلوين ما يكتب في Text Box يعني

مثل إذا وضعت كلمة (الله) تطلع في لون احمر

و إذا كتبة كلمة (محمد) تطلع في اللون الاخضر

و إذا كتبة (عثمان رضي الله عنه) يطلع في اللون الاصفر

و باقي الاسماء في غير الوان انا احددها

[DJamal]

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

الحل اخي الكريم هو التالي

private sub textbox1_textchanged(byval sender as system.object, byval e as system.eventargs) handles textbox1.textchanged
if textbox1.text = "الله" then
textbox1.forecolor = color.red

elseif textbox1.text = "محمد" then
textbox1.forecolor = color.green

elseif textbox1.text = "عثمان رضي الله عنه" then
textbox1.forecolor = color.yellow
end if
end sub

[أنس محمود]

المشاركة الأصلية بواسطة al hafez

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

ياشباب اريد خدمة كيف لي تلوين ما يكتب في Text Box يعني

مثل إذا وضعت كلمة (الله) تطلع في لون احمر

و إذا كتبة كلمة (محمد) تطلع في اللون الاخضر

و إذا كتبة (عثمان رضي الله عنه) يطلع في اللون الاصفر

و باقي الاسماء في غير الوان انا احددها

في هذه الحالة يجب استخدام RichTextBox بدلا من TextBox ،

في الحدث RichTextBox1_TextChanged أكتب :-

الرمز PHP:

        Dim s As Integer = Me.RichTextBox1.SelectionStart
        Dim s_e As Integer = Me.RichTextBox1.SelectionLength
        Me.RichTextBox1.SelectAll()
        Me.RichTextBox1.SelectionColor = Color.Black
        Me.RichTextBox1.Select(0, 0)
        Dim aa As Integer = Me.RichTextBox1.Text.Split("الله").Length
        For d As Integer = 0 To aa
            If Not Me.RichTextBox1.Find("الله", Me.RichTextBox1.SelectionStart + Me.RichTextBox1.SelectionLength, RichTextBoxFinds.WholeWord) = -1 Then
                Me.RichTextBox1.SelectionColor = Color.Red
            End If
        Next
        Me.RichTextBox1.Select(0, 0)
        Dim aa1 As Integer = Me.RichTextBox1.Text.Split("عثمان رضي الله عنه").Length
        For d As Integer = 0 To aa1
            If Not Me.RichTextBox1.Find("عثمان رضي الله عنه", Me.RichTextBox1.SelectionStart + Me.RichTextBox1.SelectionLength, RichTextBoxFinds.WholeWord) = -1 Then
                Me.RichTextBox1.SelectionColor = Color.Yellow
            End If
        Next
        Me.RichTextBox1.Select(0, 0)
        Dim aa2 As Integer = Me.RichTextBox1.Text.Split("محمد").Length
        For d As Integer = 0 To aa2
            If Not Me.RichTextBox1.Find("محمد", Me.RichTextBox1.SelectionStart + Me.RichTextBox1.SelectionLength, RichTextBoxFinds.WholeWord) = -1 Then
                Me.RichTextBox1.SelectionColor = Color.Green
            End If
        Next
        Me.RichTextBox1.Select(s, s_e) 


ثانية اعملك المثال

[أنس محمود]

عفوا اخي لم اتمكن من رفع المثال

يمكنك تجربة الكود

ثم اخباري بالنتيجة