Birden fazla labeli gizlemek(Label.Visible)

[metalog]

Merhaba arkadaşlar,

Labelx.Visible = False
özelliğini birden fazla label için nasıl birleştirebilirim. Örneğin;

Label1.Visible = False
Label20.Visible = False
Label39.Visible = False

Bu üç labeli

Label(1, 20, 39).Visible = False

ya da

For x = 1 To 39 Step 19
Label(x).Visible = False
Next

ya da

Dim ornek As Stranger
ornek = Label1, Label20, Label39
ornek.Visible = False
(böyle bir yazım şekli olmayabilir)

tarzında birleştirmek mümkün mü? Ya da oluru nedir bunun?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.
Gizlenmesini istemediğiniz labeller varsa Gizleme = Array("Label5", "Label8") satırı içinde belirtebilirsiniz.
Örnekte Label5 ve Label8 gizlenmez

Private Sub CommandButton1_Click()
    Dim Bak As Control
    Dim Gizleme As Variant
    Dim i As Integer
    Gizleme = Array("Label5", "Label8")
    For Each Bak In Me.Controls
        If TypeName(Bak) = "Label" Then
            For i = 0 To UBound(Gizleme)
                If Bak.Name = Gizleme(i) Then
                    Bak.Visible = True
                    Exit For
                Else
                    Bak.Visible = False
                End If
            Next
            
        End If
    Next
End Sub