Mouse imleci - El ( 2003 için )

Mouse imleci - El ( 2003 için ) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Mouse imleci - El ( 2003 için ) (/konu-mouse-imleci-el-2003-icin.html)

Mouse imleci - El ( 2003 için ) - okileturc - 01/02/2011

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

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

Cvp: Mouse imleci - El ( 2003 için ) - ercansahin - 02/02/2011

Hocam, paylaşım ve açıklama için teşekkürler.

Cvp: Mouse imleci - El ( 2003 için ) - benremix - 02/02/2011

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

Saygılar...