[ تمت الإجابة ]كيف يمكن تغيير شكل الماوس

السلام عليكم

تفضل أخي الكريم .. لاحظ المودويل basHandleCursor

Option Compare Database
Option Explicit
Private Const IDC_APPSTARTING = 32650&
Private Const IDC_ARROW = 32512&
Private Const IDC_CROSS = 32515&
Private Const IDC_IBEAM = 32513&
Private Const IDC_ICON = 32641&
Private Const IDC_NO = 32648&
Private Const IDC_SIZE = 32640&
Private Const IDC_SIZEALL = 32646&
Private Const IDC_SIZENESW = 32643&
Private Const IDC_SIZENS = 32645&
Private Const IDC_SIZENWSE = 32642&
Private Const IDC_SIZEWE = 32644&
Private Const IDC_UPARROW = 32516&
Private Const IDC_WAIT = 32514&

Private Declare Function apiLoadCursorBynum Lib "user32" _
  Alias "LoadCursorA" _
  (ByVal hInstance As Long, _
  ByVal lpCursorName As Long) _
  As Long

Private Declare Function apiLoadCursorFromFile Lib "user32" _
  Alias "LoadCursorFromFileA" _
  (ByVal lpFileName As String) _
  As Long

Private Declare Function apiSetCursor Lib "user32" _
  Alias "SetCursor" _
  (ByVal hCursor As Long) _
  As Long

Public Function InsideCircle(img As Image, X As Single, Y As Single) As Boolean
  InsideCircle = False
  If (X - (img.Width / 2)) ^ 2 + (Y - (img.Height / 2)) ^ 2 <= (img.Height / 2) ^ 2 Then
	InsideCircle = True
  End If
End Function
Public Sub ChangeCursor()
Dim strDBPath As String
Dim lngRet As Long
Const curNAME = "MousePointer\Cursor.CUR"

  strDBPath = CurrentDb.Name
  strDBPath = Left(strDBPath, InStr(strDBPath, Dir(strDBPath)) - 1)
  If Len(Dir(strDBPath & curNAME)) > 0 Then
	lngRet = apiLoadCursorFromFile(strDBPath & curNAME)
	lngRet = apiSetCursor(lngRet)
  End If
End Sub
Public Sub ChangeCursorcross_rl()
Dim strDBPath As String
Dim lngRet As Long
Const curNAME = "MousePointer\cross_rl.CUR"
  strDBPath = CurrentDb.Name
  strDBPath = Left(strDBPath, InStr(strDBPath, Dir(strDBPath)) - 1)
  If Len(Dir(strDBPath & curNAME)) > 0 Then
	lngRet = apiLoadCursorFromFile(strDBPath & curNAME)
	lngRet = apiSetCursor(lngRet)
  End If
End Sub

ثم يكفي بعد ذلك تضع عند حدث تحريك الماوس لأي عنصر تحكم في كل النماذج الاستدعاء التالي

Call ChangeCursor

مع مراعاة وضع فولدر شكل الماوس المختار وموقعه - أنا أرفقته باسم MousePointer في نفس مجلد البرنامج

موفق أخي الكريم EKSEER

EK_afi.rar

بارك الله فيك يا اخي EKSEER

جــــــــــــــــــــــــــــــواب رائــــــــــــــــــــــــــــــــــــــــــــــع بكـــــــــــــــــــــــــــــــــــــــــل معنــــــــــــــــــــــــــــــــــــــــــى الكلمــــــــــــــــــــــــــــــــــــــــــــــــــــــــة

وجزاك الله عنا كل خير

شكرا اخي اكسير حل رائع،،

لكن هل جرب الاخ السائل وضع العنصر فوق مربع النص وجعل مربع النص غير ممكن،، او مقفل..

جرب هذا التعديل على المرفق الاصلي،، وهذا يخفف من الاكواد..

Bill_X6_Up.rar

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة