İmage'larla C:\ 'de herhangibir klasörden resim eklemek

[YAKAKENTİM]

Arkadaşlar herkese selam :hey:

Userform'da 20 veya daha fazla İmage nesnesi koysam ve bu nesneleri C'in içindeki herhangibir klasörde bulunan 20 adet resmin tamamını nasıl koyarım ..
daha önce yapılan çalışmalara baktım ve bir tanesinde seçilen klasörün içindeki resimler listbox'a okutulmuş,listbox'a tıklandığında tıklanan resmi İmage1'de gösteriyor..
Ben bunu combobox ile yapabiliyorum fakat sadece resimleri görüyor.dosyanın kendisini combobox ile seçip içinde nekadar resim varsa userformda bulunan (atıyorum100)adet İmage nesnesine arada listbox olmadan nasıl yaparım
yardımlarınız için şimdiden teşekkürler

 

[Levent Menteşoğlu]

Resimlerinizin "c:\resimler" klasöründe olduğunu kabul edersek aqşağıdaki kodu userforma kopyalayın.

Not:İmage nesnelerinin isimleri ardışık gitmelidir.

[vb:1:e0bff91a56]Private Sub UserForm_Initialize()
klasor = "C:\resimler\"
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files
c = c + 1
Controls("Image" & c).PictureSizeMode = fmPictureSizeModeZoom
Controls("Image" & c).Picture = LoadPicture(klasor & dosya.Name)
Next
End Sub
[/vb:1:e0bff91a56]