her etiket için tek tek kod yazabilirim.Fakat tüm etiketleri tek tek yazmaz zor .
Sizin bahsettiğiniz "etiket63.backcolor.255" kod'u da sanırım tek tek için olsa gerek .Çünkü denedim olmadı.
Arama yaparken denk geldim bu konuya. Bununla ilgili süper bir örnek var. Hemen onun linkini vereyim dedim:
Metin Kutularının Etiketlerini Girişe Göre Etkinleştirme
Sizin tüm etiketlerin rengini değiştirmek istediğinizi görünce ekleyivereyim dedim... Gerçi aradan 1,5 ay geçmiş, soru arada kaynamış galiba ama belki birilerinin işine yarar...
Kolay gelsin...
textbox ların im bölümüne "t" yaz etiketlerin im bölümüne "e" yaz sonra bu kodu bir modüle yapıştır
Kod:
Sub kontroller(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.Tag = "t" Then
ctl.BackColor = 255
End If
If ctl.Tag = "e" Then
ctl.BackColor = 16776960
End If
Next ctl
End Sub
ve formda bir düğmenin koduna şunu yaz
kontroller me
göreceksinki etiketler başka renk textboxlar başka renk alacak
şayet bunu active olan denetime çevirecek olursak sadece içine girdiğimiz denetimin rengi değişir
Bende soruyu şimdi farketmişim, aslında kontrolün tipi kontrol edilip, sadece labellara işlem yapılabilir.
Kod:
For Each Kutu In Me.Controls
If TypeOf Kutu Is Label Then
With Kutu
.BackColor = 65535
End With
End If
Next
veya böyle
Kod:
For Each Kutu In Me.Controls
With Kutu
If .ControlType = acLabel Then
.BackColor = 65535
End If
End With
Next
tabii label'ların arkaplan şeklinin transparan değil normal olması gerekiyor.
Sn Seruz
"Arkaplan şeklinin transparan değil normal olması gerekiyor"
açıklamanıza göre aşağıdaki kodu nasıl yazabiliriz?
Arkaplan=Transparan veya Arkaplan=Normal
Sorun çözüldü..
Me.Command0.BackStyle = 0 veya Me.Command0.BackStyle = 1