userform da resimleri nasıl gösterebilirim

[deppocu]

Arkadaşlar herkeslere kolay gelsin. Sizlerin sayesinde belirli bir yere geldim fakat bi yerde takıldım. forumda arama yaptım. Nette arama yaptım fakat konu ile ilgili bir yardıma rastlamadım. Sorum şu şekilde. Örnek bir dosyayı ekte gönderiyorum.

ListBox1 den ComboBox1 ile seçtiğim isme ait bilgiler TextBox1,2,3,4 de listelenecek ve image1 de de kişiye ait resim görüntülenecek.Resme kadar olan kodları burdan bulabildim fakat resim gelmesine ait kodu bulamadım. Açıklayabildimmi bilmiyorum.

hasan
5. sınıf
istanbul 6 nolu foto
bekar
mavi

Yani hasan ı seçtiğim zaman yukarıdaki gibi bir veri ve image1 de de hasana ait foto olsun istiyorum. Nasıl yapabilirim. Yardımcı olursanız sevinirim. Teşekkürler

 

[Orion1]

Resimler hani klasörde?
Birde resimlerin jpg uzantılı olması gerekiyor.

 

[deppocu]

Resimler hani klasörde?
Birde resimlerin jpg uzantılı olması gerekiyor.

arkadaşım farketmez sen bi klasör yaz. Resimlerin jpg olması da sorun değil onuda halledebilirim. Teşekkür ederim.

 

[Orion1]

Benim kırmızı renkli yol olarak resimlerin bulunduğu kalsördü siz kendi yolunuzu yazınız.
Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
Dim i As Byte

On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture("[B][COLOR="Red"]C:\Evren\Resimler\[/COLOR][/B]" & ComboBox1.Column(5) & ".jpg")


If ComboBox1.ListCount < 1 Then Exit Sub
For i = 0 To 3
    Controls("TextBox" & i + 1).Value = ComboBox1.Column(i)
Next
End Sub

 

[deppocu]

Evren Gizlen arkadaşım ellerine sağlık. Herşey gönlünce olsun. Teşekkür ediyorum. İstediğim buydu

 

[Orion1]

Evren Gizlen arkadaşım ellerine sağlık. Herşey gönlünce olsun. Teşekkür ediyorum. İstediğim buydu

Rica ederim.
İyi çalışmalar.

 

[duranproject]

Peki, klasör sayısı fazla olursa. Resim yolu nasıl olur?

 

[deppocu]

Peki, klasör sayısı fazla olursa. Resim yolu nasıl olur?

valla klasör bende de fazla ama hepsini bir yere toplamayı düşünüyorum bu durumda

 

[Orion1]

O zaman F sütununa Dosyanın yolu ile birlikte dosyanın adını yazmalısınız o zaman olur.Tabiki kodlarda düzenleme yapmak gerekir.

 

[Orion1]

Peki, klasör sayısı fazla olursa. Resim yolu nasıl olur?

Ekli dosyayı inceleyiniz.F sütununa resim yolu ve adı yazılmalıdır.

Image1.Picture = LoadPicture(ComboBox1.Column(5) & ".jpg")

 

[duranproject]

Merakimi Af Buyurun. Şİmdİ Jpg Sayisi Fazla Olacaktir. F Sutunu İÇİn Userformda İmage Adresİ(yolu) YÜklemesİ MÜmkÜn MÜ?

 

[Orion1]

Merakimi Af Buyurun. Şİmdİ Jpg Sayisi Fazla Olacaktir. F Sutunu İÇİn Userformda İmage Adresİ(yolu) YÜklemesİ MÜmkÜn MÜ?

F sütununa dosya yolunu ve dosya adını yazmalısınız.Ozaman istediğiniz klasördeki jpg uzantılı resim dosyalarını görebilirsiniz.Sizde öyle istemiyormuydunuz?

 

[duranproject]

Dİyelİm Kİ Dİzİnde 5000 Tane Resİm Var. Bİraz Kontrol Zor Olacaktir. Buna Uygun Bİr ÇÖzÜm Yolu Bulmamiz Gerekİr.en Azindan Userform Üzerİne Bİr Buton Koyarsak. F Üzerİnde Bİzİm BelİledİĞİmİz HÜcreye Dİzİnlerdekİ Resmİn Kisa Yolunu Yazsin, Dİyorum.

 

[duranproject]

Yanİ ÇÖzÜm Yok Mu?

 

[Orion1]

Dİyelİm Kİ Dİzİnde 5000 Tane Resİm Var. Bİraz Kontrol Zor Olacaktir. Buna Uygun Bİr ÇÖzÜm Yolu Bulmamiz Gerekİr.en Azindan Userform Üzerİne Bİr Buton Koyarsak. F Üzerİnde Bİzİm BelİledİĞİmİz HÜcreye Dİzİnlerdekİ Resmİn Kisa Yolunu Yazsin, Dİyorum.

Yanİ ÇÖzÜm Yok Mu?.

Çözüm var 10ncu mesajımda anlattım ve örnek dosya yolladım.

 

[ECYavuz]

Günaydın;

Dün gece üzerinde çalışıyordum ama acilen çıkmam gerekti. Sabah baktımki bayağı yol alınmış. Ama hiç değilse bir başka örnek olması açısından çalışmamı göndereyim.

Öncelikle Resim Yükle tuşuna basıp herkezin sesmini bir seçin sonra Combobox dan seçeceğiniz isimlere ait resimler otomotik gelecektir.

Gününüz aydın olsun.

 

[duranproject]

çok teşekkür ederim. Tam olarak istediğim bir şeydi. böyle daha kolay olmuş oldu.

 

[duranproject]

Şimdi de bu programa 2 çeşit yazdırma ayarı koymak istiyorum. 1.si sadece resim yazdırmak(a4), ikincisi de texboxtaki bilgileri ve resmi a4 kağıda yazdırmak istiyorum. Bu nasıl olabilir?