• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listviewde seçim yapınca resim getirme

Katılım
16 Mayıs 2020
Mesajlar
327
Excel Vers. ve Dili
Office 365 Türkçe
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
 

Ekli dosyalar

Buyurun.
Kod:
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
 

Ekli dosyalar

Buyurun.
Kod:
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 ?
 
İyi çalışmalar.
 
Geri
Üst