Skip to main content

AccessTr.neT


Mause ok işaretini değiştirmek.

Mause ok işaretini değiştirmek.

Çözüldü #1
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.
Son Düzenleme: 07/06/2014, 16:24, Düzenleyen: fascioğlu.
Cevapla
Çözüldü #2
"işaterinin" ne demek?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #3
.Saygılarımla.Yazım hatası yapmışım,kusura bakmayın, Maus ok işreti yerine parmak işareti,el işareti vs.
Cevapla
Çözüldü #4
merhaba sayın fascioglu,

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

iyi çalışmalar,
saygılar.
.rar MouseisaretcisiATOZ.rar (Dosya Boyutu: 12,85 KB | İndirme Sayısı: 16)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Çözüldü #5
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.
SÖZ VERİYORUM... USLU DURUCAM...
Son Düzenleme: 07/06/2014, 16:55, Düzenleyen: access_delisi.
Cevapla
Çözüldü #6
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]
Son Düzenleme: 07/06/2014, 18:01, Düzenleyen: fascioğlu.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task