تغيير شكل مؤشر الفارة

[abo2000bc]

الاخوة الكرام

السلام عليكم ورحمة الله

اما بعد

قمت بعمل نموذج يتضمن ( زر ) عند الضغط عليه يفتح استعلام .. والان اريد ان يتحول شكل مؤشر الفارة من شكل السهم الى شكل اليد عند المرور على هذا الزر .. كما اريد ان يتغير لون الزر ايضا عند المرور عليه بمؤشر الفارة .. هل يمكن تحقيق هذا ؟؟؟

ارجو من حضراتكم الرد

والسلام عليكم ورحمة الله

[amrdipo2003]

اخي العزيز

تحية طيبة وبعد:-

قم بانشاء وحدة نمطية(Module) وضع فيها الكود التالي

كود

Public Const IDC_APPSTARTING = 32650&

Public Const IDC_HAND = 32649&

Public Const IDC_ARROW = 32512&

Public Const IDC_CROSS = 32515&

Public Const IDC_IBEAM = 32513&

Public Const IDC_ICON = 32641&

Public Const IDC_NO = 32648&

Public Const IDC_SIZE = 32640&

Public Const IDC_SIZEALL = 32646&

Public Const IDC_SIZENESW = 32643&

Public Const IDC_SIZENS = 32645&

Public Const IDC_SIZENWSE = 32642&

Public Const IDC_SIZEWE = 32644&

Public Const IDC_UPARROW = 32516&

Public Const IDC_WAIT = 32514&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)

Dim lngRet As Long

lngRet = LoadCursorBynum(0&, CursorType)

lngRet = SetCursor(lngRet)

End Function

Function PointM(strPathToCursor As String)

Dim lngRet As Long

lngRet = LoadCursorFromFile(strPathToCursor)

lngRet = SetCursor(lngRet)

End Function

احفظ الوحدة باي اسم

اذهب للنموذج واختر الزر المراد تغيير شكل الفارة اثناء المرور علية في حدث عند تحريك الماوس ضع الكود التالي

كود

Call MouseCursor(IDC_HAND)