عمل أزرار حسب الرغبة وبفكرة بسيطة

[أبو هادي]

السلام عليكم

فكرة عمل أزرار بشكل بسيط ودون تكلف ، آمل أن تحوز على رضاكم .

وبكل تأكيد أحتاج إلى ملاحظاتكم في حال وجد لتطوير الفكرة .

الشروط المطلوبة لتعمل الفكرة بشكل صحيح :

1- نحتاج لإضافة تسميات Labels لكل زر مطلوب بشرط أن تبدأ أسماؤها بـ Lbl مثل LblOpen ، التسميات لا تحتاج إلى أي شروط أخرى البتة فقط ضع التسميات Captions وحدد مواقعها ومقاساتها حسب الرغبة .

2 - إضافة أزرار بعدد التسميات بشرط أن تبدأ أسماؤها بـ Cmd ثم إسم التسمية بدون الثلاثة حروف الأولى مثل CmdOpen ، لا توجد شروط أخرى ولا يلزم تحديد مكانها ولا العناية بمقاساتها .

3 - نحتاج إلى إطار مستطيل Rectangle على أن يكون إسمه Box1 ولا يلزم تحديد مكانه ولا المقاس .

4 - مناداة الإجراء CheckButtons في حدث عند الفتح كالتالي :

Call CheckButtons(Me)

5 - من المهم أن تضاف/تنشأ التسميات أولا ثم الأزرار ثانيا وليس العكس وإلا فلن تعمل الأزرار بشكل صحيح .

تحياتي .

Buttons_20050705.rar

تم تعديل يوليو 5, 2005 بواسطه أبو هادي

[الدكتور خضر الرجبي]

السلام عليكم

أخي أبا هادي ، بارك الله فيك

مبدع كعادتك ، مبدأيا درجة الرضا عندي عن أداتك الجديدة أقتربيت من 80%.

الأداة فعلا تعطي طريقة لبناء الأزرار بطريقة سهلة ومن أهم خصائصها توفير خاصية الألوان لخلفية الزر.

درست الأداة ، وعملت مثال تجريبي وإليك ملاحظاتي :

1. من سيئات الأداة أنها تفقدنا خاصية وضع الصور في الزر التي كانت موفرة في أزرار الأمر .

2. يفضل عمل إجراءات الحدث عند النقر للتسمية وليس للزر حيث أن الزر سننسى أمره بعد تصغيره ورميه في التصميم .

3. لو حددت خاصية مرئي = لا للزر (التسمية) في الوضع الإبتدائي لفتح النموذج فإنه سيظهر بكل الأحول .

4. يا حبذا لو أننا نستطيع أن نحافظ على تنسيق التسمية(الزر) الذي نضعه في وضع التصميم.

على كل الأحول أن أعلم أنك لن تترك الأداة كما هي وستعمل على تطويرها بإذن الله .

مع تمنياتي لك بالتوفيق

Buttons_Khader1.rar

[rudwan]

السلام عليكم

أداة ابداعيه جديده جزاكم الله خيرا

و لكن هل يمكن تعديل الكود بحيث التسميه نفس احداثيات زر الأمر عند فتح النموذج

لأنه في حال الاغلاق ترجع الاحداثيات الى السابق , ثم تأخذ وضعها الجديد عند النقر علر زر الأمر

تحياتي

[أبو هادي]

السلام عليكم

شكرا لأخي خضر على المتابعة والمشاركة .

والشكر موصول لأخي رضوان وآمل منك أخي رضوان توضيح ملاحظك أكثر .

لمتابعة المزيد من التفاعل :

http://www.krajabi.com/ib/index.php?showto...view=getnewpost

تحياتي .

[rudwan]

السلام عليكم

استاذي أبو هادي حياك الله

عملت تسميه و زر أمر , كلا منهما في مكان مختلف و لكن ضمن المستطيل , في حال النقر

على زر الأمر تتوضع التسميه على زر الأمر آخذا احداثيات مطابقه له - تمام -

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

المطلوب لو يكون كود توضع الاحداثيات يعمل تلقائيا عند فتح النموذج و ليس عند النقر على زر الأمر

[أبو هادي]

السلام عليكم

عزيزي رضوان .. أرجو ملاحظة هذا الكود للحدث عند الفتح للنموذج :

Private Sub Form_Open(Cancel As Integer)
  Call CheckButtons(Me)
End Sub

هذا الكود يتولى الأمر كله عند الفتح فقط ( مرة واحدة ) ، أرجو أني فهمت مقصدك وإلا الله يعينك توضح أكثر أيضا .

أعتقد أن النسخة التي لديك هي النسخة قبل الحالية أي قبل فصل الكود في وحدة نمطية منفصلة ، فإذا كان كذلك آمل إنزال نسخة أخرى والتعرف على الكود مرة أخرى .

تحياتي .

[rudwan]

يبدو كذلك , لقد أعدت تحميل الملف مره أخرى و عمل بشكل سليم :(

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

[الفني]

شكرا ، وفكرة رائعة