Listviewde seçim yapınca resim getirme

[Cengizhantr06]

merhaba iyi günler
foto adlı klasorde 2 resim var. Listviewden bir ürüne tek tıklatınca o ürünün adı ile aynı isimde olan resmin formdaki image bölümüne gelmesini istiyorum
örnek dosya ekledim yardımlarınızı bekliyorum

 

[Orion1]

Buyurun.

Private Sub ListView1_Click()
Image1.AutoSize = False
On Error Resume Next
gir_cik.TextBox36.Text = ListView1.SelectedItem
gir_cik.TextBox47.Text = ListView1.SelectedItem.SubItems(1)
gir_cik.ComboBox5.Text = ListView1.SelectedItem.SubItems(2)
gir_cik.TextBox44.Text = ListView1.SelectedItem.SubItems(3)
gir_cik.ComboBox4.Text = ListView1.SelectedItem.SubItems(4)
gir_cik.TextBox43.Text = ListView1.SelectedItem.SubItems(5)
gir_cik.TextBox48.Text = ListView1.SelectedItem.SubItems(6)
gir_cik.TextBox45.Text = ListView1.SelectedItem.SubItems(7)
gir_cik.TextBox46.Text = ListView1.SelectedItem.SubItems(8)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Foto\" & ListView1.SelectedItem.SubItems(3) & ".jpg")
End Sub

 

[Cengizhantr06]

Buyurun.

Private Sub ListView1_Click()
Image1.AutoSize = False
On Error Resume Next
gir_cik.TextBox36.Text = ListView1.SelectedItem
gir_cik.TextBox47.Text = ListView1.SelectedItem.SubItems(1)
gir_cik.ComboBox5.Text = ListView1.SelectedItem.SubItems(2)
gir_cik.TextBox44.Text = ListView1.SelectedItem.SubItems(3)
gir_cik.ComboBox4.Text = ListView1.SelectedItem.SubItems(4)
gir_cik.TextBox43.Text = ListView1.SelectedItem.SubItems(5)
gir_cik.TextBox48.Text = ListView1.SelectedItem.SubItems(6)
gir_cik.TextBox45.Text = ListView1.SelectedItem.SubItems(7)
gir_cik.TextBox46.Text = ListView1.SelectedItem.SubItems(8)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Foto\" & ListView1.SelectedItem.SubItems(3) & ".jpg")
End Sub

Çok teşekkür ederim evren bey ?

 

[Orion1]

İyi çalışmalar.