CommandButton' un yazı tipi rengini değiştirme

[elaziz23]

Merhabalar, değerli ustalarımdan bir ricam var. Forumda arama yaptım ama ulaşamadım.

CommondButton nesnesinin üzerine mouse ile gelindiğinde Caption' un ForeColor özelliğinin değişmesini, mesela kırmızı olmasını, mouse' u düğmenin üzerinden uzaklaştırınca tekrar eski rengine gelmesini istiyorum. Bunu MouseMove' den mi yapacağız nasıl olacak, kodu nedir? Çok teşekkür ederim.

 

[programer]

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H80FFFF
End Sub

 

[elaziz23]

programer ustam kod çalışmıyor.

 

[programer]

"= &H80FFFF" kode "= &H0080FFFF&" olarak değiştirip deneyiniz

 

[elaziz23]

Benim anlatmak istediğim zemin rengi (BackColor) değil, yazı tipi rengi yani ForeColor' un değişmesi ve de mouse CommandButton un üzerinden ayrılınca yazının (Caption) rengi gene eski değerini alacak. Örneğin Düğmede "Tıkla" yazıyor, ben farenin imlecini "Tıkla" butonunun üzerine getirince "Tıkla" yazısı kırmızı olacak, fareyi butonun üzerinden çekince eski rengine (siyah) geri dönecek.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[elaziz23]

Korhan Ayhan hocam kafam karıştı, şunu birde UserForm olmadan yazarmısın, yani direk sizin örneğinizdeki FORM butonu üzerinden.

 

[Korhan Ayhan]

Merhaba,

Anlamadım. Sizin butonunuz nerede? Excel sayfasındamı?

 

[elaziz23]

evet excel sayfasında

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajıma sayfadaki CommandButton için örnek kodlamada ekledim. İnceleyin.

Sayfadaki buton için tasarım moduna geçtiğinizde butonun etrafında bir image nesnesi var. Dosyada şeffaf durumda. Bu sebeple mouse ile seçip kontrol edebilirsiniz.

 

[elaziz23]

Sağolasın Korhsn Ayhan hocam Allah razı olsun çok güzel çalışıyor. Ben sayfanın zeminini boyadığım için image nesnesinin belli olmaması için rengini tutturmak biraz zor oldu