Arkadaşlar,
Yalnızca üzerinde işlem yaptığım form üzerinde çalışmak kaydıyla Maus ok işaretini tıklamak istediği alana getirdiğimde parmak işaretine nasıl getirebilirim,siteden araştırdım ama tam olarak istediğim cevabı bulamadım.Saygılarımla.Yazım hatası yapmışım,kusura bakmayın, Maus ok işreti yerine parmak işareti,el işareti vs.

"işaterinin" ne demek?

.Saygılarımla.Yazım hatası yapmışım,kusura bakmayın, Maus ok işreti yerine parmak işareti,el işareti vs.

merhaba sayın fascioglu,

ek'te talebinize dair basit bir örnek uygulama mevcuttur.inceleyebilirsiniz.

iyi çalışmalar,
saygılar.

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.

Kardeşim olmadı sonuç olumsuz,uygulamayı kaldırdım bu seferde hata verdi.Nened acaba ?

---

Resimdeki hata...

---

Sayın Atoz 112
Örneği
2003 çevirebilirmisiniz.