تقييم الموضوع :
  • 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] يرجى التعديل على الكود dubai.eig 4 62 منذ 4 ساعة مضت
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 157 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 409 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 216 01-01-17, 10:15 PM
آخر رد: مساعدة
  اين اكتب هذا الكود anis_derna 3 140 28-12-16, 12:18 PM
آخر رد: thevirus
  تصحيح الكود الاتي CLARO 2 63 23-12-16, 02:12 PM
آخر رد: CLARO
  شرح الكود و الادوات المستخدمة anis_derna 1 88 20-12-16, 06:40 AM
آخر رد: silverlight
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 379 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد
  [كود] تصحيح خطئ في الكود عبدالرحمن المكاوي 1 92 12-12-16, 03:23 PM
آخر رد: amgad525

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


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