هدية مبكرة بمناسبة عيد الفطر ::@@ كيف تصنع شاشة رئيسية متطورة Modern UI Access @@

[Amr Ashraf]

السلام عليكم , الاخوة الكرام كل عام وانتم بخير بمناسبة شهر رمضان وعيد الفطر المبارك اعادهم الله علينا بالخير والبركة

موضوعنا اليوم بعد غياب كما بالعنوان كيف تنفذ شاشة متطورة حتى النتيجة بالمثال

 

افتح فورم جديد ثم قم بعمل 2 Rectangle فى الجانب والاعلى , الجانب للقائمة والاعلى كشريط للعنوان , بالنسبة للون الخلفية الخاصة بهم يمكنك عمل اللون الذى تفضله , بالنسبة للون المثال

هو لون قوائم Microsoft Outlook قمت بسحبه وتطبيقه هنا , السؤال كيف تسحب لون تريده ولا تعرف درجته بالضبط ؟

يمكنك تطبيق هذه الفكرة الجديدة , هناك اداة يستخدمها مطورين الويب و المصممين لسحب الألوان بدرجاتها بدقة عالية وهذه الأداة اسمها Just color picker انظر لشكلها وللصورة

 

قم بتنزيلها من الموقع الرسمى من هنا

https://annystudio.com/software/colorpicker/

وصورتها

قم بفتح الاداة وقم بالاشارة على أى لون تريده ثم اضغط على Alt+x لحفظ درجة اللون بالطريقة التى تحبها HTML او RGB وفى المثال سنستخدم الطريقتين , بالنسبة للHTML يمكنك سحب اللون بالاداة واضغط على Copy Value مع التأشير على HTML كما بالصورة

قم بنسخ القيمة وفى الاكسس فى الخصائص الخاصة بأى عنصر ستجد Back Color قم باضافة رمز # قبل درجة اللون من الاداة وضعها فى الاكسس وستجد ان اللون تم تطبيقه
 

اقتباس

 

 

وبالتالى قمت بأخذ لونك المفضل ويمكنك محاكاة اى تصميم لاى برنامج تحبه .

ننتقل للتصميم بداية التصميم من فكرتى وتطبيقى واكوادى من البداية اللى النهاية وأتمنى دعوة بظهر الغيب بصلاح الحال , فى التصميم ستجد ان عند تحديد زر من ازرار القائمة ستقوم الايقونة بالتحرك والخط يختلف و تصبح ايقونة الزر هى الايقونة الرئيسية بالأعلى , لعمل ذلك قم بفتح الفاجيوال بيزيك وضع الاكواد التالية :

Sub ReFormat(Sender As CommandButton)
Me.PictureBox.Picture = Sender.Picture
Me.lbl.Caption = Sender.Caption
Sender.PictureCaptionArrangement = acRight
Sender.FontUnderline = True
End Sub

شرح الكود :: المطلوب معرفة اولا الزر الذى تم ضغطه ولذلك قمت بعمل الكود السابق مع التحكم فى الزر الذى تم ضغطه كمحازاة النص والايقونة وهكذا , يمكنك زيادة حجم الخط او أي تنسيق تريده.

يتم استدعاء الكود بالشكل التالى من أى زر امر :

ReFormat ActiveControl

تمام , طيب فى هذه الحالة التنسيق سيستمر اذا ضغطت على زر آخر وستظل الايقونة والخط بالتنسيق الذى قام الكود السابق بعمله , وبالتالى محتاجين نلغى ما قام به الكود السابق عن كل الازرار الا الزر الحالى سيحتفظ بالتنسيق الجديد .

عملت الكود التالى

Sub Restore()

Dim ctrl As Control

For Each ctrl In Me.Controls
     If TypeName(ctrl) = "CommandButton" Then
        If ctrl.Name <> ActiveControl.Name Then
            ctrl.PictureCaptionArrangement = acLeft
            ctrl.FontUnderline = False
     End If
        End If
Next

End Sub

شرح الكود :: يقوم بالمرور على كل عناصر التحكم واذا وجدها زر سيقارن اسمها مع اسم الزر الحالى فى حالة اختلافهما يقوم بارجاع التنسيق الاصلى للزر قبل تطبيق كود التنسيق عليه , وبالتالى مع كل زر امر سيتم وضع الكود التالى

Restore
ReFormat ActiveControl

ستجد ان هناك خط يتغير لونه مع كل ضغطة زر , هنا سنستخدم طريقة الالوان الاخرى RGB قم بسحب اللون الذى تريده بالاداة وقم بوضع اللون مثل المثال التالى :

Me.Line51.BorderColor = RGB(35, 204, 183)

حيث ان قيمة اللون بين الاقواس الاحمر,الاخضر,الازرق RGB .

باقى TabControl متعدد الصفحات قم بانشاءه ولا تنسى بعد الانتهاء منه تحديد Style = None

الخطوة الاخيرة الانتقال الى صفحات هذا الTabControl عن طريق الكود وهناك طريقتين :

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

Me.MyTabs.Pages(0).SetFocus

حيث ان 0 هو رقم Index او ترتيب الصفحة فى المستعرض , وستجد عند فتح النموذج ان الصفحة 0 يتم فتحها وعند الضغط ايضاً على ايقونة المنزل سينتقل اليها .

اذا اردت فتح الصفحة بدون الوقوف فيها يمكنك استخدام :

Me.MyTabs.Value = 0

وستجد الطريقتين فى المثال المرفق .

لا تنسى ضبط خاصية Anchor لتثبيت العناصر او مدها مع تكبير او تصغير النموذج كما فى المثال .

اعتذر عن الشرح قليل التفاصيل الى حد ما ولكنى معتمد على خبرتكم .

مرفق مثال به كل ما تم شرحه , دمتم بخير

ستجد المثال فى اول مشاركة لأن المنتدى لم يسمح لى ان تتعدى المرفقات 4.8 ميجا .

المثال مرفق

 

Modern UI Access - Amr Ashraf.accdb

 

قمت باضافة صغيرة لم تظهر فى الصورة المتحركة لأنها سجلت مسبقاً , عند الضغط على صورة المنزل ستعود كافة الايقونات الى مكانها الطبيعى .

تم تعديل أبريل 25, 2022 بواسطه Amr Ashraf

[عمر ضاحى]

انه لشرف لى اكون اول من يرد على الموضوع 

بارك الله فيك 

مجهود رائع

 

[abouelhassan]

شكر وتقدير واحترام من اخيك

بارك الله فيك اخي الكريم هدية مقبولة 

[الحلبي]

31 دقائق مضت, Amr Ashraf said:

المثال مرفق

شئ جميل جدا بارك الله فيك وجعله فى ميزان الحسنات

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

جزاك الله كل خيرا

[Amr Ashraf]

32 دقائق مضت, عمر ضاحى said:

انه لشرف لى اكون اول من يرد على الموضوع 

بارك الله فيك اخى الكريم

 

31 دقائق مضت, abouelhassan said:

بارك الله فيك اخي الكريم هدية مقبولة 

جزاكم الله خير

 

6 دقائق مضت, الحلبي said:

شئ جميل جدا بارك الله فيك وجعله فى ميزان الحسنات

جزاك الله خير اخى الكريم , الاداة لا تحتاج تسجيل لتنزيلها فقط Download ومع ذلك مرفق الاداة

 

jcpicker.zip

[Moosak]

الله الله الله .. جمال في جمال ماشاء الله .. 😃🌹

رائعة من روائعك أخي عمر .. 🙂 

أحييت فينا ذكريات الواجهات الجميلة والجذابة في هذه الأيام المباركة 😊

عمل جميل وجهد واضح ماشاء الله 👍🏼

[kassem_geo]

 بارك الله بك  ... أمام هذة اللمسات الرائعة اجد نفسي متلهفا لتحميل هذة التصاميم واستخدامها باي فكرة مستقبلية

وخاصة وانها تذكرني بصديقي @Moosak

 

تم تعديل أبريل 25, 2022 بواسطه kassem_geo

[الحلبي]

3 ساعات مضت, Amr Ashraf said:

ومع ذلك مرفق الاداة

نزلت الاداة ولكن قال لى لا يمكن تحميلها لان الويندوز عندى ويندوز 7 - 32 بت هو يريد 64 بت

جزاكم الله خيرا

[أبوبسمله]

جزاك الله خيرا استاذ @Amr Ashraf

ولكن الاداه لا تعمل معى بالرغم انى نزلت الاداه الموافقه لويندوز 7 - 32 بت نسخه محموله من الموقع الا انها لا تستجيب الى الاختصار الذى وضحته ولا للزر كوبى بالاداه

بالتوفيق

[Amr Ashraf]

10 ساعات مضت, Moosak said:

الله الله الله .. جمال في جمال ماشاء الله .. 😃🌹

بارك الله فيك استاذ موسى وشرفنى مرورك

8 ساعات مضت, الحلبي said:

نزلت الاداة ولكن قال لى لا يمكن تحميلها لان الويندوز عندى ويندوز 7 - 32 بت هو يريد 64 بت

يمكنك تنزيل النسخة ال32 بيت من الموقع اخى الكريم

 

7 ساعات مضت, احمد الفلاحجي said:

ولكن الاداه لا تعمل معى بالرغم انى نزلت الاداه الموافقه لويندوز 7 - 32 بت نسخه محموله من الموقع الا انها لا تستجيب الى الاختصار الذى وضحته ولا للزر كوبى بالاداه

لم اجرب النسخة ال32 اخى الكريم اللى معى 64 وتعمل بكفاءة وهذه طريقة عملها

اضغط Alt+x او يمكنك تغيير الاختصار من الاعدادات وتجرب , ثم نسخ القيمة سواء يدويا كما بالصورة او اضغط على Copy Value بعد تحديد اللون من القائمة المسجلة .

1 دقيقه مضت, Amr Ashraf said:

انها لا تستجيب الى الاختصار الذى وضحته ولا للزر كوبى بالاداه

هناك تحذير فى الموقع انك لا تضع الاداة فى مجلد محمى مثل Program Files لأن الاداة تحتاج لانشاء 2 ملف بجانبها ولذلك تأكد انك واضعها فى مكان مناسب يمكن يكون ده السبب فى عدم عملها معك.

[Amr Ashraf]

في ٢٥‏/٤‏/٢٠٢٢ at 22:53, kassem_geo said:

 بارك الله بك  ... أمام هذة اللمسات الرائعة اجد نفسي متلهفا لتحميل هذة التصاميم واستخدامها باي فكرة مستقبلية

بارك الله فيك شرفنى مرورك اخى الكريم

[ابو جودي]

ماشاء الله .. شغل جميل سلمت يمناك

[Amr Ashraf]

28 دقائق مضت, ابو جودي said:

ماشاء الله .. شغل جميل سلمت يمناك

تسلم يا غالى

[أبوبسمله]

في 26‏/4‏/2022 at 08:16, Amr Ashraf said:

هناك تحذير فى الموقع انك لا تضع الاداة فى مجلد محمى مثل Program Files لأن الاداة تحتاج لانشاء 2 ملف بجانبها ولذلك تأكد انك واضعها فى مكان مناسب يمكن يكون ده السبب فى عدم عملها معك.

قمت بنقل الاداه الى بارتشن D وتم انشاء ملف واحد بجانب الاداه فقط ولم تعمل معى

خير الحمد الله مو مشكله جزاك الله خيرا على ماقدمت

بالتوفيق

[Ahmed_J]

السلام عليكم

استاذ @Amr Ashraf

بارك الله فيك

عمل رائع

سؤالي: هل هذة النماذج تعمل على احجام كل الشاشات وتاخذ حجم الشاشة (باختلاف دقة الشاشات)  وماهو الكود المختص بذلك

تحياتي للجميع

[at_aziz]

بارك الله فيك وجزاك الله خير

مثال جميل جدا ورائع

[عبدالقدوس48]

ارك الله فيك وجزاك الله خير

مثال جميل جدا ورائع

[Amr Ashraf]

في 27‏/4‏/2022 at 21:40, Ahmed_J said:

سؤالي: هل هذة النماذج تعمل على احجام كل الشاشات وتاخذ حجم الشاشة (باختلاف دقة الشاشات)  وماهو الكود المختص بذلك

من المفترض نعم , وذلك بدون اكواد فقط ضبط خاصية Vertical Anchor و Horizontal Anchor لتمديد العناصر اذا قمت بتكبير النموذج , واعتقد ان هناك امثلة على جعل النموذج يستجيب لحجم الشاشة بالاكواد ابحث فى المنتدى .

[Amr Ashraf]

موضوع آخر قد يعجبك

 

[الأترُجّة]

بسم الله الرّحمن الرحيم

وعليكم السّلامُ ورحمة الله تعالى وبركاته

ما شاء الله! تَباركَ الله!

سرح جد مُميّز؛ فضلاً عن توفير الأدوات المُستخدمة.

جعله تعالى لإخوتي شاهِدًا، وزادهم من واسِع فضله سُبحانهُ.

ومن بعد إذنكم لديّ تيسّر لديّ اسِفساران؛ لُطفًا إذا تيسّر من وقت إخوتي:

- هل يوجد مصدر لإتقان أكواد الأكسيس؟!

- وهل تعلُّمها يُغني عن لُغات البرمجة؟!

والله تعالى يجزي إخوتي خيرًا.

[Amr Ashraf]

15 دقائق مضت, الأترُجّة said:

- هل يوجد مصدر لإتقان أكواد الأكسيس؟!

انت/ى فى صرح عظيم لتعلم كل ما ييتعلق بالاوفيس كل ما عليك وبكل بساطة ابحث عن الموضوع الذى تريد تعلمه وستجد الكثير من الشروحات والاستفسارات المجابة عن طريق الاساتذة .

وطبعا موجود اليوتيوب نفس الشئ .

17 دقائق مضت, الأترُجّة said:

- وهل تعلُّمها يُغني عن لُغات البرمجة؟!

هى بالفعل لغة برمجة ولكن موجهة لتطبيقات الاوفيس VBA اختصار VB For Applications وابشرك انك لو اتعلمتها يمكنك بسهولة تعلم لغة VB.Net واستعمال لغة البرمجة الكاملة مع اختلافات بسيطة , حتى ان هناك اكواد اذا اخذتها كوبى وبيست من VBA الى VB.Net ستعمل بدون اى اضافات .

بالاضافة انك اذا تعلمت الاكسس كقواعد بيانات سيكون عندك منظور جيد جدا لكيفية عمل قواعد البيانات وستأتيك الكثير من الافكار المستوحاة من الاكسس .

ابدأ وستجد المحصلة عظيمة  , بالتوفيق

 

[الأترُجّة]

3 ساعات مضت, Amr Ashraf said:

انت/ى فى صرح عظيم لتعلم كل ما ييتعلق بالاوفيس كل ما عليك وبكل بساطة ابحث عن الموضوع الذى تريد تعلمه وستجد الكثير من الشروحات والاستفسارات المجابة عن طريق الاساتذة .

وطبعا موجود اليوتيوب نفس الشئ .

هى بالفعل لغة برمجة ولكن موجهة لتطبيقات الاوفيس VBA اختصار VB For Applications وابشرك انك لو اتعلمتها يمكنك بسهولة تعلم لغة VB.Net واستعمال لغة البرمجة الكاملة مع اختلافات بسيطة , حتى ان هناك اكواد اذا اخذتها كوبى وبيست من VBA الى VB.Net ستعمل بدون اى اضافات .

بالاضافة انك اذا تعلمت الاكسس كقواعد بيانات سيكون عندك منظور جيد جدا لكيفية عمل قواعد البيانات وستأتيك الكثير من الافكار المستوحاة من الاكسس .

ابدأ وستجد المحصلة عظيمة  , بالتوفيق

 

أحسنتُم.

جزاكم المولى تبارك خَير الجَزاءِ، وزادكمُ من فضله.