8 Sutunlu Listbox

Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
1 userform üzerinde 8 Sutundan oluşan bir listbox ve bir image bulunmakta... 8. Sutun Sayfa 1 de H sutununu oluşturuyor... Sayfa birde H sutununda H1 den H250' ye kadar bilgisayarda aynı klasör içerisinde bulunan jpg resimlerin adresleri mevcut.. Örnek(c:\belgelerim\1.jpg - c:\belgelerim\2.jpg) gibi listbox click olayında hangi satırı tıklarsam o satıra karşılık gelen resmin form üzerinde bulunan imagede gösterilmesini istiyoırum.. Arkadaşlar yardımlarınız için Teşekkür ederim...

Şöyle bir kod kullanıldı...
Image1.Picture = LoadPicture(Range("H2")) fakat bu kod yanlızca H2 hücresini referans olarak almakta nereye tıklanırsa tıklansın bu satırda bulunan adresteki resmi göstermekte....

ikinci olarak şöyle bir kod mevcut
Image1.Picture = LoadPicture(listbox2.column(8))

bu kod ise malesef çalışmıyor yardımlarınızı acilen bekliyorum arkadaşlar Teşekkür ederim...
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,614
Excel Vers. ve Dili
Pro Plus 2021
ikinci olarak şöyle bir kod mevcut
Image1.Picture = LoadPicture(listbox2.column(8))
listboxta satır ve sütunlar indexlemeye 0 dan başladığı için 8. sütun için column(8) yerine column(7) yapıp deneyin.
 
Katılım
29 Nisan 2007
Mesajlar
67
Excel Vers. ve Dili
Türkçe 2003
Arkadaşım çok teşekkür ederim... çalışıyor..:)) Fakat şöyle bir durumda ne yapmak gerekir.. Resmin adresi hücreye yanlış yazıldıysa hata mesajı veriyor nasıl yapabilirim... Bu da Bal üstüne kaymak olur... Tekrardan ilgine emeğine Teşekkür ederim...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki şekilde denermisiniz.:cool:
Kod:
On Error Resume Next
Image1.Picture = LoadPicture(listbox2.column(7))
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.
İyi çalışmalar.:cool:
 
Üst