إختصار كود به عدد من ال menu items

#11 يناير 2006 في 23:07 صاحب الموضوع

السلام عليكم ورحمه وبركاته

عندى في الmain form عدد من الmenu items

توجد menu item إسمها menues بها

1) insert menu item تفتح insert form

2) update menu item تفتح update form

3) delete menu item تفتح delete form

وطبعا كل مستخدم له صلاحيات محتلفة فعند

mainform_load
menues.visible = cls.insert
menues.visible = cls.update
menues.visible = cls.delete

تظهر كل من الinsert menu item والupdate menu item والdelete menu item حتى لو كان المستخدم ليس له صلاحية بإستخدام form معينة

فكتبت هذا الكود فى mainform_load

If CLS.Insert And CLS.Update And CLS.Delete Then
            Menues.Visible = CLS.Insert
            Menues.Visible = CLS.Update
            Menues.Visible = CLS.Delete
        ElseIf CLS.Insert And CLS.Update Then
            Menues.Visible = CLS.Insert
            Menues.Visible = CLS.Update
            DelMenu.Enabled = False
        ElseIf CLS.Insert And CLS.Delete Then
            Menues.Visible = CLS.Insert
            Menues.Visible = CLS.Delete
            UpdMenu.Enabled = False
        ElseIf CLS.Delete And CLS.Update Then
            Menues.Visible = CLS.Delete
            Menues.Visible = CLS.Update
            InstMenu.Enabled = False
        ElseIf CLS.Insert Then
            Menues.Visible = CLS.Insert
            UpdMenu.Enabled = False
            DelMenu.Enabled = False
        ElseIf CLS.Update Then
            Menues.Visible = CLS.Update
            DelMenu.Enabled = False
            InstMenu.Enabled = False
        ElseIf CLS.Delete Then
            Menues.Visible = CLS.Delete
            UpdMenu.Enabled = False
            InstMenu.Enabled = False
        Else
            Menues.Visible = False
        End If

وطبعا هذا غير طبيعى لو كان هناك عدد كبير من ال menu items

سؤالى هو: هل هناك كود أصلح من هذا الكود؟

وشكرا

Mainform.rar

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#21 يناير 2006 في 23:31

السلام عليكم

هذا الكود يفى بالغرض بافتراض ان cls.delete يوجد به قيمة منطقية

فى حدث تحميل الفورم

DelMenu.Enabled = cls.delete
           UpdMenu.Enabled =cls.update
InstMenu.Enabled = cls.insert

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#32 يناير 2006 في 00:00

السلام عليكم ورحمه وبركاته

شكرا استاذى الفاضل

حيث اننى وضعت هذا الكود

DelMenu.Enabled = cls.delete
          UpdMenu.Enabled =cls.update
InstMenu.Enabled = cls.insert

ولكن بإضافة هذا الكود أيضا معه في mainform_load

menues.visible = cls.insert
menues.visible = cls.update
menues.visible = cls.delete

كما ذكرت قبل لك وطبعا لأن menues أعلى من insert و update و delete ولذلك كان يظهر لى ال menues كلها

شكرا مرة أخرى