baslikta hata olduysa hatayi duzeltebilirsiniz

module kaydedilecek kodlar

Option Compare Database



Option Explicit

Declare Function adiSWA_LoadCursorByNum Lib "user32" Alias "LoadCursorA" _

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

Declare Function adiSWA_LoadCursorFromFile Lib "user32" Alias _

"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function adiSWA_adiSetCursor Lib "user32" Alias "SetCursor" _

(ByVal hCursor As Long) As Long



Function SSF_DsplyMouseCursor(sCursorType As String) As Boolean

Dim sCursors As String

Dim iCursorPos As Integer

Dim lCursorType As Long

sCursors = "Hand32649AppStarting32650No32648Wait32514Arrow325 12Cross32515SizeAll32646SizeNESW32643SizeNS32645Si zeNWSE32642SizeWE32644UpArrow32516"

iCursorPos = InStr(1, sCursors, sCursorType)

lCursorType = Mid(sCursors, iCursorPos + Len(sCursorType), 5)

Call adiSWA_adiSetCursor(adiSWA_LoadCursorByNum(0&, lCursorType))

End Function

fare tasindiginda kismina yazilacak kodlar.

Dim HCur, holdcursor, retval As Long



HCur = adiSWA_LoadCursorFromFile("C:\Windows\Cursors\arrow_il.cur")

If HCur = 0 Then End

holdcursor = adiSWA_adiSetCursor(HCur)

"C:\Windows\Cursors\arrow_il.cur" yerine C:\Windows\Cursors\ dizininden istedigin cursoru secebilirsin.