ListBox'tan seçileni Image'da gösterme

[crion]

Selam arkadaşlar, bir sorum var sizlere. Bu forumdan bulduğum excel fotoğraf önizlemesini programıma ekledim ve gerekli değiştirmeleri uyguladım. Program seçili olan dosyaya ait klasördeki fotoğrafları ListBox2'ye başarıyla indexliyor, tek yapamadığım ListBox2'de dosya adına tıklandığında Image2'de o fotoğrafın gösterilmesi. Aşağıdaki kod o sorunlu kısma ait, sizce ne yapmalıyım?

MsgBox ("Burası resimin ekranda gösterilmesi kısmı")
    Dim resimyukle
    resimyukle = ListBox2.List(ListBox2.ListIndex, 1)  'buraya ne yazmalı?
    On Error Resume Next
    Image2.Picture = LoadPicture(resimyukle)
    Image2.PictureSizeMode = fmPictureSizeModeStretch

 

[Necdet]

Merhaba,

Kendi kullandığım kodu aynen yazıyorum siz ilgili değişikliği yapınız.

    SicilNo = ListView1.ListItems(ListView1.SelectedItem.Index).Text    
    Image1.Picture = LoadPicture(Yol & SicilNo & ".jpg")

Yol değişkeni doğal olarak resimlerin bulunduğu yol.

Not : ListView kullandığınızı sandım. Olsun bu da bir seçenek olarak kalsın.

 

[crion]

Merhaba,

Kendi kullandığım kodu aynen yazıyorum siz ilgili değişikliği yapınız.

    SicilNo = ListView1.ListItems(ListView1.SelectedItem.Index).Text    
    Image1.Picture = LoadPicture(Yol & SicilNo & ".jpg")

Yol değişkeni doğal olarak resimlerin bulunduğu yol.

Not : ListView kullandığınızı sandım. Olsun bu da bir seçenek olarak kalsın.

Teşekkürler Necdet Bey, kendim halletmeyi başardım. Size şunu sorayım, Image'da görüntülenen resmi temizlemenin bir yöntemi var mı? Image.Clean gibi bir metod mesela?

 

[Necdet]

Merhaba,

Image1.Picture = LoadPicture("")

 

[crion]

Merhaba,

Image1.Picture = LoadPicture("")

Düşündüğümden basitmiş Çok teşekkürler.

 

[zulfuernek]

keşke bitmiş dosyanını paylaşsaydınız. en azından bizde daha fazla hocalarımızı yormayız ve en azından bizde ekstra şeyler öğrenebiliri. malum bilgi paylaşıldıkça güzeldir.