طلب تغير كود من كومبوبكس الى ليست بوكس

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
السلام عليكم

عندي كود اريد تحويله
الكود هو

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
data = ComboBox.GetItemData("ComboBox2", e_Selection);
if data~="" then
files = File.Find(data, "*.*", true, false, nil, nil);
MediaPlayer.Stop("Plugin1");
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
end



الكود يوضع في الكمبو بكس ويعرض الملفات في ليست بوكس

فكيف اغيرالكود ليصبح متلائم مع ليست بكوس بدل الكمبويكس

الملف المفتوح (https://up.top4top.net/downloadf-4599aubf1-rar.html)

[عبود عبود]

وعليكم السلام ورحمة الله وبركاته

فى الليست بوكس الأول ضع الكود التالى :

--
ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
data = ListBox.GetSelected(this);
if data~=nil then
data = ListBox.GetItemData("ListBox1", data[1]);
if data~=-1 then
files = File.Find(data, "*.*", true, false, nil, nil);
MediaPlayer.Stop("Plugin1");
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox2", String.SplitPath(s).Filename, s);
end
end
end
end

وظيفة الكود هو إيجاد الإيتم داتا فى الليست بوكس الأول ومن ثم يعمل البحث فى هذه الداتا والتى غالبا ما ستكون مسار
ومن ثم إضافة الملفات التى سوف يجدها فى هذا المسار إلى الليست بوكس الثانى بعد حذف ما هو موجود فيه

[عبود عبود]

بالنسبة للمشاركة التى طلبت إعادة رفع ملفها المفتوح https://www.dropbox.com/s/vrfeb8uynbxoclh/Search%20All.rar?dl=0

[محمد بن أحمد أبو حذيفة]

بالنسبة للمشاركة التى طلبت إعادة رفع ملفها المفتوح https://www.dropbox.com/s/vrfeb8uynbxoclh/search%20all.rar?dl=0


بارك الله فيك وجزاك خيرا

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
تم المطلوب بارك الله فيك

[ابراهيم ابو الوليد]

موفق بإذن الله ... لك مني أجمل تحية .

[رعاش وليد]

موفق بإذن الله ... لك مني أجمل تحية .