طلب طريقة ربط ليت بوكس ب Paragraph

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

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

السلام عليكم

ماهي
طلب طريقة ربط ليت بوكس ب Paragraph

بحيث عندما احدد العنصر الاول من ليست بوكس يظهر نص Paragraph

عندما احدد العنصر الثاني يظره نص اخر في نفس Paragraph

[ثامر أبو بلقيس]

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

بافتراص أن النص المراد نقله هو المكتوب في الـ ItemText ويمكن تغييره

نضع الكود في on select
result = ListBox.GetSelected("ListBox1");
b = ListBox.GetItemText("ListBox1", result[1]);
----
Paragraph.SetText("Paragraph1", b);

لا أعرف هل هذا هو المطلوب أم لا

[ثامر أبو بلقيس]

اذ أردنا كتابة الأسطر دون مسح
السطر السابق يكون الكود :
result = ListBox.GetSelected("ListBox1");
b = ListBox.GetItemText("ListBox1", result[1]);
----

Paragraph.SetText("Paragraph1", Paragraph.GetText("Paragraph1") .."\r\n"..b);

[ثامر أبو بلقيس]

اذ أردنا أن لا يتكرر النص مرة ثانية
في Paragraph سنعتمد هنا على ملف نصي
وكود لحذف المكرر و احتسابه مع العناصر الأحادية مرة واحدة

ليكون الكود
result = ListBox.GetSelected("ListBox1");
b = ListBox.GetItemText("ListBox1", result[1]);
----
Paragraph.SetText("Paragraph1", b);

Paragraph.SetText("Paragraph1", Paragraph.GetText("Paragraph1") .."\r\n"..b);
---------
TextFile.WriteFromString("AutoPlay\\Docs\\\MyFile.txt", Paragraph.GetText("Paragraph1"), false);
---
items = TextFile.ReadToTable("AutoPlay\\Docs\\\MyFile.txt");
--------
flags = {}
t=""
for i=1,table.getn(items) do
if not flags[items[i]] then
io.write(' ' .. items[i])
flags[items[i]] = true
t = t .. items[i].."\r\n"
end
end
Paragraph.SetText("Paragraph1", t);


موفق :abc_138:

[ربيع]

result = ListBox.GetSelected("ListBox1");
if result[1] == 1 then
Paragraph.SetText("Paragraph1", "النص الأول");
elseif result[1] == 2 then
Paragraph.SetText("Paragraph1", "النص الثاني");
elseif result[1] == 3 then
Paragraph.SetText("Paragraph1", "النص الثالث");
end

:abc_152:

[ياسرهتهت]

بسم الله الرحمن الرحيم
شكرا جزيلا استاذي الكريم
كود ممتاز ورائع
:abc_050::abc_050:
:

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

بارك الله فيكم جميعا الكود المطلوب هو هذا

result = ListBox.GetSelected("ListBox1");
if result[1] == 1 then
Paragraph.SetText("Paragraph1", "النص الأول");
elseif result[1] == 2 then
Paragraph.SetText("Paragraph1", "النص الثاني");
elseif result[1] == 3 then
Paragraph.SetText("Paragraph1", "النص الثالث");
end

[امل الماضي]

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