اظهار صورة حسب قيمة حقل معين

[jo_2010]

الخبراء الافاضل ما اريدة بالصورة

JO_Lab.rar

[Moosak]

تريده هكذا أستاذ يوسف ؟ 🙂 

JO_Lab.rar

[Foksh]

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

فكرتي تتلخص بالعمل على حدث 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)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

 

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

JO_Lab.zip

 

[jo_2010]

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

[jo_2010]

في 18‏/12‏/2025 at 18:46, Foksh said:

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

فكرتي تتلخص بالعمل على حدث 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)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

 

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

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

 · 10 downloads

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

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

 

 

[Foksh]

4 ساعات مضت, jo_2010 said:

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

 

تقصد كده ..