Birden çok Label de seçili label Döngü ile Nasıl Renklendirilebilir.

[yenilik025]

Birden çok Label de var bunların hepsine tek tek kod yazmak yerine
seçili Label Döngü bir renk diğer Seçimi olmayan Labbeler Nasıl Renklendirilebilir.

 

[vardar07]

Deneyiniz.

Dim a As String
Private Sub Label1_Click()
a = 1
label_renk
End Sub
Private Sub Label2_Click()
a = 2
label_renk
End Sub
Private Sub Label3_Click()
a = 3
label_renk
End Sub
Private Sub Label4_Click()
a = 4
label_renk
End Sub
Private Sub Label5_Click()
a = 5
label_renk
End Sub
Sub label_renk()
For i = 1 To 5
b = Controls("Label" & i)
If b = Controls("Label" & a) Then
Controls("Label" & i).BackColor = RGB(102, 178, 102)
Else
Controls("Label" & i).BackColor = RGB(207, 207, 207)
End If
Next
End Sub

 

[yenilik025]

Hocam burada tümü aynı renk oluyor denediğimde .

Yer kaplamasın diye mesajımı düzenledim. Tamamdır Hocam Teşekkür ederim
Label lerin caption dan adını sildiğimde ya da dediğiniz gibi ayrı ayrı eklediğimizde seçime göre renklendirme oldu. Teşekkür ederim.

Yoksa tüm labellara ayrı ayrı kod yazılması kopyalanıp yapıştırılması gerekiyordu. Bu şekilde daha güzel olmuş.

 

[vardar07]

Bende hangisini seçersem o yeşil diğerleri gri oluyor. Labeller i kopyala yapıştır yapmışsınız onları tek tek eklerseniz normal olduğunu görürsünüz.