listbox1'den listbox2'ye aktarımın ardından seçime göre resim atama

[ziabbs]

Merhabalar,

buradan indirdiğim son_kod_arşiv dosyasından yararlanarak oluşturduğum dosyada listbox1, listbox2 ve image bölümü mevcut. listbox1'de yönetmenler mevcut, birini seçtiğinde listbox2'de filmlerinin görünmesinin ardından film seçimine göre image bölümüne filmin kapağını aktarmak istiyorum.

dosya ektedir. yardımlarınız için teşekkürler şimdiden..

 

[ziabbs]

yok muydu yardımcı olacak biri?

 

[ziabbs]

arkadaşlar yok mu bunun bir çözümü?

 

[Orion1]

A sütununa filmleri yazın.B sütununa resimlerin yol ve ad ve uzantılarını yazın.
Ondan sonra tekrar yardım isteyin.
Sanırım yardım eden arkadaşlar olacakır.
Örnek :
B1 Dilek Taşı
C2 C:\resimlerim\Gülden_karaböcek.jpg

 

[ziabbs]

dediğiniz gibi yaptım, dosya ektedir.

 

[Orion1]

Dosayanız ektedir.

Option Base 1
Private Sub ListBox1_Click()
Dim myarr(), list(), i As Long, sat As Long, a As Long
If ListBox1.ListIndex < 0 Then Exit Sub
ListBox2.Clear
sat = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
list = Sheets("Sayfa1").Range("B2:D" & sat).Value
ReDim myarr(1 To 2, 1 To sat)
For i = 1 To UBound(list)
    If list(i, 1) = ListBox1.Value Then
        a = a + 1
        myarr(1, a) = list(i, 2)
        myarr(2, a) = list(i, 3)
    End If
Next i
Erase list
If a > 0 Then
    ReDim Preserve myarr(2, a)
    ListBox2.Column = myarr
End If
Erase myarr
End Sub

Private Sub ListBox2_Click()
Image1.Picture = LoadPicture("")
On Error GoTo hata
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ListBox2.Column(1))
Exit Sub
hata:
Image1.Picture = LoadPicture("")
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "Y Ö N E T M E N L E R       coder:evrengizlen@hotmail.com  " & Format(Now, "dd mmmm yyyy  hh:mm")
ListBox1.RowSource = "Sayfa1!A2:A" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
End Sub

 

[ziabbs]

çok sağol..