Userform üzerindeki image silmek

[muratgunay48]

Arkadaşlar, sayın hocalarım, Userform açılınca image1'de açılıyor. Bunu engellemek için

Sub Auto_Open()
Application.Visible = False
UserForm1.Show 0

Image2.Picture = LoadPicture("")

End Sub

Şeklinde kod kullandım ama hata veriyor. Neden acaba?
Yardımcı olabilirseniz çok sevinirim.
Teşekkür ederim.
Saygılarımla.

 

[netzone]

..Userform açılınca image1'de açılıyor. Bunu engellemek için
...
Image2.Picture = LoadPicture("")
...

Merhaba,
Image1 açılıyor demişsiniz ancak kod da Image2 yi boşaltmışsınız. sorun bu olabilir mi?

 

[muratgunay48]

Merhaba,
Image1 açılıyor demişsiniz ancak kod da Image2 yi boşaltmışsınız. sorun bu olabilir mi?

Hayır hocam, image belirtmek istedim. Rastgele isim.
Userform dosyamda adı image2
Ayrıca, yeni kayıt için 1'den 19'a kadar textbox'ları boşalttığım kodum var, onun en altına
Image2.Picture = LoadPicture("")
Yazdım, sorunsuz çalışıyor.
Ama hocam burada çalışmıyor.

 

[Biolightant]

Merhaba,
Auto_Open() makro kodlarını Module yazıyorsunuz
kodlar çalıştığında Image ın nerede olduğunu bilemediğinden dolayı hata veriyor.
Image1.Picture = LoadPicture("") bu kodun başına image hangi userform da ise onun ismini yazmanız gerekli

UserForm1.Image1.Picture = LoadPicture("")

 

[muratgunay48]

Merhaba,
Auto_Open() makro kodlarını Module yazıyorsunuz
kodlar çalıştığında Image ın nerede olduğunu bilemediğinden dolayı hata veriyor.
Image1.Picture = LoadPicture("") bu kodun başına image hangi userform da ise onun ismini yazmanız gerekli

UserForm1.Image1.Picture = LoadPicture("")

Çok teşekkür ederim hocam.
Emeğinize sağlık.
Hocam deneyip sonucu yazacağım.
Normalde Çalışma kitabına yazdım, yine olmadı.
O da dediğiniz gibi olabilir.

 

[Ouzz_z]

Form açılmadan fotoğraf yüklendiği için harici olarak açılıyor olabilir. Activate işleminde yazıp picture özelliğini nothing yapıp sonra atamayı dener misiniz?

 

[muratgunay48]

Form açılmadan fotoğraf yüklendiği için harici olarak açılıyor olabilir. Activate işleminde yazıp picture özelliğini nothing yapıp sonra atamayı dener misiniz?

Merhaba hocam,

Sub Autpen()
Application.Visible = False
UserForm1.Show 0
UserForm1.Image2.Picture = LoadPicture("")
End Sub

Şeklinde yazdım olmadı. Sürekli son üyenin fotoğrafı açılışta geliyor.
Söylediğinizi tam olarak anlamadım. Biraz açar mısınız?
image2 yolunu resim_yol adlı textbox'tan alıyor.

 

[Ouzz_z]

Picture özelliğini nothing yapın resmi göstermek istemiyorsanız

 

[muratgunay48]

Picture özelliğini nothing yapın resmi göstermek istemiyorsanız

Hocam picture özelliği nereden değiştiriliyor acaba? Araştırdım bulamadım.

 

[Ouzz_z]

picture=nothing gibi yazacaksınız, load "" değil.

 

[muratgunay48]

picture=nothing gibi yazacaksınız, load "" değil.

Hocam şu şekilde yazdım. Şöyle bir hata verdi.

Sub Autpen()
Application.Visible = False
UserForm1.Show 0
UserForm1.Image2.Picture = NothingPicture("")
End Sub

 

[Ouzz_z]

UserForm1.Image2.Picture=Nothing

 

[muratgunay48]

UserForm1.Image2.Picture=Nothing

Yok hocam yine açılıyor. Textbox'lar boş.

 

[Ouzz_z]

Form'un activate veya initialize kısmına yazıp dener misin? Ayrıca image kontrolünün sol tarafta görünen picture özelliğini de silmek mümkün

 

[muratgunay48]

Form'un activate veya initialize kısmına yazıp dener misin? Ayrıca image kontrolünün sol tarafta görünen picture özelliğini de silmek mümkün

Yok hocam olmadı. Sizi de yordum. Teşekkür ederim.

 

[Ouzz_z]

dosyayı paylaşırsanız sorun daha iyi anlaşılır. mutlaka bi yerde resim atama yapılıyordur yoksa böyle bir hata olmaz.

 

[muratgunay48]

dosyayı paylaşırsanız sorun daha iyi anlaşılır. mutlaka bi yerde resim atama yapılıyordur yoksa böyle bir hata olmaz.

Haklısınız hocam. Ama dernek üye dosyası.