برمجة هروب الزر
المطلوب
المطلوب
Command1 |
Command2 |
نبرمج داخل الكوماند1 ما يلي:ـ
Privat Sub Command1_MouseMove(...) 'إخفاء الزر الأول Command1.Visable = False 'إظهار الزر الثاني Command2.Visable = True End Sub |
ملاحظة هامة جداً
السطر الأول والأخير لا يجب عليك أن تكتبه كل ما عليك فعله هو ما يلي
1-أنقر على الكوماند نقرا مزدوجا
2-من القائمة التي تأتي فوق البرمجة مباشرة من اليمين إختار MouseMove
ثم تظهر على الشاشة سطرين جدد تكتب بينهما ما كتب في البرمجة السابقة دون أول وآخر سطر.
قمنا في السابق ببرمجة الحدث على الزر الأول أما الآن فننتقل إلى الجزء الثاني
تقوم بنفس الخطوات على الزر الثاني مع تغيير ما يلي:ـ
تقوم بنفس الخطوات على الزر الثاني مع تغيير ما يلي:ـ
Privat Sub Command2_MouseMove(...) 'إخفاء الزرالثاني Command2.Visable = False 'إظهار الزر الأول Command1.Visable = TrueEnd |
عدل سابقا من قبل المزلزل في الثلاثاء أغسطس 05, 2008 4:08 pm عدل 2 مرات
الخميس يوليو 19, 2012 9:32 am من طرف نرمين
» البردقوش وفوائده
الثلاثاء أغسطس 23, 2011 9:44 am من طرف نرمين
» أغيثوا غزة ...جبال...
الأحد أبريل 24, 2011 9:40 pm من طرف المدير العام
» بالصورة تخلص من بقايا البرامج المحذوفة وتمتع باقلاع سريع لجهازك
الإثنين فبراير 15, 2010 11:42 pm من طرف جعفر
» ازعر بخطب في صلاة الجمعة
الثلاثاء أغسطس 11, 2009 6:26 am من طرف لبيك اقصانا
» طريقة لكسب المال من الواقع الالكترونية
الخميس مايو 14, 2009 10:59 am من طرف THE SNIPER
» لعبة ترافيان
الخميس أبريل 23, 2009 7:03 pm من طرف THE SNIPER
» اقراة فقط اذا كنت تمتلك وقت
الأربعاء مارس 18, 2009 4:34 pm من طرف لبيك اقصانا
» انا لله وانا اليه راجعون
الأربعاء مارس 18, 2009 4:27 pm من طرف لبيك اقصانا
» حصرياً تسريب النسخة Windows 7 RC1 Build 7057 32Bit/64Bit
الأربعاء مارس 18, 2009 3:58 pm من طرف لبيك اقصانا
» نكتة مضحكة!!!!
الأربعاء مارس 18, 2009 3:45 pm من طرف لبيك اقصانا
» جديد النكت
الأربعاء مارس 18, 2009 3:26 pm من طرف لبيك اقصانا
» أدخل مش رح تندم.......................................
الخميس فبراير 26, 2009 9:08 am من طرف لبيك اقصانا
» نعد من واحد الي اربعه والرابع يكتب رساله لأحد الأعضاء
الجمعة فبراير 20, 2009 8:20 am من طرف لبيك اقصانا
» قصة مدهشة جدا........رومنسيه لأبعد الحدود.......تابعوا......(لا تتردد بالدخول)
الجمعة فبراير 20, 2009 8:15 am من طرف لبيك اقصانا