تقييم الموضوع :
  • 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] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 70 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 316 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
  هل يكون فيجوال بيسك 6 أقوى احيانا؟ abudawoodd 9 174 30-01-17, 01:19 AM
آخر رد: abudawoodd
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 56 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 93 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 161 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 67 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  فك التشفير الخاص ببرنامج Zoner aftfm 0 73 20-01-17, 09:04 PM
آخر رد: aftfm
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 103 18-01-17, 05:25 PM
آخر رد: dubai.eig

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


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