yakupnun Posted February 25, 2012 Share Posted February 25, 2012 merhabalar aio ile klasör içeriğini naıl görüntülerim yani ne istediğimi tam olarak anlatayım bel ki yardımcı olabilirsiniz . mesela fen klasörünün içeriğini listbox ta görüntüle ye bilir miyim sonrada listelenen dosya ismine tıklayınca o dosyayı çalıştırsın.istiyorum kad kısmına kadar olan şeyleri hallettim sonrasını bi türlü beceremedim yardımcı olursanız sevinirim.aio da çok yeniyim multi media builder kullanmıştım ama bunu ilk Quote Link to comment Share on other sites More sharing options...
KintaRo Posted February 25, 2012 Share Posted February 25, 2012 listboxa ekleme: [code]tAra = File.Find("C:\\Windows", "*.*", false, false, nil, nil) if tAra then for i,v in pairs(tAra) do ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v) end end [/code] listbox on doubleclick evresi: [code]local nSecilen = ListBox.GetSelected(this) if nSecilen[1] ~= -1 then local sData = ListBox.GetItemData(this, nSelected[1]) File.Run(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false) end[/code] Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 25, 2012 Author Share Posted February 25, 2012 teşekkür ederim listeleme yaptım konu başlıklarında bu kodu görmüştüm ama çalıştıramamıştım şimdi çalıştı ancak listelenen dosyayanın üzerine tıklayın ca çalışması lazım mesela: atatürk ilkeleri.ppt inkılaplar.ppt osmanlı.ppt gibi listeledi inkılaplara tıklayınca pover pointte açabilirmi Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted February 25, 2012 Share Posted February 25, 2012 Ben böyle birşey yazdım ama hep apznin olduğu klasörü açıyor ListBox On Double Click result = ListBox.GetSelected("ListBox1"); result2 = ListBox.GetItemData("ListBox1", result); File.Open(result2, "", SW_SHOWNORMAL); Herhangi bir sıranın datasına File Open komutunun result2 yazan yeri Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 25, 2012 Author Share Posted February 25, 2012 tAra = File.Find("[color="#FF0000"]C:\\arayuz\tr[/color]", "*.*", false, false, nil, nil) if tAra then for i,v in pairs(tAra) do ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v) end end kırmızı ile yazdığım dosya yolunu görüntülemiyor ancak C:\\arayuz bu şekilde yazarsam görüntülüyor bunun nedeni ne olaki acaba Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 tAra = File.Find("C:\\arayuz\tr", "[color="#FF0000"]*.*[/color]", false, false, nil, nil) uzantıyı yazda dene bakalım Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 ama ben klasörün tüm içeriğini list box a basmak istiyorum uzantı yazarsam sadece ouzantıyı getirir be klasör ve tüm uzantılardaki dosyaları görmek istiyorum ama yardımın için genede teşekkürler. Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 (edited) nSec = ListBox.GetSelected(this); nData = ListBox.GetItemData(this, nSec[1]); File.Open(nData, "", SW_SHOWNORMAL); veya File.Run olarakta dene Edited February 26, 2012 by Kral__ Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 bunu list box un on double clickinemi yoksa sayfayamı yazacam bu kod konusunu hiç bilmiyom Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 listboxun duable click evresine Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 list box ta ondoubleclicte böle bir kod kullanıyorum local nSecilen = ListBox.GetSelected(this) if nSecilen[1] ~= -1 then local sData = ListBox.GetItemData(this, nSelected[1]) File.Run(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false) end Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 çalışyormu ? Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 malesef dosya yolu C:\arayuz olunca çalışıyor C:\arayuz\AutoPlay\program\tr olunca çalışmıyor Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 AutoPlay\\program\\tr\\ olarak dene Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 error attempt to index local 'nSecilen '(a nil value) list box a çift tıklayınca böle bir hata veriyor Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 sen bi apz verirsen belki yapabilirim Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 çok teşekkür ederim listelemeyi son verdiğin şekilde yaptırdım şimdi son birşey sorayım cevap verebilirsen sevinirim bu listelenen içerikteki dosya ismine tek tıklatınca odosyayı açmasını istiyorum mesele osmanlı.ppt veya ali.txt gibi bunları ait olduğu programla açabilirmi bu program Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 kodları on selecte taşı Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 [img]https://lh4.googleusercontent.com/-0M202kxfndA/T0n7lxjJn7I/AAAAAAAAAxk/3U028bHOclY/s738/smatr.png[/img] resimdeki hatayı veriyor. Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 codeları ver bakalım Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 tAra = File.Find("C:\\arayuz\\AutoPlay\\program\\tr\\", "*.*", false, false, nil, nil) if tAra then for i,v in pairs(tAra) do ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v) end end page propertiez de ki bu list box taki debu local nSecilen = ListBox.GetSelected(this) if nSecilen[1] ~= -1 then local sData = ListBox.GetItemData(this, nSelected[1]) File.Open(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false) end Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 on selecttekini benimkini kullanbi Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 (edited) hocam çok teşekkür ederim allah razı olsun baya işimi gördü peki aynı sayfada birden çok list boksta farkl klasör içeriğini göürntülemem için page proteirzdeki kodu nasıl düzenlemeleyim Edited February 26, 2012 by yakupnun Quote Link to comment Share on other sites More sharing options...
Kral__ Posted February 26, 2012 Share Posted February 26, 2012 aynıları yazıcaksın ama klasörün yolunu değiştirmen lazım Quote Link to comment Share on other sites More sharing options...
yakupnun Posted February 26, 2012 Author Share Posted February 26, 2012 hocam bir kere daha çok teşekkürler inşallak içeriği bitince paylaşacam yardımlarınızla yaptığım program umumun malı olacak 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.