Aktif label veya commandbutton..

[xrolexx]

Merhaba arkadaslar,

Bir labelin mouse ile üzerine geldigimde renginin degismesini istiyorum. Ama 50 tane label oldugunu varsayarsak genel olarak nasil bir kod yazabiliriz?

Yani asagidaki uzun yoldan degil de bütün labeller icin kullanilabilecek daha pratik yol var midir?

Sub Label1_MouseMove ()

Label1.Font.Bold=True
Label2.Font.Bold=False
Label3.Font.Bold=False
Label4.Font.Bold=False
Label5.Font.Bold=False
Label6.Font.Bold=False
.
.
.
.
Label50.Font.Bold=False

End Sub

 

[hamitcan]

Ben üç Label ile yaptım. Siz kodda, bu sayıyı elliye çıkartarak deneyin.

 

[xrolexx]

Cok tesekkürler..Süper oldu ;-)