*فورم* تغيير شكل المؤشر في نماذج مايكروسوفت اكسس

اظن ان هذا الكود يعمل في اكسس ايضا

Screen.MousePointer = vbHourglass

لتحديد مؤشر خارجي اظن ان هذا الكود يعمل ايضا

Me.MouseIcon = "c:12.ico"

Me.MousePointer = vbCustom

جرب وممكن

الأمر التالي يحول الفأرة الى ساعة رملية

DoCmd.Hourglass True

وهذا يعيدها كما كانت

DoCmd.Hourglass False

وأما بخصوص دوال API فسأبحث عن المطلوب وإذا وجدته كتبته .

ولك تحياتي

لقد بحث ووجدث نقلا عن احد المواقع وقد جربته ولكن تظهر المشيرة الجديدة لأجزاء من الثانية ثم تختفي !! ولم أعرف السبب .

إذا جربت هذا الكود فاكتب النتيجة لنستفيد منها جميعاً

ولك تحياتي

Private Const IDC_APPSTARTING = 32650&

Private Const IDC_HAND = 32649&

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 LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Private Declare Function LoadCursorFromFile Lib "user32" Alias _

"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private 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)

lngRet = LoadCursorFromFile(strPathToCursor)

lngRet = SetCursor(lngRet)

End Function

الموضوع قديم ولكن وجدن إجابة السؤال فأحببت أن أفيدكم بها .

توجد العديد من المؤشرات داخل المجلد C:WINDOWSCURSORS وقد وجدت هذا الكود يغيرها حسب رغبتك فقط غير الاسم :

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
    "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" _
    (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long

Private Const OCR_NORMAL = 32512

Public lngOldCursor As Long, lngNewCursor As Long

Public Sub StartAnimatedCursor(AniFilePath As String)

    'Create a copy of the current cursor,
    'for Windows NT compatibility

    lngOldCursor = CopyIcon(GetCursor())

    'Check the passed string, if it contains
    'a solid file path, then load the cursor
    'from file. If not, add the App.Path,
    '*then* load cursor...

    If InStr(1, AniFilePath, "") Then
        lngNewCursor = LoadCursorFromFile(AniFilePath)
    Else
        lngNewCursor = LoadCursorFromFile(App.Path & _
            "" & AniFilePath)
    End If

    'Activate the cursor

    SetSystemCursor lngNewCursor, OCR_NORMAL

End Sub

Public Sub RestoreLastCursor()

    'Restore last cursor

    SetSystemCursor lngOldCursor, OCR_NORMAL

End Sub

في حدث نقر زر أمر مثلا ضع الاستدعاء التالي :

StartAnimatedCursor ("c:windowscursorsAppstart.ani")
MsgBox "إضغط هنا لإعادته كما كان ...."
' السطر التالي إعادة كما في السابق
RestoreLastCursor

مع ملاحظة أن الانترنت يوجد فيها العديد من المواقع تحوي عدد كبير من المؤشرات ومن يعرف من الأخوة أحد هذه المواقع فليتحفنا بها .

وللجميع التحية

وللجميع التحية