AccessTr.neT

Tam Versiyon: Me nedir?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ı.Img-grin
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
Sayfalar: 1 2