For Döngüsü İle Resim Gizleme-Gösterme

[sonat87]

Merhaba. Userform ekranınında for döngüsü ile image göstermek-gizlemek istiyorum. Bunun için şöyle bir işlem yaptım.
Userform ekranında basit bir program hazırlıyorum. 6 adet image koydum. Bunları isimlendirdim (S3_01_OB şeklinde). Yapacağım işlem; 1 yazan yeri for döngüsü ile döndürerek image leri gizlemek. Yazığım formül şu şekilde;

For i = 1 To 6
Set yazi1 = "Tek_Kad.S3_0" & i & "_OB"
yazi1.Visible = False
Next i

(Tek_Kad Userformun ismi. Bu kodları modül bölümünde yazıp çağırıyorum.) Set ile yazi1 e direkt olarak Tek_Kad.S3_01_OB yazınca kodlar çalışıyor. Fakat yukarıdaki gibi tanımlama yapınca hata veriyor. Set yazısını kaldırınca yazi1.visible satırında hata veriyor. Yardımcı olabilir misiniz.

 

[Mahmut Kök]

Controls ile birlikte tanımlayabilirsiniz. Aynı userform üzerindeki nesneler için işlem yaptığınızı düşünürsek şu şekilde kullanmanız yeterli olacaktır:

Set yazi1 = Controls("S3_0" & i & "_OB")

Farklı bir modül üzerinden çağırırsanız şu şekilde kullanabilirsiniz:

Set yazi1 = Tek_Kad.Controls("S3_0" & i & "_OB")

 

[sonat87]

Controls ile birlikte tanımlayabilirsiniz. Aynı userform üzerindeki nesneler için işlem yaptığınızı düşünürsek şu şekilde kullanmanız yeterli olacaktır:

Set yazi1 = Controls("S3_0" & i & "_OB")

Farklı bir modül üzerinden çağırırsanız şu şekilde kullanabilirsiniz:

Set yazi1 = Tek_Kad.Controls("S3_0" & i & "_OB")

Mahmut Bey Allah razı olsun. Çok teşekkür ederim.