(19/01/2014, 11:22)yorum70 yazdı: Daha önce başka bir siteden indirmiş ve kullanmıştım.(Sn.Taruz)
Gerçekten mükemmel bir çalışma.Yalnız, WİN7 64 Bitte hata vermişti.
32 bite göre yazılmış.
Tşk.
Uygulama içindeki modül içeriğini aşağıdaki ile değiştirirseniz 64 bit Access ile de çalışacaktır..:
Kod:
Option Compare Database
Option Explicit
Public Const IDC_HAND = 32649&
#If VBA7 And Win64 Then '64 bit için
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare PtrSafe Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#Else '32 bit için
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
#End If
Function MauseEL(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