Skip to main content

AccessTr.neT


Mouse imleci - El ( 2003 için )

Mouse imleci - El ( 2003 için )

#1
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



okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Hocam, paylaşım ve açıklama için teşekkürler.
Cevapla
#3
(02/02/2011, 00:33)BlackEagle yazdı: Hocam, paylaşım ve açıklama için teşekkürler.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task