jo_2010 قام بنشر الخميس at 04:57 قام بنشر الخميس at 04:57 السادة الخبراء الافاضل هل بالإمكان عمل فلاشر فى مربع نص فى نموذج فرعى مستمر فى حدث عند الحالي بحيث يحدث الفلاشر اذا كانت قيمة مربع نص اخر فى نفس النموذج تساوى ٥ واذا كانت لاتساوى ه تكون النص ثابت ولا يعمل فلاشر خالص الشكر
ابو جودي قام بنشر الخميس at 05:19 قام بنشر الخميس at 05:19 اتفضل يا سيدى كود الوحده النمطيه Public Sub FlashTextBox(txtBox As TextBox, condition As Boolean, Optional color1 As Long = vbYellow, Optional color2 As Long = vbRed) ' تعريف متغير للتحكم في الوميض Static isFlashing As Boolean If condition Then ' إذا تحقق الشرط (القيمة = 5)، يتم الوميض بين اللونين If isFlashing Then txtBox.BackColor = color1 ' اللون الأول (الأصفر افتراضيًا) Else txtBox.BackColor = color2 ' اللون الثاني (الأحمر افتراضيًا) End If isFlashing = Not isFlashing ' إعادة تشغيل المؤقت لاستمرار الوميض Application.Echo True Else ' إذا لم يتحقق الشرط، يظل النص ثابتًا بلون افتراضي txtBox.BackColor = vbWhite ' اللون الافتراضي End If End Sub كود الاستدعاء داخل النموذج Private Sub Form_Current() ' استدعاء الدالة العامة للوميض ' txtValue هو اسم مربع النص الذي يحتوي على القيمة (مثل 5) ' txtFlash هو اسم مربع النص الذي سيمضي FlashTextBox Me.txtFlash, (Me.txtValue = "5"), vbYellow, vbRed End Sub Private Sub Form_Timer() ' استدعاء الدالة العامة مرة أخرى لتحديث الوميض FlashTextBox Me.txtFlash, (Me.txtValue = "5"), vbYellow, vbRed End Sub يمكن تغيير الالوان كما تريد مثلا مثل Private Sub Form_Current() ' استدعاء الدالة العامة للوميض ' txtValue هو اسم مربع النص الذي يحتوي على القيمة (مثل 5) ' txtFlash هو اسم مربع النص الذي سيمضي FlashTextBox Me.txtFlash, (Me.txtValue = "5"), vbGreen, vbBlue End Sub Private Sub Form_Timer() ' استدعاء الدالة العامة مرة أخرى لتحديث الوميض FlashTextBox Me.txtFlash, (Me.txtValue = "5"), vbGreen, vbBlue End Sub او FlashTextBox Me.txtFlash, (Me.txtValue = "5") او FlashTextBox Me.txtFlash, (Me.txtValue = "5"), RGB(0, 255, 0), RGB(0, 0, 255) طبعا مع ضبط سرعة عداد الوقت كما يناسب رغباتك يا افندم طبعا انا خليتك تمرر القيمه مع الاستدعاء للمرونه علشان تنفع مع اى قيم كمان وميض (1).accdb
ابو جودي قام بنشر الخميس at 05:53 قام بنشر الخميس at 05:53 رائع جدا جدا الحل السابق فى ابسط صوره الحل التالى اكثر تقدما المميزات تعداد للالوان يمكن اضافة الالوان التى تريدها مستقبلا تعداد للخصائص يمكن اضافة الخصائص التى تريدها " خلفية مربع النص , او لون الخط المستخدم " كود الوحده النمطيه Option Compare Database Option Explicit Public Enum FlashColors FlashWhite = 16777215 ' الأبيض - White (vbWhite) FlashBlack = 0 ' الأسود - Black (vbBlack) FlashRed = 255 ' الأحمر - Red (vbRed) FlashGreen = 65280 ' الأخضر - Green (vbGreen) FlashBlue = 16711680 ' الأزرق - Blue (vbBlue) FlashYellow = 65535 ' الأصفر - Yellow (vbYellow) FlashMagenta = 16711935 ' الماجنتا - Magenta (vbMagenta) FlashCyan = 16776960 ' السماوي - Cyan (vbCyan) FlashOrange = 42495 ' البرتقالي - Orange (RGB: 255, 165, 0) FlashPurple = 8388736 ' البنفسجي - Purple (RGB: 128, 0, 128) FlashPink = 13353215 ' الوردي - Pink (RGB: 255, 192, 203) FlashLime = 65280 ' الليموني - Lime (RGB: 0, 255, 0) FlashTeal = 32896 ' البترولي - Teal (RGB: 0, 128, 128) FlashViolet = 15631086 ' الفيوليت - Violet (RGB: 238, 130, 238) FlashBrown = 2763429 ' البني - Brown (RGB: 165, 42, 42) FlashGold = 55295 ' الذهبي - Gold (RGB: 255, 215, 0) FlashSilver = 12632256 ' الفضي - Silver (RGB: 192, 192, 192) FlashGray = 8421504 ' الرمادي - Gray (RGB: 128, 128, 128) FlashDarkRed = 139 ' الأحمر الداكن - Dark Red (RGB: 139, 0, 0) FlashDarkGreen = 25600 ' الأخضر الداكن - Dark Green (RGB: 0, 100, 0) FlashDarkBlue = 9109504 ' الأزرق الداكن - Dark Blue (RGB: 0, 0, 139) FlashOlive = 32896 ' الزيتوني - Olive (RGB: 128, 128, 0) FlashMaroon = 128 ' المارون - Maroon (RGB: 128, 0, 0) FlashNavy = 8388608 ' الكحلي - Navy (RGB: 0, 0, 128) FlashTurquoise = 13757312 ' التركواز - Turquoise (RGB: 64, 224, 208) FlashIndigo = 8519755 ' النيلي - Indigo (RGB: 75, 0, 130) FlashCoral = 5275647 ' المرجاني - Coral (RGB: 255, 127, 80) FlashSalmon = 7504122 ' السلموني - Salmon (RGB: 250, 128, 114) FlashBeige = 14480885 ' البيج - Beige (RGB: 245, 245, 220) FlashLavender = 16443110 ' الخزامى - Lavender (RGB: 230, 230, 250) End Enum ' تعداد لتحديد نوع الوميض: لون النص أو لون الخلفية Public Enum flashType FlashForeColor = 0 ' الوميض على لون النص - ForeColor FlashBackColor = 1 ' الوميض على لون الخلفية - BackColor End Enum ' دالة لجعل مربع النص يومض بلونين محددين بناءً على شرط معين ' txtBox: مربع النص الذي سيتم تطبيق الوميض عليه ' condition: الشرط الذي يحدد ما إذا كان الوميض سيتم تفعيله أم لا ' color1: اللون الأول للوميض (اختياري، الافتراضي هو FlashYellow) ' color2: اللون الثاني للوميض (اختياري، الافتراضي هو FlashRed) ' flashType: نوع الوميض (لون النص أو الخلفية، اختياري، الافتراضي هو FlashForeColor) Public Sub FlashTextBox(txtBox As TextBox, condition As Boolean, Optional color1 As FlashColors = FlashYellow, Optional color2 As FlashColors = FlashRed, Optional flashType As flashType = FlashForeColor) ' متغير ثابت لتتبع حالة الوميض (يتغير بين True وFalse) Static isFlashing As Boolean ' التحقق من تحقق الشرط If condition Then ' تحديد ما إذا كان الوميض سيطبق على لون النص أو الخلفية بناءً على flashType If flashType = FlashForeColor Then ' الوميض على لون النص If isFlashing Then txtBox.ForeColor = color1 ' تعيين اللون الأول للنص Else txtBox.ForeColor = color2 ' تعيين اللون الثاني للنص End If Else ' الوميض على لون الخلفية If isFlashing Then txtBox.BackColor = color1 ' تعيين اللون الأول للخلفية Else txtBox.BackColor = color2 ' تعيين اللون الثاني للخلفية End If End If ' عكس حالة الوميض للتبديل في المرة القادمة isFlashing = Not isFlashing ' تحديث الشاشة لعرض التغيير فوراً Application.Echo True Else ' إذا لم يتحقق الشرط، إعادة الإعدادات إلى الافتراضية If flashType = FlashForeColor Then txtBox.ForeColor = FlashBlack ' لون النص الأسود كافتراضي Else txtBox.BackColor = FlashWhite ' لون الخلفية الأبيض كافتراضي End If End If End Sub الاستدعاء ' استدعاء الدالة العامة للوميض ' txtValue هو اسم مربع النص الذي يحتوي على القيمة (مثل 5) ' txtFlash هو اسم مربع النص الذي سيمضي FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashGold, FlashBlue ------------------------------------------------------- أو لتغير خلفية مربع النص FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashBackColor ------------------------------------------------------- أو لتغير لون الخط وهو الافتراضى كما بالكود FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite أو FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashForeColor
jo_2010 قام بنشر الخميس at 09:23 الكاتب قام بنشر الخميس at 09:23 (معدل) استاذى الفاضل ومعلمى ابو جودي بعد التحية اقف عاجز امام ابدعاتك التى لا تنتهى ومعرفتى المتواضعة بالاكسيس امام علمك الغزيز تجعلنى غيرقادر على التطبيق على برنامج الاصلى لذلك ارسلت نسخة مصغرة من البرنامج للتطبيق عليها لو تكرمت اريد فى النموذج الفرعى المستمر Lab_Patient ادا تحقق الشرط If me.Total_Out <> 0 and (isnull (me.External_lab) or me.External_lab="") then يحدث الفلاشر واذا لم يتحقق الشرط لايحدث شى كيف استفيد من كود الالوان الكثيرة اللى حضرتك ارسلتة تقبل الله صيامك وجعل مساعدتك لنا فى ميزان حساناتك اكرر اعتذارى للاطالة LAB.accdb تم تعديل الخميس at 09:39 بواسطه jo_2010
ابو جودي قام بنشر الجمعة at 02:13 قام بنشر الجمعة at 02:13 21 ساعات مضت, jo_2010 said: فى نموذج فرعى مستمر اسف لم انتبه لوجود كلمة مستمر وللاسف حسب فهمى لا يمكن عمل ذلك مع النماذج المستمرة والله اعلم
Foksh قام بنشر الجمعة at 08:04 قام بنشر الجمعة at 08:04 للأسف ، تمت الإجابة التي لا مفر منها مسبقاً في هذه المشاركة .. ولكن يبدو أن صديقنا لم يقتنع بها 😇.
jo_2010 قام بنشر الجمعة at 12:33 الكاتب قام بنشر الجمعة at 12:33 الخبراء الافاضل عيد فطر سعيد وكل عام وانتم بالف خير وسعادة الخبير الفاضل Foksh قمت بعمل فكرة حضرتك كتنسيق شرطى لكنى منت اود عمل فلاشر لينتبة المستخدم لادخال معمل معين لك خالص الشكر لذلك تركت الموضوع مفتوح حتى احصل على حلول متعددة
jo_2010 قام بنشر الجمعة at 12:39 الكاتب قام بنشر الجمعة at 12:39 الخبير الفالضل والمعلم المتميز ابو جودي عيد سعيد وكل سنة وحضرتك طيب شكرا لاهتمام حضرتك بموضوعى وحل المشكلة بطريقة سحرية لم اكن اتوقعها ولكنى لم اكن اعلم ان الفلاشر لايعمل مع النماذج المستمرة شكرا للمعلومة ممكن لو تكرمت مثال بسيط من حضرتك كيف استفيد من كود الالوان الكثيرة اللى حضرتك كتبتها لك خالص الشكر Option Compare Database Option Explicit Public Enum FlashColors FlashWhite = 16777215 ' الأبيض - White (vbWhite) FlashBlack = 0 ' الأسود - Black (vbBlack) FlashRed = 255 ' الأحمر - Red (vbRed) FlashGreen = 65280 ' الأخضر - Green (vbGreen) FlashBlue = 16711680 ' الأزرق - Blue (vbBlue) FlashYellow = 65535 ' الأصفر - Yellow (vbYellow) FlashMagenta = 16711935 ' الماجنتا - Magenta (vbMagenta) FlashCyan = 16776960 ' السماوي - Cyan (vbCyan) FlashOrange = 42495 ' البرتقالي - Orange (RGB: 255, 165, 0) FlashPurple = 8388736 ' البنفسجي - Purple (RGB: 128, 0, 128) FlashPink = 13353215 ' الوردي - Pink (RGB: 255, 192, 203) FlashLime = 65280 ' الليموني - Lime (RGB: 0, 255, 0) FlashTeal = 32896 ' البترولي - Teal (RGB: 0, 128, 128) FlashViolet = 15631086 ' الفيوليت - Violet (RGB: 238, 130, 238) FlashBrown = 2763429 ' البني - Brown (RGB: 165, 42, 42) FlashGold = 55295 ' الذهبي - Gold (RGB: 255, 215, 0) FlashSilver = 12632256 ' الفضي - Silver (RGB: 192, 192, 192) FlashGray = 8421504 ' الرمادي - Gray (RGB: 128, 128, 128) FlashDarkRed = 139 ' الأحمر الداكن - Dark Red (RGB: 139, 0, 0) FlashDarkGreen = 25600 ' الأخضر الداكن - Dark Green (RGB: 0, 100, 0) FlashDarkBlue = 9109504 ' الأزرق الداكن - Dark Blue (RGB: 0, 0, 139) FlashOlive = 32896 ' الزيتوني - Olive (RGB: 128, 128, 0) FlashMaroon = 128 ' المارون - Maroon (RGB: 128, 0, 0) FlashNavy = 8388608 ' الكحلي - Navy (RGB: 0, 0, 128) FlashTurquoise = 13757312 ' التركواز - Turquoise (RGB: 64, 224, 208) FlashIndigo = 8519755 ' النيلي - Indigo (RGB: 75, 0, 130) FlashCoral = 5275647 ' المرجاني - Coral (RGB: 255, 127, 80) FlashSalmon = 7504122 ' السلموني - Salmon (RGB: 250, 128, 114) FlashBeige = 14480885 ' البيج - Beige (RGB: 245, 245, 220) FlashLavender = 16443110 ' الخزامى - Lavender (RGB: 230, 230, 250) End Enum ' تعداد لتحديد نوع الوميض: لون النص أو لون الخلفية Public Enum flashType FlashForeColor = 0 ' الوميض على لون النص - ForeColor FlashBackColor = 1 ' الوميض على لون الخلفية - BackColor End Enum ' دالة لجعل مربع النص يومض بلونين محددين بناءً على شرط معين ' txtBox: مربع النص الذي سيتم تطبيق الوميض عليه ' condition: الشرط الذي يحدد ما إذا كان الوميض سيتم تفعيله أم لا ' color1: اللون الأول للوميض (اختياري، الافتراضي هو FlashYellow) ' color2: اللون الثاني للوميض (اختياري، الافتراضي هو FlashRed) ' flashType: نوع الوميض (لون النص أو الخلفية، اختياري، الافتراضي هو FlashForeColor) Public Sub FlashTextBox(txtBox As TextBox, condition As Boolean, Optional color1 As FlashColors = FlashYellow, Optional color2 As FlashColors = FlashRed, Optional flashType As flashType = FlashForeColor) ' متغير ثابت لتتبع حالة الوميض (يتغير بين True وFalse) Static isFlashing As Boolean ' التحقق من تحقق الشرط If condition Then ' تحديد ما إذا كان الوميض سيطبق على لون النص أو الخلفية بناءً على flashType If flashType = FlashForeColor Then ' الوميض على لون النص If isFlashing Then txtBox.ForeColor = color1 ' تعيين اللون الأول للنص Else txtBox.ForeColor = color2 ' تعيين اللون الثاني للنص End If Else ' الوميض على لون الخلفية If isFlashing Then txtBox.BackColor = color1 ' تعيين اللون الأول للخلفية Else txtBox.BackColor = color2 ' تعيين اللون الثاني للخلفية End If End If ' عكس حالة الوميض للتبديل في المرة القادمة isFlashing = Not isFlashing ' تحديث الشاشة لعرض التغيير فوراً Application.Echo True Else ' إذا لم يتحقق الشرط، إعادة الإعدادات إلى الافتراضية If flashType = FlashForeColor Then txtBox.ForeColor = FlashBlack ' لون النص الأسود كافتراضي Else txtBox.BackColor = FlashWhite ' لون الخلفية الأبيض كافتراضي End If End If End Sub الاستدعاء ' استدعاء الدالة العامة للوميض ' txtValue هو اسم مربع النص الذي يحتوي على القيمة (مثل 5) ' txtFlash هو اسم مربع النص الذي سيمضي FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashGold, FlashBlue ------------------------------------------------------- أو لتغير خلفية مربع النص FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashBackColor ------------------------------------------------------- أو لتغير لون الخط وهو الافتراضى كما بالكود FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite أو FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashForeColor
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.