تقييم الموضوع :
  • 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  واشتغل كويس شكراً لك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في كتابة الكود تظهر علامة غريبة وتستبدل حرف بحرف ali.alfoly 5 82 منذ 8 ساعة مضت
آخر رد: ali.alfoly
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 14 190 اليوم, 12:30 AM
آخر رد: LoveVb
  [VB.NET] يرجى التعديل على هذا الكود dubai.eig 1 44 أمس, 12:18 PM
آخر رد: dubai.eig
  ممكن شرح هذا الكود؟ rafaag777 1 105 08-12-16, 11:33 PM
آخر رد: الماجيك مسعد
  [VB.NET] هل يمكن الاستغناء عن التايمر واستخدام شئ بديل يكون افضل ؟ !! الماجيك مسعد 7 113 08-12-16, 06:58 AM
آخر رد: silverlight
  حل مشكلة الكود الاتي - سهل- CLARO 3 100 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 71 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 119 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 209 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 112 10-11-16, 06:25 PM
آخر رد: أبو عمر

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


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