listview e tıklanınca imageye resim gelmesi

[plus44]

Slm Forumda aradım fakat istediğim şekilde birşey bulamadım,
ListView den şahsın adına tıkladıgımda bilgileri nasıl textbox a geliyorsa aynı şekilde şahsın resmininde image ye gelmesi, bu konuda kodlama nasıl yapılır, yardım edecek üstad varmı acaba, şimdiden tşklr

 

[revelte]

Resim yüklemek için LoadPicture metodunu kullanabilirsin.

Kullanımı şu şekilde:

Image1.Picture = LoadPicture("C:\Dosya.jpg")

 

[plus44]

ilginizden dolayı sağolun,
alma yolu tamam, tıklanan şahsın resmini nasıl seçeceğiz, yani belirleyeceğiz,
birde resimleri excel sayfasında alamazmıyız, illa c de bir dosyamı oluşturmak lazım

 

[revelte]

Veriyi ne şekilde tutuyorsun bilmiyorum ama belli bir resim klasörün olur. Sabit bir formatta o klasör içerisinden resim seçebilirsin veya veritabanında resim konumunu tutabilirsin.

İlla dosya olmak zorunda değil belge içerisinden de seçilebilir.

Bu şekilde havada kalıyor konu biraz. Örnek dosya paylaşırsan daha net bir şeyler söyleyebilirim

 

[zulfuernek]

Image1.Picture = LoadPicture("C:\Dosya.jpg")

yukaridaki kodda dosya yolu yerine textboda yazili olan dosya yolundaki resmi image nesnesinde nasil nasil gosterebiliriz

 

[PLİNT]

yukaridaki kodda dosya yolu yerine textboda yazili olan dosya yolundaki resmi image nesnesinde nasil nasil gosterebiliriz

Merhaba
Şöyle olabilir

Image1.Picture = LoadPicture(textbox1.Text & "\Dosya.jpg")

dosya adınıda "Textbox" dan almak gerekirse aşağıdaki gibi denersiniz

Image1.Picture = LoadPicture(textbox1.text & "\" & Dir(textbox1.text & "\" & textbox2.text & "*.*", vbDirectory))

 

[zulfuernek]

hocam olmadi ya listboxtan ilgili satiri sectigimde textboxlara ilgili bilgiler geliyor. resim dosya yoluda txtboxda gorunuyor fakat resim image nesnesinde gorunmuyor

 

[PLİNT]

ikinci kodları denediyseniz eksiklik olmuş şöyle deneyelim

Image1.Picture = LoadPicture(TextBox1.Text & "\" & Dir(TextBox1.Text & "\" & TextBox2.Text & "*.*", vbDirectory))

değilse "Tetbox" a getiren kodları ekleyiniz

 

[zulfuernek]

hocam burda textbox var. bizde saded 1 textbox var. burdaki 2 yerine ne yazmamiz gerekiyor

 

[PLİNT]

"Textbox1" 'i resim yolu yazılan "Textbox" adı ile değiştirin
"Textbox2" resim adıdır
Eğer resim adı kodların içinde olacaksa aşağıdaki gibi tırnak içinde ekleyin

Image1.Picture = LoadPicture(TextBox1.Text & "\" & Dir(TextBox1.Text & "\" & "RESİM ADI" & "*.*", vbDirectory))

Sizin bir örnek dosyanızda "Label" e yazılıyordu öyle ise "Textbox2.text" yerine "Label2.caption"(tırnaksız) yazarsınız

 

[zulfuernek]

@PLİNT hocam yok yanlis anlasildi sanirim sizide buyuk zahmete soktum. cok ckk lzur diliyorum . ornek bana ait degil. benim ki soyle userformda 1 lostbox var 1 textbox ve bir tanede image nesnesi. ben lostboxta hangi ismi secersem textbox1 de o kisinin resim yolu gorunuyor fakat bu textboxdaki resim yolunda bulunan resim image nesnesinde gorunmuyor. umarim anlasilir bir sekilde ifade edebilmisimdir

 

[PLİNT]

Rica ederim sorun değil
Resim adı nerede anlamadım ama bir yerden resim adı alınmalı listboxta ise
"Listbox" tan seçili satırda 1. sütunda resim adı varsa şöyle;

Image1.Picture = LoadPicture(TextBox1.Text & "\" & Dir(TextBox1.Text & "\" & Listbox1.value & "*.*", vbDirectory))

İki sütunlu "Listbox" olduğunu farzedersek ve resim adı seçilen "listbox " satırının 2. sütununda ise;
"Listbox1.value"
yerine
"ListBox1.List(ListBox1.ListIndex, 1)"
"listbox" ta 3. sütunda ise 1 yerine 2 yazarsınız

 

[zulfuernek]

hoca hemen deniyorum 28. sutunda ))

 

[zulfuernek]

ListBox1.List(ListBox1.ListIndex, 1)
hocam listbox 1 de hata veriyor.

 

[PLİNT]

İmkanı varsa dosya ekleyebilirmisiniz?
Ekte bir örnek dosya var
http://dosya.co/hegb453c5705/deneme.zip.html

 

[zulfuernek]

hocam yarin bir dosya hazirlayip gonderetim olur mu

 

[zulfuernek]

size ozel mesajla bilgi atarim