Image nesnesinin boşaltılması.

[Galus]

Film bilgileri gösteren Userform üzerinde filimlerin afişlerini gösteren Image nesnesi de var. Temizle butonuna bastığımda textboxlar boşalıyor. Image deki yüklü resim nasıl boşaltılır?

Teşekkürler...

Private Sub CommandButton7_Click()
Dim nesne As Control
For Each nesne In Me.Controls
Select Case TypeName(nesne)
Case "TextBox": nesne = ""
End Select
Next
Call listele
End Sub

 

[Korhan Ayhan]

Selamlar,

Aslında eklediğiniz dosyada önerdiğim komut var. Sanırım gözünüzden kaçtı. Aşağıdaki şekilde kullanabilirsiniz.

Private Sub CommandButton7_Click()
    Dim nesne As Control
    For Each nesne In Me.Controls
    Select Case TypeName(nesne)
    Case "TextBox": nesne = ""
    End Select
    Next
    [COLOR=red]Image1.Picture = LoadPicture("")[/COLOR]
    Call listele
End Sub

 

[ynmcan]

Syn. Galus ;
Kodu aşağıdaki gibi düzenleyin.

Private Sub CommandButton7_Click()
Dim nesne As Control
For Each nesne In Me.Controls
Select Case TypeName(nesne)
Case "TextBox": nesne = ""
End Select
Next
On Error Resume Next
[COLOR="Red"]Image1.Picture = LoadPicture("")[/COLOR]
Call listele
End Sub

 

[Galus]

Sayın Korhan Ayhan ve Sayın ynmcany,

Yardım ve destekleriniz için saygılarımı arz ederim. Allah (CC) siz güzel insanlardan razı olsun.