سؤال بخصوص -ListBox.GetChecked- ؟

[ياسرهتهت]

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

https://f.top4top.net/p_512nmtuy1.png

اريد نقل كل ItemText من ListBox1 اليListBox2
بحيث المحدد في Checked يكون ItemData =1 والغير محدد يكون ItemData= 0


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

[عبد الهادي بهاب]

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

https://f.top4top.net/p_512nmtuy1.png

اريد نقل كل ItemText من ListBox1 اليListBox2
بحيث المحدد في Checked يكون ItemData =1 والغير محدد يكون ItemData= 0


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




محاولة
في اليسبوكس في ON Check ضع الكود

ListBox.DeleteItem("ListBox2",LB_ALLITEMS);

t = ListBox.GetChecked("ListBox1", BST_CHECKED);
for i,n in pairs(t) do
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", n), "");
end

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

ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
for p = 1 , ListBox.GetCount("ListBox1") do
bel = ListBox.GetItemCheck("ListBox1", p);
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),bel);
end

[ياسرهتهت]

محاولة
في اليسبوكس في ON Check ضع الكود

ListBox.DeleteItem("ListBox2",LB_ALLITEMS);

t = ListBox.GetChecked("ListBox1", BST_CHECKED);
for i,n in pairs(t) do
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", n), "");
end
-------------------------------------------
بسم الله الرحمن الرحيم
كل عام وانت بالف خير استاذ عبد الهادي
شكرا وبارك الله فيك
ان اريد ان ينتقل كل ItemText لا المحدد فقط
ولكن يكونItemData للمحدد = 1

والغير محدد = 0

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

[ياسرهتهت]

ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
for p = 1 , ListBox.GetCount("ListBox1") do
bel = ListBox.GetItemCheck("ListBox1", p);
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),bel);
end
---------------------------------
بسم الله الرحمن الرحيم
بارك الله فيك استاذي الفاضل
كود في غاية الروعة يحقق المطلوب 100%

ولكن احتاج توضيح للفهم ؟؟؟
من اين يظهر 0 و 1
لم افهم كيف ظهروا في الكود

ولو اردت تغير الصفر والواحد بكلمات كيف يكون ذالك ؟؟

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

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

الاستعلام بالكود التالي عن حالة التأشير
bel = ListBox.GetItemCheck("ListBox1", p);


يعود بفيمتين 0 في حال عدم التأشير و 1 في حال التأشير

من هنا استغليت الامر مباشرة وجعلت المتغير bel في الداتا

الان نريد كتابة أشياء أخرى بدلا من 1 و 0
كود:
ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
for p = 1 , ListBox.GetCount("ListBox1") do
bel = ListBox.GetItemCheck("ListBox1", p);
if bel == 0 then
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),"no");
elseif bel == 1 then
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),"yes");
end
end

الصورة هكذا اوضح .... موفق :abc_138:

[ياسرهتهت]

الاستعلام بالكود التالي عن حالة التأشير
bel = ListBox.GetItemCheck("ListBox1", p);


يعود بفيمتين 0 في حال عدم التأشير و 1 في حال التأشير

من هنا استغليت الامر مباشرة وجعلت المتغير bel في الداتا

الان نريد كتابة أشياء أخرى بدلا من 1 و 0
كود:
ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
for p = 1 , ListBox.GetCount("ListBox1") do
bel = ListBox.GetItemCheck("ListBox1", p);
if bel == 0 then
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),"no");
elseif bel == 1 then
ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", p),"yes");
end
end

الصورة هكذا اوضح .... موفق :abc_138:

-----------------------------------
بسم الله الرحمن الرحيم
كل الشكر والتقدير استاذي الفاضل
:abc_051::abc_051::abc_051:
:abc_138::abc_138::abc_138:

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

بسم الله الرحمن الرحيم
بارك الله فيك
استغسارات قيمة
وتفاعل هائل

رحمك الله جمبعا