mouse icon

[ugurakin]

merhaba, ilişikteki dosyada mevcut userform üzerindeki resme tıkladığınızda internet e (kocbank a) bağlanıyorsunuz. Yalnız mouse icon unu resmin üstüne getirdiğimizde herhangi bir değişiklik olmuyor. Ben, resmin üzerine gelince el işaretinin çıkmasını istiyorum ama nasıl? :?

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/viewtopic.php?t=5404&highlight=harrow
http://www.excel.web.tr/viewtopic.php?t=5439&highlight=ikon

 

[Mahmut Bayram]

Properties'ten MousePointer'den ayarlayabilirsin. Ama resmi seçtikten sonra yap bu işlemi.

 

[ugurakin]

verilen linkleri inceledim ve aşağıdaki değişikliği yaptım. unutmadan h_arrow.cur dosyasını buldum ve cursors klosörüne kopyaladım.
bir sorun yok. teşekkürler.

sub userform1_Initialize()
Image1.MousePointer = fmMousePointerCustom
Image1.MouseIcon = LoadPicture("C:\Windows\Cursors\H_ARROW.CUR")

anlayamadığım boş bir userform a resim ekleyip gerekli kodları yazdıktan sonra çalıştırdığınızda el işareti sorunsuz geliyordu her neyse...
herkese kolay gelsin.

 

[ugurakin]

düzeltiyorum

Sub Userform_Initialize()
Image1.MousePointer = fmMousePointerCustom
Image1.MouseIcon = LoadPicture("C:\Windows\Cursors\H_ARROW.CUR")