Mause ıconunu değiştirmek

K

karaayhan

Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
accesste mause ıconunu değişterebilen bir yöntem varmı acaba?
mesela istediğimiz bir şekli kullanmak istiyoruz. butonlarda bir şekil text kutularında başka bir şekil olabilir...
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın karaayhan,

Bir API buldum ama oturup uygulamadım. Tüm yazıyı ekliyorum
İyi çalışmalar :D

Access allows us to display specific mouse pointers by controlling the MousePointer property of the Application object. However, it does not have the hand pointer (for example) pre-defined.

Given a local ICO (icon) file, we can assign it to the Mouse pointer by using the LoadCursor and SetCursor API functions.

'*********** Code Start ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
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

Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************
 
K

karaayhan

Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
Bu işimi yaradı sağolasın sayın modalı ellerine sağlık kardeş..

Kolay gelsin. :Dost:
 
E

euskent

Katılım
26 Mayıs 2006
Mesajlar
78
Excel Vers. ve Dili
2003
uygulayamadım

Kodu yeni bir modül olarak yazdım. Function'ı Call ile mi çağırmam gerekiyor. Ayrıca formun açılırkenki yordamınamı yazmam gerekiyor? (=Call LoadCursor) gibimi?
 
K

kerrrim

Katılım
7 Kasım 2006
Mesajlar
109
Excel Vers. ve Dili
2003
Bu olayın nasıl yapıldığını bizede anlatırsanız sevirim.
Teşekkürler
 
K

kerrrim

Katılım
7 Kasım 2006
Mesajlar
109
Excel Vers. ve Dili
2003
Arkadaşlar bu konuda yardım edecek birini bekliyorum.Yoksa bu konu sadece iki kişi arasında kalan bir konu olacak.kısaca anlatırsanız sevinirim.
Teşekkürler.
 
G

gulsum1

Katılım
22 Ocak 2007
Mesajlar
815
Excel Vers. ve Dili
2003
Cevap

benim koyduğum access kod deposunda var istediğin icon nurasını gir sana o icon gelsi orda şimdilik el ikonu var
 
M

modalı

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın arkadaşlar,

Kodlar hazır birazda siz yapmaya çalışın diye bekliyorum.

Her neyse örneği de ekliyorum umarım yararlı olur.

İyi çalışmalar:)
 
K

kerrrim

Katılım
7 Kasım 2006
Mesajlar
109
Excel Vers. ve Dili
2003
TeŞekkÜrler

Sayın modalı gerçekten harikasınız.Ama bizide mazur görün lütfen bu işi öğrenmeye çalışıyoruz ve inanınki öğrenme konusunda sizin katkılarınız tartışılmaz.Ayrıca örnek olunca daha kolay çözüyorum işi.
Tekrar teşekkürler.
KENDİNİZE VE UMUTLARINIZA İYİ BAKIN.
 
H

hulu_hulya

Katılım
1 Ağustos 2007
Mesajlar
2
Excel Vers. ve Dili
Microsoft excel 2003 türkçe
Teşekkürler

Sayın modalı gerçekten çok teşekkürler... bende bu işi pek bilmeyenlerdenim ve yana yakıla mouse el hareketini nasıl yapacağımı arıyordum çok saolun Allah razı olsun...
 
E

Ergün Güler

Katılım
5 Ocak 2009
Mesajlar
1,586
Excel Vers. ve Dili
2003 Türkçe
Aşağıdaki kodu Excel'e nasıl uyarlayıp, istifade edebilirim?

Kod: 
'*********** Code Start  ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
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

Function PointM(strPathToCursor As String)
  Dim lngRet As Long
  lngRet = LoadCursorFromFile(strPathToCursor)
  lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst