AccessTr.neT

Tam Versiyon: Mouse imleci - El ( 2003 için )
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Access 2003 uygulamalarında komut içeren
denetimlerin ( buton, resim, txt, vs ) üzerine
geldiğinizde "El" simgesinin çıkmasını istiyorsanız
aşağıdaki vb kodunu modüller sekmenizde yeni
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

El işaretini görmek istediğiniz denetiminizin
"fare taşındığında" olayına aşağıdaki kodu yazın


MouseCursor IDC_HAND

[Resim: wtpwm.jpg]

resimdeki örnekte saydam buton kullanılmıştır

Kolay gelsin
________________________________________________
Bir üyemizin sorusuna cevap olarak yayınlanan bu konu
Admin in talebi üzerine bu bölüme bir kez daha eklenmiştir



Hocam, paylaşım ve açıklama için teşekkürler.
(02/02/2011, 00:33)BlackEagle yazdı: [ -> ]Hocam, paylaşım ve açıklama için teşekkürler.

Saygılar...