(01-07-17, 05:44 AM)silverlight كتب : الموضوع سهل لكن سؤال : كيف سيحدد العميل نوعية النشاط

(01-07-17, 02:40 PM)حريف برمجة كتب : في بداية تشغيل البرنامج بعد التنصيب طبعاً لأول مره تشغيل البرنامج تضع كومبو بوكس يحمل الأنشطة مثلاً :
سوبر ماركت
صيدلية
.... إلخ

وتضع صورة لكل نشاط وبعد تحديد النشاط تقوم بعرض الصورة .

(02-07-17, 08:07 AM)silverlight كتب : سؤال أخير
هل العميل سيخدد النشاط اثناء مرحلة Setup للبرنامج أم عند تشغيل البرنامج؟

(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 


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