Buton üzerine gelindiğinde el işareti çıksın

Buton üzerine gelindiğinde el işareti çıksın - 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ığı: Buton üzerine gelindiğinde el işareti çıksın (/konu-buton-uzerine-gelindiginde-el-isareti-ciksin.html)

Sayfalar: 1 2

Buton üzerine gelindiğinde el işareti çıksın - Mehmet_Akif - 31/01/2011

Merhaba;
Değerli arkdaşlar biraz basit bir soru olabilir ama. yapamadım. Form üzerideki butonların üzerine geldiğimde el işareti çıksın istiyorum.
Güzel bir hafta geçirmeniz dileğiyle iyi çalışmalar arkadaşlar.

Cvp: Buton üzerine gelindiğinde el işareti çıksın - alpeki99 - 31/01/2011

Access 2007 ve Access 2010 da varsayılan olarak bu özellik var ama Access 2003 de bu özellik direkt olarak yok galiba. Bileşen ya da API kullanmak durumunda kalabilirsiniz.

Cvp: Buton üzerine gelindiğinde el işareti çıksın - Mehmet_Akif - 31/01/2011

Sayın alpeki hocam evdeki bilgisayarımda office 2010 kurulu ama işyerinde de çalıştığım için ordakiler office 2003 olduğundan mecburen 2003 kullanıyorum. Bunu kod yazarak halletmemiz mümkün olabilir mi.

Cvp: Buton üzerine gelindiğinde el işareti çıksın - alpeki99 - 31/01/2011

Olur ama biraz mantıksız olur çünkü her buton için o fonksiyonu çağıracaksınız. 2003 kurulu olmadığı için kontrol edemiyorum ancak link olarak buton yapılabiliyorsa o zaman el işareti çıkabilir.

Cvp: Buton üzerine gelindiğinde el işareti çıksın - okileturc - 31/01/2011

Bu kodu modül olarak kayıt edin



Option Compare Database

Option Explicit



Public Const IDC_APPSTARTING = 32650&

Public Const IDC_HAND = 32649&

Public Const IDC_ARROW = 32512&

Public Const IDC_CROSS = 32515&

Public Const IDC_IBEAM = 32513&

Public Const IDC_ICON = 32641&

Public Const IDC_NO = 32648&

Public Const IDC_SIZE = 32640&

Public Const IDC_SIZEALL = 32646&

Public Const IDC_SIZENESW = 32643&

Public Const IDC_SIZENS = 32645&

Public Const IDC_SIZENWSE = 32642&

Public Const IDC_SIZEWE = 32644&

Public Const IDC_UPARROW = 32516&

Public Const IDC_WAIT = 32514&



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

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



Declare Function LoadCursorFromFile Lib "user32" Alias _

  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long



Declare Function SetCursor Lib "user32" _

  (ByVal hCursor As Long) As Long



Function MouseCursor(CursorType As Long)

  Dim lngRet As Long

  lngRet = LoadCursorBynum(0&, CursorType)

  lngRet = SetCursor(lngRet)

End Function

Butonunuzun "fare taşındığında" olayına
MouseCursor IDC_HAND yazın



Private Sub butonunuz_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseCursor IDC_HAND

End Sub

Uygulamanızın tüm buton, resim, yazı denetimlerinin
fare taşındığında olayına "MouseCursor IDC_HAND" yazmanız
gerekir ( yani el görmek istediğiniz her denetimde )

Cvp: Buton üzerine gelindiğinde el işareti çıksın - Hayri16 - 31/01/2011

Sayın Mehmet Akif;
Ekteki örneğe bir bakar mısınız?