و أنا أتصفح موقع أجنبي وجدت هذا التطبيق الذي يقوم بانشاء أزرار ملونة و جميلة جدا, كل ما عليك بعد تصميمها تلقائيا هو وضع الأكواد التي تريدها لكي تنفذ المقصود.
قمت باضافة مجموعة كبيرة من الأزرار الجميلة و المتنوعة لكي يكون لك الاختيار .
انتهى الآن مشكل الأزرار الرمادية.
ان شاء الله تعجبكم.
أسألكم الدعاء ان أعجنيتكم و أستفدتم منها, و ان كان الأمر العكس أسألكم المعذرة.
مشكور وما قصرت
جهد تشكر عليه ، ولا بأس بأن تأتينا ببرنامج كل يوم .
شكرا جزيلاً على الهدية أخي /biskra
الله يوفقك.
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
وإليكم ملف به أزرار مختلفة
مشكوريييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييين
اللهم اجعلنا نخشاك كأنا نراك
مشكورين جدا وبارك الله فيكم
لكم مني خالص التقدير
*********************
الفريق العربي للبرمجه
*********************
كان الله في عون العبد مادام العبد في عون اخيه
ربما يفيد البعض هذا درسا للأستاذ أبو حمود حول كيفية انشاء زر ملون, مع الاعتذار عن عدم امكانية ارفاق الصور الموضحة لذلك كوني لا أعرف كيف أرفق الصور.
المشكلة : في الأكسس لا يمكن تلوين الواجهة الأمامية لأزرار الأمر ما يجعلها تأخذ وضع ثابت في كل البرنامج ، وقد يكون هذا الشكل غير مريح خاصة إذا تم تلوين خلفية النموذج الذي عليه الزر .
الطريقة التالية إنشاء صور على شكل أزرار ملونة تشبه في عملها عمل زر الأمر المضمن في الأكسس ، أنظر صورة نموذج عليه الأزرار :
والآن سأشرح كيفية عمل زر وطبق أنت على الشرح .
تقوم فكرة الأزرار على وضع صورتين فوق بعضهما البعض تماماً ، الصورة الأولى من المجموعة العلوية والصورة الثانية من المجموعة السفلية وفوق الجميع تسمية شفافة لغرض كتابة العنوان الذي يظهر فوق الصورة وكذلك استقبال حدث النقر ، وعند ضغط زر الفأرة على التسمية تختفي الصورة العلوية وتظهر الصورة السفلية وتنزل التسمية إلى الأسفل وعند رف زر الفأرة يحدث العكس فتظهر الصورة وكأنها تماثل في عملها عمل زر الأمر المعتاد في الأكسس .
خطوات الإنشاء :
1- أنسخ أي زر من الأزرار في الجدول التالي من المجموعة السفلية ثم ضع فوقه تماما نفس اللون -إذا أحببت- من المجموعة العلوية :
المجموعة العلوية
المجموعة السفلية
حينما تلصق الصورة على النموذج يعطيها الأكسس تسمية لا معنى له مثل Image60 :
وفي رأيي الخاص أن تغير الاسم لمعنى مفهوم مثل العلوي_بيانات_الطلاب أو مثلا السفلي_بيانات_الطلاب وهكذا حسب الوظيفة التي يؤديها الزر ، حتى يسهل عليك اختيار الزر المطلوب من القائمة في جهة اليسار عند الحاجة لذلك لأن الصور تتراكب مع بعضها أنظر الصورة :
2- بعد تغيير اسمي الزرين -الصورتين- الخطوة التالية هي جعل صورة الزر السفلية مخفية وذلك لأننا لا نريد ظهورها سوى عند النقر فقط .
أنقر الزر ثم أظهر صفحة الخصائص وفي خاصية مرئي للزر اختر لا :
3- أنشئ تسمية وفي خاصية تسمية توضيحية اكتب العبارة التي تريد ظهورها عليها كعنوان للزر .
الآن لابد من تعديل عرض وطول التسمية ليتناسب مع عرض وطول الصور وذلك بالنقر على التسمية ثم ضغط Shift والاستمرار على ضغطها ثم النقر مرة واحدة على أحد صورتي الزر :
أو أنقر على أي مكان فارغ من النموذج بزر الفأرة الأيسر ثم استمر في الضغط وسترى ظهور مربع ، اجعله يمر فوق زر الصورة والتسمية ثم افلت زر الفأرة وسيتم تحديد جميع الكائنات التي مر مؤشر الفأرة من فوقها:
بعد تحديد التسمية والصورة كما سبق انقر قائمة تنسيق ثم الحجم ثم إلى الأطول :
ثم مرة أخرى قائمة تنسيق ثم الحجم ثم إلى الأعرض :
بعد ذلك سيظهر حجم التسمية مماثل تماماً للصورة .
4- الخطوة التالية وضع الصور والتسمية فوق بعضها البعض تماماً :
(أ) حدد الصورتين والتسمية كما سبق ثم من قائمة تنسيق انقر محاذاة اختر أي جهة يمين أو يسار .
وستظهر كما في الصورة على اليسار .
(ب) انقر على الأوسط منها ثم قم بتحريكه للأعلى حتى يكون جزء منه على الأول و افعل بالسفلي منها مثل ذلك بحيث يكون جزء منه على الأول ، طبعا التحريك بنقر السهم العلوي عدة مرات :
(ج) حدد الجميع كما سبق ثم انقر قائمة تنسيق ثم محاذاة ثم أعلى فتظهر بهذا الشكل :
الخطوات أ و ب وج بإمكانك عملها يدوياً بتحريك الكائنات بالأسهم لكن هذه الطريقة أضبط .
(د) الخطوة الأخيرة هي وضع علامة لكل الكائنات الثلاثة ، اترك الكائنات محددات وانقر على قائمة عرض -أو اضغط على F4 - ثم خصائص صفحة التبويب غير ذلك وفي خاصية علامة اكتب 1
أنظر الصورة :
الكود :
1- أختر مربع التسمية من القائمة أو بالنقر عليه ثم أظهر الخصائص وفي صفحة التبويب أحداث في حدث عند الضغط على الماوس اكتب :
=ButtonClick(screen.ActiveForm;"1")
وكرر الأمر مع حدث عند رفع زر الماوس ، أنظر الصورة :
2- وفي الوحدة النمطية الخاصة بالنموذج أكتب :
Private Function ButtonClick(frm As Form, TagName As String)
Static DownOrUp As Integer
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acImage And ctl.Tag = TagName Then
With ctl
.Visible = Not .Visible
End With
End If
If ctl.ControlType = acLabel And ctl.Tag = TagName Then
If DownOrUp = 0 Then
DownOrUp = 1
ctl.Top = ctl.Top + 50
Else
DownOrUp = 0
ctl.Top = ctl.Top - 50
End If
End If
Next ctl
End Function
ملاحظة :
يجب أن تكون العلامة متساوية في كل الثلاثة الصورة العلوية والصورة السفلية ومربع التسمية . ويصح أن تضع رقم أو نص ولكن يجب أن تختلف العلامة في كل مجموعات الأزرار الأخرى .
وهذه أزرار حلوة وجميلة أيضا لكم هدية
تحياتي
الوارث
مشكور أح Biskra على هذا المجهود
وجزاك الله خيراً
ونتمنى أن تغدق علينا من كرم بحثك وجهدك
مشكور جدااااااا
الأخ دانيال
السلام عليكم ورحمة الله وبركاته وبعد
بارك الله فيكم اليه الاخوة الكرام انا نزلت الملف المرفق وحولت ان انسخ احد الازرير الملونه ووضعتها على النموذج لدي ولكن عن تحريم الموس من عليه او حوليه تظهر رسة خط هل يجب علي ان افعل احدى ادوات اكتف اكس ولى ايش الحكية
اخوك المحب
فرحان منطنط المسروري
أخي فرحان
أتمنى أن لا يكون قد نسيت أن تنزل المودل الموجود بالملف عند وضعك لأحد الأزرار ، يجب أن تنزل الزر والموديل الموجود بالملف وإلا لن يعمل الزر.
الأمر غير محتاج لأي من أدوات أكتف أكس
تحياتي
الوارث
اخي الاستاذ الفاضل / الوارث المحترم
السلام عليكم ورحمة الله
اشكرك اخي على الرد الجميل ولكن ممكن اخي توضيخ اكير ما المقصود بالموديل هل المقصود الصورة ام ماذا اخوك غشيم . بارك الله فيك وزادك من فضله وورثك الجنة إن شاء الله .
اخوك
فرحان منطنط المسروري
عذرا أخي العزيز
فقد سردت اسم المودل باللغة الإنجليزية هي (الوحدة النمطية) كما يطلق عليها بالمنتدى ، أقدم أعتذاري مرة أخرى فأنا ضعيف في الترجمة
تحياتي
الوارث
بارك الله فيك اخي الاستاذ / الوارث المحترم
وزادك الله من فضله
هذا الموضوع مغلق.
