[ناجي إبراهيم]

السلام عليكم...

= استعمال مؤشرات فأرة (Cursors) مخصصة، و المؤشرات المتحركة (Animated):

يمكن من خلال نافذة الخصائص ضبط شكل مؤشر الفأرة (Cursor أو Mouse Pointer) و ذلك باختيار أحد الأشكال المعرفة مسبقاً في VB6 و ذلك من خلال الخاصية MousePointer، و كذلك يمكننا استعمال مؤشرات من ملفات خارجية و ذلك بضبط الخاصية MousePointer على 99-Custom و استعمال الخاصية MouseIcon لتحديد ملف المؤشر (امتدادات الملفات الممكن استعمالها كمؤشرات للفأرة هي cur و ico).

هناك نوع آخر من المؤشرات و هي المؤشرات المتحركة (Animated Cursors) حيث يظهر مؤشر الفأرة على شكل له حركة... هذا النوع غير مدعوم في VB6، و لكن يمكننا استعمال دوال API من أجل استعمال تلك المؤشرات:

1. ضع التصريحات التالية في قسم التصريحات العام للـ Form. إذا أردت استعمالها في أكثر من نافذة فضعها في Module و غير Private إلى Public:

كود :

Private Const GCL_HCURSOR = (-12)

Private hOldCursor As Long

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

2. بفرض أننا نريد تغيير مؤشر الفأرة للمكون Text1. نضع الكود التالي في الحدث Load للـ Form:

كود :

Private Sub Form_Load()
    Dim hNewCursor As Long

    hNewCursor = LoadCursorFromFile("C:\Windows\Cursors\aero_working_l.ani")
    hOldCursor = SetClassLong(Text1.hwnd, GCL_HCURSOR, hNewCursor)
End Sub

* طبعاً بدل المسار C:\Windows\Cursors\aero_working_l.ani نضع مسار و اسم الملف الخاص بنا (تجد بعض ملفات المؤشرات المتحركة في المجلد Cursors ضمن المجلد Windows التابع للنظام).

3. في الحدث Unload للـ Form نكتب السطر التالي:

كود :

hOldCursor = SetClassLong(Text1.hwnd, GCL_HCURSOR, hOldCursor)

نرجو الاستفادة و السلام.