غي اي مشروع ؟
كنا نعمل على مشروع فيه ليسبوكس واحد فقط
و الا فاحدف الكود المسؤول عن تحديد العنصر في اليسبوكس2

بارك الله فيك
نعم غيرت قليلا في المشروع
لذا اريد عند تحديد عنصر من ليست بووكس1 يلغى تحديد العنصر من ليست بوكس2

انظر الصورة

لا تظهر الصورة

تفضل الصورة في المرفق

لاحظ ابحث عن الكود هذا في الكومبوكس ( لا يهم index) احدفه لن يحدد في اليسبوكس 2

لكن أنا أتعامل مع ليست بوكس ليس كمبوبوكس

اعني عند تحديد عنصر من ليست بوكس1 يتم إلغاء عنصر من ليست بوكس 2

انقل الكود الموجود في الكومبوكس و الموجود في اليسبوكس 1

تفضل الملف الأخير الذي اعمل عليه
https://drive.google.com/file/d/0B3p...ew?usp=sharing

لم استطيع الدخول
ممكن فقط الكود الموجود في الكومبوكس
و الذي يوجد في اليسبوكس

بارك الله فيك تفضل
ComboBox1
[HTML]
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
result = ComboBox.GetItemData(this, e_Selection);
if result~="" then
result = File.Find(result.."\\", "*.*", true, true, nil, nil);
for i, s in pairs(result)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end

ListBox.SelectItem("ListBox1", 1);[/HTML]ListBox1

[HTML]--استدعاء الامس المحدد في ليست بوكس اللى برقراف
num = ListBox.GetSelected("ListBox1");
SONG = ListBox.GetItemData("ListBox1", num[1]);
MediaPlayer.Load("media_player", SONG);
--استدعاء الامس المحدد في ليست بوكس اللى برقراف
num = ListBox.GetSelected("ListBox1");
--SONG = ListBox.GetItemData("ListBox1", num[1]);
SONG = ListBox.GetItemText("ListBox1", num[1]);

Paragraph.SetText("Paragraph1", SONG);
-------------------------
tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");
if tfreg == false then
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\الافتراضي.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end
num = ListBox.GetSelected("ListBox1");
if num == nil then
Application.ExitScript();
end

--------------[/HTML]ListBox2


[HTML]
num = ListBox.GetSelected("ListBox2");
SONG = ListBox.GetItemData("ListBox2", num[1]);
MediaPlayer.Load("media_player", SONG);

--استدعاء الامس المحدد في ليست بوكس اللى برقراف
num = ListBox.GetSelected("ListBox2");
--SONG = ListBox.GetItemData("ListBox1", num[1]);
SONG = ListBox.GetItemText("ListBox2", num[1]);

Paragraph.SetText("Paragraph1", SONG);
-------------------------
tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");
if tfreg == false then
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\الافتراضي.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end
num = ListBox.GetSelected("ListBox2");
if num == nil then
Application.ExitScript();
end [/HTML]

المشكلة التي أنا فيها الآن

هي أنني عندما ابحث تعرض الملفات في
ListBox2

وعند الضغط على الفتوى يتم قرائتها من اليست بوكس 2 لكن عند الضغط زر الحفظ انظر الصورة

https://www.mediafire.com/file/3rn17...914_182221.zip

في كود اليسبوكس 2

[html]

-song = listbox.getitemdata("listbox1", num[1]);
[/html]




ممكن المشكل في انك لم تغيير رقم اليسبوكس هنا الى2

بارك الله فيك


لا ادري أين المشكلة

المهم هذا الملف المفتوح لتعاينه

ربما تجد حل للمشكلة

http://www.mediafire.com/file/mi7c6m...%B2%285%29.zip

عموما الخطأ الذى يقابلك هو تكرار إستخدام المتغير الواحد أكثر من مرة وكمثال على الخطأ أنت إستخدمت المتغير SONG أكثر من مرة وفى كل من الليست بوكس الأول والثانى

يمكنك إصلاح الخطأ بنفسك أو تضع لى الملف المفتوح كاملا بجميع الملفات التى تستخدمها أو بعض الملفات للمعاينة حتى أفهم نظرية العمل " " يعنى لا تحذف الملفات سواء صوتية أو .......

بارك الله فيك

هذا المشروع دوخني كثيرا لذا تهت في الاكواد

اليك الملف المفتوح

http://www.mediafire.com/file/voyr8o...9%85%D8%B9.zip

يا أستاذ محمد بارك الله فيك عندما أضغط على أى عنصر فى الليست بوكس الأول لا يظهر أى شيئ فى الليست بوكس الثانى
لا أملك الكثير من الوقت لمراجعة كتابة كافة الأكواد أو قراءتها كاملة
برجاء عدم حذف شيئ حتى يتسنى لى المراجعة السريعة معك :abc_086: