الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مربعات النص كيف تومض ؟

مغلق
بدأه فهد الدوسري في 16 فبراير 2002 · 2 رد · 582 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة أعضاء المنتدى

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

عندي برنامج مكون من جدول واحد فقط باسم (جدول) وبداخله الحقول التالية

(خ1) – (خ2) – (خ3) – (خ4) وجميعها من نوع (رقم )

وعندي نموذج باسم ( نموذج1) مصدره الجدول المسمى ( جدول ) يحتوي على جميع حقول الجدول إضافة إلى مربعات نص باسم ( ن1) – (ن2) – (ن3) – (ن4) ليس لها مصدر

عندما أقوم بتشغيل هذا النموذج يقوم مربع النص (ن1) بعمل إشارات أو (وميض) باللون الأحمر وذلك بناء على الدالة التي وضعتها في خصائص النموذج ( عند التحميل ) وكذلك ( عند عداد الوقت

ما أريده منكم مشكورين هو : أريد مربع النص المسمى (ن1) أن يقوم بالوميض (الإشارات) هذه إذا كان الرقم الموجود في حقل (ج1) هو الرقم (1) .. وإذا كان غير الرقم (1) فلا يومض مربع النص (ن1) .. بمعنى أن أي حقل من الحقول الأربعة ( ج1 –ج2 –ج3 –ج4) أي منها يحتوي على الرقم (1) فيقوم مربع النص المقابل له في الرقم بعمل الإشارات – الوميض- مثلاً (حقل ج1 يتبعه مربع النص ن1 ) ( حقل ج2 يتبعه مربع النص ن2) .. و هكذا البقية 3 و 4 أرجو أن يكون الشرح كافياً ومرفق لكم نسخه من هذا البرنامج للإيضاح .

http://mypage.ayna.com/kou_kuo/2000.zip

ولكم جزيل الشكر والتقدير .. وفي انتظار الرد منكم

وتقبلوا تحياتي سعودي31

#2

امسح مالديك في حدث التايمر وضع :

 If خ1 = 1 Then ن1.BackColor = IIf(ن1.BackColor = vbRed, _
    vbWhite, vbRed) Else ن1.BackColor = vbWhite
    If خ2 = 1 Then ن2.BackColor = IIf(ن2.BackColor = vbRed, _
    vbWhite, vbRed) Else ن2.BackColor = vbWhite
    If خ3 = 1 Then ن3.BackColor = IIf(ن3.BackColor = vbRed, _
    vbWhite, vbRed) Else ن3.BackColor = vbWhite
    If خ4 = 1 Then ن4.BackColor = IIf(ن4.BackColor = vbRed, _
    vbWhite, vbRed) Else ن4.BackColor = vbWhite

ولك تحياتي

#3

الله يعطيك العافية أستاذي أبو حمود

وشكرا للجميع

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…