Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
Ne irfandır veren ahlaka yükseklik ne vicdandır.
Fazilet hissi insanlarda Allah korkusundandır.
Son Düzenleme: 31/01/2011, 12:54, Düzenleyen: Mehmet_Akif.
Cevapla
Çözüldü #2
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
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.
Ne irfandır veren ahlaka yükseklik ne vicdandır.
Fazilet hissi insanlarda Allah korkusundandır.
Cevapla
Çözüldü #4
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
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 )


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
Sayın Mehmet Akif;
Ekteki örneğe bir bakar mısınız?
.rar tus2003.rar (Dosya Boyutu: 8,45 KB | İndirme Sayısı: 65)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task