bitmez13 Posted June 15, 2012 Share Posted June 15, 2012 (edited) 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 Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted June 15, 2012 Share Posted June 15, 2012 (edited) [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 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted June 15, 2012 Share Posted June 15, 2012 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. Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted June 15, 2012 Editor Share Posted June 15, 2012 for içine for koymuş maşallah.Basit bir kod ile halledilebilr. Quote Link to comment Share on other sites More sharing options...
bitmez13 Posted June 15, 2012 Author Share Posted June 15, 2012 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 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted June 15, 2012 Share Posted June 15, 2012 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. Quote Link to comment Share on other sites More sharing options...
bitmez13 Posted June 15, 2012 Author Share Posted June 15, 2012 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 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted June 15, 2012 Share Posted June 15, 2012 Mediafire sitesine upload et sonra linki ver burda bize. Quote Link to comment Share on other sites More sharing options...
bitmez13 Posted June 15, 2012 Author Share Posted June 15, 2012 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. Quote Link to comment Share on other sites More sharing options...
djonur007 Posted June 15, 2012 Share Posted June 15, 2012 [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] Quote Link to comment Share on other sites More sharing options...
bitmez13 Posted June 15, 2012 Author Share Posted June 15, 2012 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 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted June 15, 2012 Share Posted June 15, 2012 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... Quote Link to comment Share on other sites More sharing options...
bitmez13 Posted June 16, 2012 Author Share Posted June 16, 2012 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.