Label Arkaplan Rengini Değiştirme

Bu dosya, bir UserForm üzerindeki dört Label kutusunun fare ile etkileşimini gösteren makrolu bir örnektir. Tıklanan Label'ın arka planı kırmızı olur, diğer Label'lar beyaz kalır; fare bir Label'ın üzerine geldiğinde o kutunun kenarlığı gri renkle vurgulanır.
Not: Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A2:D12 aralığında yer alan çalışma sayfasıdır; formül içermez.
• UserForm1: Label1, Label2, Label3 ve Label4 adlı dört Label kutusunu barındıran form ve olay kodları.
• Module1: Formu açan form adlı makro.

Makrolar​

• form: UserForm1 formunu görüntüler. Dosyadaki başlatma makrosu budur.
• ClickControl: Formdaki tüm Label'ları dolaşır. Tıklanan Label'ın BackColor değerini kırmızı yapar, diğer Label'ları beyaza çevirir.
• HoverControl: Fare üzerinde olan Label'ın BorderColor değerini gri yapar, diğerlerinin kenarlığını beyaza çevirir. Kenarlık rengi değiştiğinde Repaint ile form yeniden çizilir.
• Label1_Click - Label4_Click: Her Label'ın tıklama olayında ilgili Label ClickControl yordamına gönderilir.
• Label1_MouseMove - Label4_MouseMove: Fare hareketinde ilgili Label HoverControl yordamına gönderilir.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açıp form makrosunu çalıştırın.
3. Fareyi Label kutularının üzerinde gezdirin; üzerinde bulunulan kutunun kenarlığı gri olur.
4. Bir Label'a tıklayın; kutunun arka planı kırmızı olur, diğerleri beyaz kalır.
5. Başka bir Label'a tıklayarak kırmızı rengi o kutuya taşıyın.
6. Kodu kendi formunuza uyarlamak için Alt+F11 ile VBA düzenleyicisini açın ve UserForm1 kodunu inceleyin.