أبو هادي قام بنشر يوليو 4, 2005 قام بنشر يوليو 4, 2005 (معدل) السلام عليكم فكرة عمل أزرار بشكل بسيط ودون تكلف ، آمل أن تحوز على رضاكم . وبكل تأكيد أحتاج إلى ملاحظاتكم في حال وجد لتطوير الفكرة . الشروط المطلوبة لتعمل الفكرة بشكل صحيح : 1- نحتاج لإضافة تسميات Labels لكل زر مطلوب بشرط أن تبدأ أسماؤها بـ Lbl مثل LblOpen ، التسميات لا تحتاج إلى أي شروط أخرى البتة فقط ضع التسميات Captions وحدد مواقعها ومقاساتها حسب الرغبة . 2 - إضافة أزرار بعدد التسميات بشرط أن تبدأ أسماؤها بـ Cmd ثم إسم التسمية بدون الثلاثة حروف الأولى مثل CmdOpen ، لا توجد شروط أخرى ولا يلزم تحديد مكانها ولا العناية بمقاساتها . 3 - نحتاج إلى إطار مستطيل Rectangle على أن يكون إسمه Box1 ولا يلزم تحديد مكانه ولا المقاس . 4 - مناداة الإجراء CheckButtons في حدث عند الفتح كالتالي : Call CheckButtons(Me) 5 - من المهم أن تضاف/تنشأ التسميات أولا ثم الأزرار ثانيا وليس العكس وإلا فلن تعمل الأزرار بشكل صحيح . تحياتي . Buttons_20050705.rar تم تعديل يوليو 5, 2005 بواسطه أبو هادي
الدكتور خضر الرجبي قام بنشر يوليو 5, 2005 قام بنشر يوليو 5, 2005 السلام عليكم أخي أبا هادي ، بارك الله فيك مبدع كعادتك ، مبدأيا درجة الرضا عندي عن أداتك الجديدة أقتربيت من 80%. الأداة فعلا تعطي طريقة لبناء الأزرار بطريقة سهلة ومن أهم خصائصها توفير خاصية الألوان لخلفية الزر. درست الأداة ، وعملت مثال تجريبي وإليك ملاحظاتي : 1. من سيئات الأداة أنها تفقدنا خاصية وضع الصور في الزر التي كانت موفرة في أزرار الأمر . 2. يفضل عمل إجراءات الحدث عند النقر للتسمية وليس للزر حيث أن الزر سننسى أمره بعد تصغيره ورميه في التصميم . 3. لو حددت خاصية مرئي = لا للزر (التسمية) في الوضع الإبتدائي لفتح النموذج فإنه سيظهر بكل الأحول . 4. يا حبذا لو أننا نستطيع أن نحافظ على تنسيق التسمية(الزر) الذي نضعه في وضع التصميم. على كل الأحول أن أعلم أنك لن تترك الأداة كما هي وستعمل على تطويرها بإذن الله . مع تمنياتي لك بالتوفيق Buttons_Khader1.rar
rudwan قام بنشر يوليو 5, 2005 قام بنشر يوليو 5, 2005 السلام عليكم أداة ابداعيه جديده جزاكم الله خيرا و لكن هل يمكن تعديل الكود بحيث التسميه نفس احداثيات زر الأمر عند فتح النموذج لأنه في حال الاغلاق ترجع الاحداثيات الى السابق , ثم تأخذ وضعها الجديد عند النقر علر زر الأمر تحياتي
أبو هادي قام بنشر يوليو 5, 2005 الكاتب قام بنشر يوليو 5, 2005 السلام عليكم شكرا لأخي خضر على المتابعة والمشاركة . والشكر موصول لأخي رضوان وآمل منك أخي رضوان توضيح ملاحظك أكثر . لمتابعة المزيد من التفاعل : http://www.krajabi.com/ib/index.php?showto...view=getnewpost تحياتي .
rudwan قام بنشر يوليو 5, 2005 قام بنشر يوليو 5, 2005 السلام عليكم استاذي أبو هادي حياك الله عملت تسميه و زر أمر , كلا منهما في مكان مختلف و لكن ضمن المستطيل , في حال النقر على زر الأمر تتوضع التسميه على زر الأمر آخذا احداثيات مطابقه له - تمام - و لكن اذا أغلقت النموذج عادت الاحداثيات الى طبيعتها الأصليه , زر الأمر في مكان و التسميه في مكان آخر ( حسب تصميمها الأصلي ) , و بهذه الحال يجب في كل مره يتم فيها فتح النموذج الضغط على زر الأمر ليحدث تطابق الاحداثيات . المطلوب لو يكون كود توضع الاحداثيات يعمل تلقائيا عند فتح النموذج و ليس عند النقر على زر الأمر
أبو هادي قام بنشر يوليو 6, 2005 الكاتب قام بنشر يوليو 6, 2005 السلام عليكم عزيزي رضوان .. أرجو ملاحظة هذا الكود للحدث عند الفتح للنموذج : Private Sub Form_Open(Cancel As Integer) Call CheckButtons(Me) End Sub هذا الكود يتولى الأمر كله عند الفتح فقط ( مرة واحدة ) ، أرجو أني فهمت مقصدك وإلا الله يعينك توضح أكثر أيضا . أعتقد أن النسخة التي لديك هي النسخة قبل الحالية أي قبل فصل الكود في وحدة نمطية منفصلة ، فإذا كان كذلك آمل إنزال نسخة أخرى والتعرف على الكود مرة أخرى . تحياتي .
rudwan قام بنشر يوليو 7, 2005 قام بنشر يوليو 7, 2005 يبدو كذلك , لقد أعدت تحميل الملف مره أخرى و عمل بشكل سليم :( جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.