Image1.Picture Resim Yüklemek ve silmek..

[ECYavuz]

Selamlar, Gününüz Aydın Olsun...

UserFormumuzda mevcut Image nesnesine;

Image1.Picture = LoadPicture("C:\1.jpg") ile resim yükleyip

Image1.Picture = LoadPicture("") ile image nesnesini boşaltabiliyoruz. Yani resmi siliyoruz.

Ayrıca UserForm üzerinde kaydettiğimiz image nesnelerini; üzerlerine tıklayınca

Image1.Visible = False ile görünmez yapıp
Image14.Picture = Image1.Picture başka image in üzerine aktarabiliyoruz.

Ancak birden fazla İmage nesnesini boşaltmak için
For i = 9 To 14
Controls("Image" & i & ".Picture") = LoadPicture("")
Next i
şeklinde bir uygulama yazdığımızda hata veriyor.

Image10.Picture = LoadPicture("")
Image11.Picture = LoadPicture("")
Image12.Picture = LoadPicture("")
Image13.Picture = LoadPicture("")
Image14.Picture = LoadPicture("")

şeklinde yazmak yerine hepsini silmek/boşaltmak için nasıl bir sistem uygulamalıyım...

Saygılarımla...

 

[Biolight]

Merhaba,

For i = 10 To 14
 Controls("Image" & i).Picture = LoadPicture("")
Next i

Kolay gelsin.

 

[ECYavuz]

Sağol, teşekkürler yazdıktan sonra bende hatamı anladım.