AccessTr.neT
Mause ok işaretini değiştirmek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mause ok işaretini değiştirmek. (/konu-mause-ok-isaretini-degistirmek.html)

Sayfalar: 1 2 3


Mause ok işaretini değiştirmek. - fascioğlu - 07/06/2014

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.


Cvp: Maus ok işaterinin değiştirmek. - access_delisi - 07/06/2014

"işaterinin" ne demek?


Cvp: Maus ok işaterinin değiştirmek. - fascioğlu - 07/06/2014

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


Cvp: Maus ok işaterinin değiştirmek. - atoz112 - 07/06/2014

merhaba sayın fascioglu,

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

iyi çalışmalar,
saygılar.


Cvp: Maus ok işaterinin değiştirmek. - access_delisi - 07/06/2014

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.


Cvp: Mause ok işaretini değiştirmek. - fascioğlu - 07/06/2014

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.

[Resim: do.php?img=4369]