Userformdaki Tüm Resimler

[quesh]

Selamlar.

Form adındaki Userformumun üzerinde yaklaşık 80 tane Image nesnesi var, ve bu Image objeleri; rsm1, rsm2... şeklinde anlandırıldılar.

Form yüklenirken tümünün visible özelliğini False yapmak istiyorum.
For each döngüsüyle yapmaya çalıştım ama sanırım eksik yaptığım birşeyler var. Yardımlarınızı rica ederim.

 

[Murat OSMA]

Sizin yapmaya çalıştığınız kodları verebilirseniz; nerede hata yaptığınızı ya da nasıl olması gerektiğiniz size izah edebiliriz...

 

[quesh]

Dim resim as Image
For each resim in Userform1
Resim.visible=false
Next

diye yapmaya calısmıstım.

Sizin yapmaya çalıştığınız kodları verebilirseniz; nerede hata yaptığınızı ya da nasıl olması gerektiğiniz size izah edebiliriz...

 

[Murat OSMA]

Anladım.

Şu kodları kullanabilirsiniz;

Private Sub UserForm_Initialize()
    Dim i As Control
    For Each i In Me.Controls
        If VBA.TypeName(i) = "Image" Then
           i.Visible = False
        End If
    Next i
    Set i = Nothing
End Sub

 

[quesh]

Çok Teşekkür ederim. Çok büyük yardımınız oldu ve yeni bir şey daha ögrendim. Sağolun tekrar. İyi günler.

Anladım.

Şu kodları kullanabilirsiniz;

Private Sub UserForm_Initialize()
    Dim i As Control
    For Each i In Me.Controls
        If VBA.TypeName(i) = "Image" Then
           i.Visible = False
        End If
    Next i
    Set i = Nothing
End Sub

 

[Murat OSMA]

Sitede bu konuda bir çok örnek var. Arama yaparsanız birkaç farklı koda daha erişebilirsiniz...

İyi günler...