اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي .:fff:.

فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل .

قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :-

Private Sub تفصيل_Paint()
    If IsNull(Me.External_lab) Or Me.External_lab = "" Then
        Me.FokshTxT.BackStyle = 1
        Me.FokshTxT.BackColor = RGB(255, 230, 250)
    Else
        Me.FokshTxT.BackStyle = 0
    End If
End Sub

حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

image.png.334e53f7015320102d033b9b2692fa00.png

 

وملفك بعد التعديل :-

JO_Lab.zip

 

  • Like 1
قام بنشر

شكرا للسادة الخبراء الافاضل علي المساعدة 

قام بنشر
في 18‏/12‏/2025 at 18:46, Foksh said:

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي .:fff:.

فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل .

قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :-

Private Sub تفصيل_Paint()
    If IsNull(Me.External_lab) Or Me.External_lab = "" Then
        Me.FokshTxT.BackStyle = 1
        Me.FokshTxT.BackColor = RGB(255, 230, 250)
    Else
        Me.FokshTxT.BackStyle = 0
    End If
End Sub

حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

image.png.334e53f7015320102d033b9b2692fa00.png

 

وملفك بعد التعديل :-

JO_Lab.zip 2.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a

 · 10 downloads

معلمى الفاضل  Foksh

وماذا افعل اذا اردت التبديل بين البرج والمختبر اى ان فى حالة اختيار البرج تظهر صورة البرج وفى حالة اختيار المختبر تظهر صورة البرج وفى حال لم اختر شئ يظل المكان فارغ

 

 

قام بنشر
5 ساعات مضت, jo_2010 said:

وماذا افعل اذا اردت التبديل بين البرج والمختبر اى ان فى حالة اختيار البرج تظهر صورة البرج وفى حالة اختيار المختبر تظهر صورة البرج وفى حال لم اختر شئ يظل المكان فارغ

 

تقصد كده ..

طبعاً انا مش ملخبط بإن المكان يكون في المربع الأسود اللي انت اخترته ، ولكني طبقت الفكرة على الصور الأصلية بدلاً من تكرار الصور مرتين للمختبر أو البرج .

image.png.3beb6002eae46911a14e4e203b248eb6.png

 

قام بنشر
3 ساعات مضت, Foksh said:

تقصد كده ..

طبعاً انا مش ملخبط بإن المكان يكون في المربع الأسود اللي انت اخترته ، ولكني طبقت الفكرة على الصور الأصلية بدلاً من تكرار الصور مرتين للمختبر أو البرج .

image.png.3beb6002eae46911a14e4e203b248eb6.png

 

تمام ياستاذى الفاضل

هذا مااريدة

مع العلم انى اريد ظهور الصورة سواء فارغة او المختبر أو البرج فى نفس المكان

وليس بجوار بعض

شكرا

قام بنشر
47 دقائق مضت, jo_2010 said:

مع العلم انى اريد ظهور الصورة سواء فارغة او المختبر أو البرج فى نفس المكان

 

تقصد كده كمثال  ؟؟

image.png.c141fc347dc3e2acd3bd767fe94987c3.png

 

image.png.6f573b2c498746952bf89f46f1c0bff9.png

قام بنشر
منذ ساعه, Foksh said:

تقصد كده كمثال  ؟؟

image.png.c141fc347dc3e2acd3bd767fe94987c3.png

 

image.png.6f573b2c498746952bf89f46f1c0bff9.png

نعم هذا ما اريدة أين القاعدة بعد بعد تعديل  حضرتك خالص الشكر

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information