Mouse'nin İcon'u değişsin.

[Orion1]

Mouse'nin Ýcon'u değişsin.

Mrb.
OptionButton1 üzerine geldiğinde,Mouse'nin İcon'u El şekilinde olsun istiyorum.
Teşekkür ederim.
Kolay gelsin.

 

[Haluk]

[vb:1:2eba003cd3]Private Sub UserForm_Initialize()
OptionButton1.MousePointer = fmMousePointerCustom
OptionButton1.MouseIcon = LoadPicture("C:\hand-m.ico")
End Sub[/vb:1:2eba003cd3]

Böyle kodla yaparsanız, belirtilen dosyanın kodun çalışacağı diğer bilgisayarlarda da aynen olmasını sağlamak zorundasınız.

Koddaki işleri VBE'de manuel olarak "Properties" penceresinden yaparsanız o zaman, ilgili *.ico dosyası, sözkonusu Excel dosyasının içine gömülmüş olur.

 

[siar]

Nesnenin özellikler bölümüne girin ve orada "MouseIcon" bölümünden daha önceden belirlediğiniz herhangi tipte bir mouse ikonu belirleyebilirsiniz.

 

[Orion1]

Yanıtınız için teşekkür ederim.
İyi çalışmalar.

 

[mraltin]

evet sn.sezarin dedigi gibi yanliz mouse pointerin 99 olmasi lazim unutma

 

[Orion1]

Mrb.
PC 'imde "hand-m.ico" el şeklinde olan bir ico dosyası yok.
Yollarsanız memnun olurum.
Teşekkür ederim.
İyi akşamlar.

 

[Haluk]

Ekteki *.cur dosyasını kullanın