[salah mansour]

(05-07-17, 04:52 AM)silverlight كتب : هذه هي الفكرة

أنت تحتاج الي Enum لتحديد نوع النشاط
ومنه تحدد الصورة
و تضع جميع الصور في Resources المشروع

و الكود سيكون بالشكل التالي

PHP كود :

Public Class Form1

    Private Enum ActivityTypes
        Suprmarket
        Pharmacy
        ' أضف جميع الانشظة الأخري
    End Enum

    Private Function GetBackgroundImage(activity As ActivityTypes) As Bitmap
        Dim result As Bitmap = Nothing
        Select Case activity
            Case ActivityTypes.Pharmacy
                result = New Bitmap(My.Resources.pharmacy)
            Case ActivityTypes.Suprmarket
                result = New Bitmap(My.Resources.supermarket)

                ' أكمل بنفس الأسلوب ان كان لديك أنشطة أخري
        End Select

        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' بعد ان يحدد العميل النشاط و بناء علي اختيار العميل
        ' تختار النشاط
        Dim activity As ActivityTypes = ActivityTypes.Pharmacy
        Me.BackgroundImage = GetBackgroundImage(activity)
    End Sub
End Class 


خالص الشكر اخى العزيز باذن الله ساجرب الكود واخبرك بالنتيجة ان شاء الله

---

(05-07-17, 08:54 PM)salah mansour كتب :

(05-07-17, 04:52 AM)silverlight كتب : هذه هي الفكرة

أنت تحتاج الي Enum لتحديد نوع النشاط
ومنه تحدد الصورة
و تضع جميع الصور في Resources المشروع

و الكود سيكون بالشكل التالي

PHP كود :

Public Class Form1

    Private Enum ActivityTypes
        Suprmarket
        Pharmacy
        ' أضف جميع الانشظة الأخري
    End Enum

    Private Function GetBackgroundImage(activity As ActivityTypes) As Bitmap
        Dim result As Bitmap = Nothing
        Select Case activity
            Case ActivityTypes.Pharmacy
                result = New Bitmap(My.Resources.pharmacy)
            Case ActivityTypes.Suprmarket
                result = New Bitmap(My.Resources.supermarket)

                ' أكمل بنفس الأسلوب ان كان لديك أنشطة أخري
        End Select

        Return result
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' بعد ان يحدد العميل النشاط و بناء علي اختيار العميل
        ' تختار النشاط
        Dim activity As ActivityTypes = ActivityTypes.Pharmacy
        Me.BackgroundImage = GetBackgroundImage(activity)
    End Sub
End Class 


خالص الشكر اخى العزيز باذن الله ساجرب الكود واخبرك بالنتيجة ان شاء الله

تمام ياريس الله يبارك فيك ويكرمك اشتغل الكود تمام....جزاك الله خيرا