بسم الله الرحمن الرحيم
عدنا لتقديم الدروس البسيطة للمبتدئين
درس اليوم عن تغير شكل مؤشر الفارة عند المرور فوق أي أداة
كالعادة نشغل الفيجوال بيسك ثم (Standard EXE)
نلاحظ الآن في خصائص الForm هناك خاصيتان :
الخاصية : MousePrinter هي لشكل مؤشر الماوس
وإذا أسدلنا القائمة سنجد :
وهي كالتالي:
0) الافتراضية
1) السهم
2) علامة (+)
3) علامة النص (I)
5) التحجيم
6 - 9) كلها للتحجيم أيضا
10) سهم للأعلى
11) علامة الانتظار
12) ممنوع
13) سهم مع علامة الانتظار
14) سهم مع علامة الاستفهام "؟"
والآن : إن أردت أن تضع شكل جديد وجميل للفارة ؟
إذا شفت ففي بعد هذه الأرقام رقم : 99-Custom
ويعني لك الخيار!
طيب رح أسويهاعندما يمر المؤشر فوق LAbel على شكل هذه المؤشرة (يجب أن يكون امتدادها Ico أو Cur)
وتجدونه في المجلد : C:\WINDOWS\Cursors
أولا نضع الصورة في الخاصية MouseIcon عن طريق الاستعراض بحثا عن أيقونة
والآن صارت الخاصية MouseIcon هي هذه الصورة
والخاصية MousePrinter = 99 هي MouseIcon وهي هذه الصورة
خلي الخاصية mouseprinter = 0 للفورم لأننا لا نريدها أن تتغير إلا عندما نمر على ال Label1
نكتب الأكواد التالية:
نضيف للفورم label
كود جعل الشكل يتغير عند المرور فوق الLabel:
رمز:Me.MousePointer = 99لا شك أنك اكتشفت الخطأ وهو أنه عند خروج المؤشر من نطاق ال label لا يعود لشكله لسابق
الحل
رمز:Me.MousePointer = 0جربوه
مع تحياتي Aleppo Force وارتقبوا المزيد