Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/02/2011 23:38
Konu Sahibi
okileturc
Yorumlar
2
Okunma
2222
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

Visual Basic Code
MouseCursor IDC_HAND


resim

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

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Hocam, paylaşım ve açıklama için teşekkürler.


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,06:39
(02/02/2011, 00:33)BlackEagle Adlı Kullanıcıdan Alıntı: 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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Asayiş/Önleyici Şube Müdürlükleri için basit bir personel performans puanlama sistemi abdulvahap 37 13.754 27/09/2017, 08:49 ozanakkaya
  [Özel Üyelerimiz İçin] Access 2007 ve 2010 da formda sağ tıklama alpeki99 18 5.684 03/09/2017, 13:52 mengene2
  Bilgisayar Teknik Servisleri için Program mehmetdemiral 161 56.010 15/08/2017, 14:41 caglaryakar
  Jeoloji Mühendisleri İçin Sondaj Logu Raporlama Uygulaması irfanxdemir 4 2.768 01/08/2017, 12:58 Mtasdan
  okul veri tabanı lise için acil forumadmin 1 1.029 25/04/2016, 18:10 emir ustaoğlu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.