تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يكون الكود الصحيح الخاص بالالوان
#1
Rainbow 
عندي 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


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#2

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

الي فهمته إنه لمن تطلع الكتابة في مربع نص رقم 8 يتغير لون كتابة نفس مربع النص حسب تصنيف الكلمة الموجوده فيه، جرب هذا
وحسب ما ذكرت أن Normal أسود وUnpaid أزرق وSick أحمر
لكن أنا ما فهمت إيش دور الليبل11
PHP كود :
Private Sub TextBox8_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 

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

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

PHP كود :
Private Sub TextBox8_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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  واشتغل كويس شكراً لك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 2 27 منذ 5 ساعة مضت
آخر رد: ابو روضة
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 795 أمس, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 91 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 188 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 49 11-09-17, 12:58 PM
آخر رد: 0theghost0
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 55 09-09-17, 10:44 PM
آخر رد: aliomar333
  [VB.NET] تصحيح الكود لو سمحتم 0theghost0 4 123 30-08-17, 12:06 PM
آخر رد: 0theghost0
  [سؤال] مشكلة مغلبانى جدا من فترة مع هذا الكود Do While ابو روضة 14 445 19-08-17, 01:31 AM
آخر رد: ابو روضة
  [سؤال] مالقيمة المناسبة لــ الثريد او المؤقت بحيث يكون مجموع الصور متناسقا مع مدة الملف الصو سعود 1 85 10-08-17, 10:48 PM
آخر رد: سعود
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي e-coder 1 84 09-08-17, 06:25 AM
آخر رد: e-coder

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم