Listbox Da Seçilen Resimin Görüntülenmesi

[bitmez13]

comboboxda kategorilere göre belirlenen dosyalar sıralanıyor

tVideo = {".jpeg", ".bmp", ".jpg"}

nSecilen = ComboBox.GetSelected(this)
sMetin = ComboBox.GetItemText(this, nSecilen)
if sMetin ~= "Kategori Seçiniz" then
tAra = File.Find(_SourceFolder .. "\\resimler\\" .. sMetin, "*.*", false, false, nil, nil)
if tAra then
ListBox.DeleteItem("resim", -1)
for i,v in pairs(tAra) do
bKontrol = false
for x,y in pairs(tVideo) do
if y == String.SplitPath(v).Extension then
ListBox.AddItem("resim", String.SplitPath(v).Filename, v)
end
end
end
end
end

listboxda ise seçilen resimi image.load olarak gösteremedim

tSecilen = ListBox.GetSelected(this)
if tSecilen then
sData = ListBox.GetItemData("resimler", tSecilen[1])

end

eksigim nerde nasıl düzeltebilirim tesekkürler Edited June 15, 2012 by bitmez13

[nightmare3519]

[color="#445563"][font="verdana, tahoma, sans-serif"]tSecilen = ListBox.GetSelected(this)[/font][/color]
[color="#445563"][font="verdana, tahoma, sans-serif"]sData = ListBox.GetItemText("resimler", tSecilen)[/font][/color]
[font="verdana, tahoma, sans-serif"][color="#445563"]result = File.Run([/color][/font] [color="#445563"][font="verdana, tahoma, sans-serif"]_SourceFolder .. "\\resimler\\" .. sData .. [/font][/color][color="#445563"][font="verdana, tahoma, sans-serif"]"[/font][/color] [font="verdana, tahoma, sans-serif"][color="#445563"], "", "", SW_SHOWNORMAL, false);[/color][/font]
[color="#445563"][font="verdana, tahoma, sans-serif"]
[/font][/color][color="#445563"][font="verdana, tahoma, sans-serif"]Bu şekilde olabilirmi hiç denemedim ama[/font][/color]
[font="verdana, tahoma, sans-serif"][color="#445563"]Apz verebilmen mümkünmüdür?[/color][/font]

Edited June 15, 2012 by nightmare3519

[djonur007]

Sorun nerede biliyor musun kodlarının düzensizliğinde. Kodlarını kendine göre kodlamışsın iyi güzel ama çok karışık sorununa çözüm bulmak için ilk önce kodlarını çözmek gerekiyor. Bir görüntü verirsen ben oradan yola çıkarak sorunu çözeyim.

[pairs]

for içine for koymuş maşallah.Basit bir kod ile halledilebilr.

[bitmez13]

result = File.Run( _SourceFolder .. "\\resimler\\" .. sData .. " , "", "", SW_SHOWNORMAL, false);

bu satır hata veriyor
line=4:2')' expected near'","

şeklinde
yardım ederseniz çok sevinirim

[djonur007]

Bize müneccim muamelesi yapıyorsun. Arkadaşım bir satır kod veriyorsun hata bu diyorsun. Biz sData nın ne olduğunu nerden bileceğiz. Verdiğin bir satırla bu sorun çözülmez. Ya kodlarınınn tamamını (apz olarakta olur) yada ne yapmak istediğini açık bir şekilde ifade et yardımcı olalım.

[bitmez13]

onur mrb haklısın ben acemiyim öğrenmeye çalışıyorum hatta apz örneğini yanıt sayfasına nasıl ekleyeceğimi bulamadığımdan ekleyemiyorum nasıl yaparım

[djonur007]

Mediafire sitesine upload et sonra linki ver burda bize.

[bitmez13]

realyman ın yaptığı bir çalışmayla comboboxda kategorili olrak video çalıştırılıyor harika yapmış eline sağlık (http://www.tnctr.com/topic/192710-kategorili-video-oynatycy-arayuzu/)
ben istiyorumki aynı şekilde resim dosyalarıda kategorili olarak çalıştırılsın ve katagorilere ayrılmış resimleri comboboxda tıklamayla göstersin olabilirmi olursa kodlama da yardımcı olursanız çok sevinirim
orda video için mediaplayer plugini yüklü resim için image mi yüklenip onun üzerinden görüntülenecek

realymanın apz örnek dosyası=

http://www.mediafire.com/?c35372kdibyo32j

adresinde var.

[djonur007]

[b]Kodlar:

On Preload:[/b]
[spoiler][xml]Image.SetVisible("Image1", false);[/xml][/spoiler]

[b]On Show:[/b]
[spoiler][xml]tFolder = Folder.Find("E:\\ONUR\\Karışık", "*", false, nil); --E:\\ONUR\\Karışık Kategorilerin bulunduğu ana dizin.
for a in pairs(tFolder) do
ComboBox.AddItem("ComboBox1", String.SplitPath(tFolder[a]).Filename, tFolder[a]);
end
ComboBox.SetSelected("ComboBox1", 1)[/xml][/spoiler]

[b]ComboBox On Select:[/b]
[spoiler][xml]nSelected = ComboBox.GetSelected(this)
sFolder = ComboBox.GetItemData(this,nSelected)
tFile = File.Find(sFolder, "*", true, true, nil, nil)
ListBox.DeleteItem("ListBox1", -1)
for a in pairs(tFile) do
ListBox.AddItem("ListBox1",String.SplitPath(tFile[a]).Filename, tFile[a])
tUzanti = String.SplitPath(tFile[a]).Extension
if (tUzanti == ".db") then -----Klasörler içinde istenmeyen uzantıları gizliyoruz. Eğer daha fazla varsa [if (tUzanti == ".db") or (tUzanti == ".asd") then] şeklinde or bağlacı ile gizleyebilirsin.
ListBox.DeleteItem("ListBox1", a)
end
end[/xml][/spoiler]

[b]ListBox On Select:[/b]
[spoiler][xml]tSelected = ListBox.GetSelected("ListBox1")
sData = ListBox.GetItemData("ListBox1", tSelected[1])


----Resimi boyutlandırma başlangıç-----
tSize = Image.GetFileInfo(sData)
Image.SetProperties("Image1", {Width=tSize.Width, Height=tSize.Height});
----Resmi boyutlandırma bitiş--------

Image.Load("Image1", sData)
Image.SetVisible("Image1", true);[/xml][/spoiler]

[b]Gerekenler:

1 tane listbox[/b]
[b]1 tane combobox[/b]
[b]1 tane image[/b]

[bitmez13]

onur çok teşekkürler benim için bugün yoruldun aşagıya kendi yaptığımın download adresini veriyorum
onda hem resim için hemde word dosyası açılması için apz yaptım senin kodları deneyeceğim
bunada son bir bakıverirsen sevinirim

http://www.mediafire.com/?1n11226ff2ecs3i

sagolasın her şey gönlünce olsun

[djonur007]

Word dosyası için plugin lazım ama word'leri pdf'e çevirirsen plugin gerekmez.

PDF için yapacağın şey:

Image. bu şekilde başlayan kodları PDF için uyarlamak. Bunu kodlamayacağım çünkü burda hazır program kodlamıyoruz sadece yol gösteriyoruz. Ben sana yolu gösterdim bunu değiştirmek ve geliştirmek sana kalmış.

Selametle...

[bitmez13]

yardımlarınızla yukardaki sorunlarımı çözdüm biraz daha ek olarak yukardaki resim gösteriminde kişisel resimleri görüntületttim.birde bu resimlerin altına bir paragraf koysam aynı anda resimle birlikte o paragraftaki örneğin öz geçmiş yazılı bölümüde gösterebilirmiyiz. paragrafıda aynı şkilde dosyadaki paragraflardan texboxdaki isme göre çekebilirmiyiz.