Userformda görseli olmayan verilerin görsel kısmını gizleme

[ahmetildeniz]

Herkese merhaba,

Stok takip programı için bir stok kartı tasarlıyorum. Stok kartının içerisinde her ürün için bir kod oluşturuyorum.
Bir klasörün içerisinde stokların görselleri mevcut ve her görselin adı stok kartındaki ürün koduyla aynı. Görüntülemek istediğim ürünü görüntüleyebiliyorum istediğim görsel geliyor ancak görseli olmayan bir ürün seçtiğimde görsel kısmı boş görünmesi gerekirken bir önceki görüntülediğim ürünün görüntüsü görünüyor. Örneğin görseli klasörde mevcut olan matkap adlı ürün için matkap görseli gelirken, klasörde görseli mevcut olmayan dübel ürününü görüntülediğimde tekrar matkap görüyorum.

Aşağıdaki kodla görseli kaydediyorum.

Private Sub CommandButton13_Click()
On Error GoTo bitir
Dim imagelocation As String
Dim j As String
Application.FileDialog(msoFileDialogOpen).Show
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
imagelocation = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(imagelocation)
Image1.PictureSizeMode = fmPictureSizeModeStretch
j = TextBox20.Value
FileCopy imagelocation, "C:\malzemeresimleri\" & j & ".JPG"

bitir:
End Sub


Bu kodla ise ürünü açtığımda görseli geliyor.

Sub KayitlariGoster(urunkodu As String)

UserForm2.Image1.Picture = _
LoadPicture(Sayfa4.Range("b1").Value & "\" & UserForm2.TextBox20 & ".jpg")

Yardımcı olabilirseniz sevinirim. İyi forumlar

 

[Ferhat Pazarçevirdi]

Merhaba,

Her resmi, yüklemeden önce, image1 nesnesini boşaltırsanız olur.

image1.picture=Loadpicture(vbnullstring)

veya

image1.picture=Loadpicture("")

 

[ahmetildeniz]

Merhaba,

Her resmi, yüklemeden önce, image1 nesnesini boşaltırsanız olur.

image1.picture=Loadpicture(vbnullstring)

veya

image1.picture=Loadpicture("")

Teşekkür ederim hocam çalıştı