الحمد لله علىإحسانه و الشكر له على
توفيقه وإمتنانه والصلاة و السلام على
الحبيب الداعي إلى رضوانه
صلى الله عليه وعلى آله وصحبه و إخوانه
وبعد :
أحبتي في الله
السلام عليكم ورحمة الله وبركاته
ومرحبا بكم
زوار وأعضاء ومشرفين
وطاب المقام بكم معنا بإذن الله
السلام عليكم ورحمة الله وبركاته
{}فئة المتوسطين والمتقدمين {}
~:: تمهيد ::~
اليوم بإذن الله سنضع تطبيق بسيط
سنوضح من خلاله عمل بعض الإجراءات ألى وهو
MouseMove
هذا الإجراء المهم جدا في لغة vb6
و سنعرض هذا الإجراء بتبسيط كبير
حتى يتسنى للجميع فهم ماهية عمله
و سنتطرق أيضا إلى بعض الإجراءات مثل
Load
وهذا الإجراء شائع والكل يعرفه و لكن في الإعادة إفادة
و حتى الدوال التي سنستعملها مهمة جدا
و لكي نجمع الإجراءات هذه سنقوم بتصميم' مقلب '
بسيط لكنه سيوضح ما نحن بصدد التكلم عنه..
.... كيف ؟ تعال شوف معانا هذا
الشرح الممل إن شاء الله
~:: مقدمة::~
لن أتكلم كثيرا هنا كي أعرفكم بالإجراء
لكن من ناحية التهيئة النفسية فقط هذا الإجراء
إنتبه جييدا
" الإجراء (MouseMove ) هو للقيام بالعمل المطلوب
( الكود ) خلال مرور المؤشر على الأداة "
هذا تعريف بسيط له
إن شاء الله يكون مفهوم
الآن دعونا نبدأ بالعمل ونترك الفلسفة جانبا
أول شيئ
سم الله و
إفتح الفيجوال وضع هذه الأدوات
~::.....°.....::~
3 زراير و لابل
مثل الصورة تماما ( إذا كان أجمل ما في مانع طبعا )
أمممم ماذا سيحدث لو جربنا البرنامج ...
لا ..لاتذهب لأننا لم نكمل بعد سنضيف بعض الإثارة
و سنزيد مقلبنا هذا مكرا و سيملئ صاحبه غيضا
كيف ..... حسنا تابع وستعرف
قم بإضافة فورم جديد
( بنفس الأوات السابقة)
كما ترى في الصورة
في الفورم الأول قم بكتابة كود إظهار
الفورم الثاني في الكومند 1 " نعم "
Form2.Show
قم الآن بكتابة نفس الكود السابق تقريبا
و هذا في ما يخص الزرين 2 و 3
أما الزر 1 فقم بكتابة هذا الكود
( هذا الكود هو لعمل رسالة بسيطة ذات زر واحد )
أكتب بين الحبتين ما شئت من عبارات الإستفزاز
و بعد كود الرسالة أكتب كود لإغلاق البرنامج
بعد كل ذالك نقوم
بالضغط على 5 f
لترى البرنامج يعمل بشكل رائع
ملاحظة : أرجو إنتظار تحميل الصورة
هذا المقلب الذي صممناه سيقوم بحجب زر الذي يحتوي
عى إجابة النفي ويبقي الإجابة بنعم وهاذا ما يجعله
يستفز صاحبة لأنه يجبره على النيل من نفسه بنفسه
دون تدخل منك وبهاذا سيجن جنونه
الآن إذا أردت أن تقوم بإخراج برنامجك
إلى ملف بلاحقة التطبيقات exe
قم بالتالي
ثم قم بالتالي
هاكذا نكون قد إنتهينا من عمل هذا المقلب البسيط
نرجو الإستفادة للجميع
و إن شاء الله نلتقي مع إجراء آخر
السورس كود الدرس بصيغة pdf
هنا
http://filaty.com/f/810/73693/Mouse_move.pdf.htmlإلى هنا أقول لكم
دمتم مخلصين
لهذا البرنامج العظيم (الفيجوال بيسك)
و إلى اللقاء في موضوع آخر