AccessTr.neT

Tam Versiyon: Mause ok işaretini değiştirmek.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.

[Resim: do.php?img=4369]
Sayfalar: 1 2 3