كيف أغير لون خلفية مربع نص من خيار في مربع قائمة

[HUSSIN]

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

يوجد نموذج بة مربع نص و مربع قائمة بة عدد من الحقول بأسماء الألوان الأحمر و

الأصفر والأزرق وغيرها ... أود عندما يختار المستخدم اسم اللون من مربع القائمة يتم

تغيير لون خلفية مربع النص بنفس اللون الذي اختارة المستخدم ، وكذلك تكون على

الأقل عشرة ألوان ...........

أرجو المساعدة وشكراً

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

هنالك موضوع موجود في المنتدى لتلوين السجلات حسب القيمة أعتقد أبحث عنه وحاول وأذا صعب عليك شئي فعقب على الموضوع

أخيك سهل احمد ( ابو نعيم )

[HUSSIN]

شكراً لك يا أخ سهل سوف أبحث عن الموضوع

[HUSSIN]

شكراً لك يا أخ سهل بعد البحث عن الموضوع بكلمة تلوين السجلات لم تظهر لي إلا نتيجتين ، موضوعي هذا والأخر ليس له أي علاقة بما أريد ،،،

وهو في هذا الرابط

http://www.officena.net/ib/index.php?showt...l=تلوين+السجلات

وشكراً لإهتمامك

[مصلح الحريصي]

إنشيء مربع تحرير وسرد وسمه مثلاً cbo1 وأضف إليه تسمية الألوان التي تريدها وأضف مربع النص وليكن مثلاً txt1 ثم في حدث " عند التغيير " لمربع التحرير أكتب الكود التالي :

    Select Case cbo1.ListIndex
    Case 0
        Me.txt1.BackColor = QBColor(0)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 1
        Me.txt1.BackColor = QBColor(1)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 2
        Me.txt1.BackColor = QBColor(2)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 3
        Me.txt1.BackColor = QBColor(3)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 4
        Me.txt1.BackColor = QBColor(4)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 5
        Me.txt1.BackColor = QBColor(5)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 6
        Me.txt1.BackColor = QBColor(6)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 7
        Me.txt1.BackColor = QBColor(7)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 8
        Me.txt1.BackColor = QBColor(8)
        Me.txt1.ForeColor = QBColor(15)
    
    Case 9
        Me.txt1.BackColor = QBColor(9)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 10
        Me.txt1.BackColor = QBColor(10)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 11
        Me.txt1.BackColor = QBColor(11)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 12
        Me.txt1.BackColor = QBColor(12)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 13
        Me.txt1.BackColor = QBColor(13)
        Me.txt1.ForeColor = QBColor(1)

    Case 14
        Me.txt1.BackColor = QBColor(14)
        Me.txt1.ForeColor = QBColor(1)
    
    Case 15
        Me.txt1.BackColor = QBColor(15)
        Me.txt1.ForeColor = QBColor(1)

    End Select

وسوف أعطيك أرقام الألوان حتى تكتبها في الشفرة 0 _ اسود 1_ ازرق 2_ أخضر 3_فوشيا 4_ أحمر 5_ برتقالي 6_ أصفر 7_ أبيض 8_ رمادي 9_ أزرق فاتح 10_ أخضر فاتح 11_ فوشيا فاتح 12_ أحمر فاتح 13_ برتقالي فاتح 14_ أصفر فاتح 15_ أبيض لامع لاحظ بأن السطر التالي :

 Me.txt1.BackColor = QBColor(15)

خاص برقم لون الخلفية لمربع النص والسطر التالي :

 Me.txt1.ForeColor = QBColor(1)

خاص برقم لون الخط في مربع النص

وإذا أردة أن يثبت اللون لمربع النص حتى يغيره المستخدم أجعل مصدر مربع التحرير والسرد جدول خاص بالألوان وضع الكود أيضاً في حدث عند " التحميل " للنموذج "

[HUSSIN]

السلام عليكم

شكراً لك يا أخ مصلح الحريصي ، وجعلة الله في موازين اعمالك