[محمد مسافر]

عندي 200 موظف عندي في في البوتون في مشروعي اسمة state والتاكس بوكس بيكون ثلاة خيارات Normal ,Unpaid ,Sick اريد لكل موظف في التاكي بوكس اذا طلعت الكتابة Sick  تطلع بالاحمر لكل موظف يطلع في بيانتة كذة تلقائياً    ، اما Normal يكون اسود طبيعي   ، اما unpaid   تطلع باللون  الازرق   اتمنى تكون الفكرة وصلت.


وموضح لكم بالصور

وهذاء هو الكود 

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

        If State = "Normal" Then

            TextBox1.ForeColor = Color.Red

        ElseIf

            If Label11 = "Unpaid" Then

                TextBox1.ForeColor = Color.Blue

        ElseIf

                If Label11 = "Sick" Then

                    TextBox1.ForeColor = Color.Beige

                End If

    End Sub

End Class

[الوليد ☺]

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

الي فهمته إنه لمن تطلع الكتابة في مربع نص رقم 8 يتغير لون كتابة نفس مربع النص حسب تصنيف الكلمة الموجوده فيه، جرب هذا
وحسب ما ذكرت أن Normal أسود وUnpaid أزرق وSick أحمر
لكن أنا ما فهمت إيش دور الليبل11

PHP كود :

Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
    Select Case sender.Text

        Case "Normal"
            sender.ForeColor = Color.Black

        Case "Unpaid"
            sender.ForeColor = Color.Blue

        Case "Sick"
            sender.ForeColor = Color.Red

    End Select
End Sub 


[محمد مسافر]

(07-11-14, 07:57 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

الي فهمته إنه لمن تطلع الكتابة في مربع نص رقم 8 يتغير لون كتابة نفس مربع النص حسب تصنيف الكلمة الموجوده فيه، جرب هذا
وحسب ما ذكرت أن Normal أسود وUnpaid أزرق وSick أحمر
لكن أنا ما فهمت إيش دور  الليبل11

PHP كود :

Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
    Select Case sender.Text

        Case "Normal"
            sender.ForeColor = Color.Black

        Case "Unpaid"
            sender.ForeColor = Color.Blue

        Case "Sick"
            sender.ForeColor = Color.Red

    End Select
End Sub 


عفواً لم اكن اقصد الليبل كنت اقصد التاكس بوكس 8  واشتغل كويس شكراً لك