اي من الكودين جيد للبحث في list box

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

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

الكود الاول


sLookFor = Input.GetText(this);
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
ListBox.SelectItem("ListBox1", sListBoxItem);





if e_Key== 13 then


-- gets text string from Input Object
sLookFor = Input.GetText("Input1");
if sLookFor ~= "" then
-- finds string in List Box text column
for Ttext=1,ListBox.GetCount("ListBox1")do
textFind = ListBox.GetItemText("ListBox1", Ttext);
sListBoxItem = String.Find(textFind, sLookFor, 1, false);
if (sListBoxItem ~= -1) then
-- selects item in List Box
ListBox.SelectItem("ListBox1", Ttext);
Application.ExitScript();
else
if Ttext == ListBox.GetCount("ListBox1") then
Dialog.Message("ÊäÈíå", "ÇáÅÓã ÇáÐí ÃÏÎáÊå ÎÇØÆ");
end
end
end
end
end



واذا كان فيه كود جيد يرفق من فضلكم

[عبود عبود]

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

الكود الثانى

[ربيع]

الكود الأول موفق :abc_152:

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

بارك الله فيك
تم اعتماد الكود الثاني

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

sLookFor = Input.GetText("Input1");
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
if sListBoxItem ~= -1 then
ListBox.SelectItem("ListBox1", sListBoxItem);
else
ListBox.DeselectItem("ListBox1", LB_ALLITEMS);
Dialog.TimedMessage(".......", "غير متوفر", 2000, MB_ICONINFORMATION);
end
-------------- أفيد كود هو ما يتلاءم مع متطلبات معايير البحث في المشروع الخاص.......
-------------- و الأجمل هو تطويع أي كود كان لخدمة المشروع -------------------------
فالجواب هو استعمل من البداية ما رأيته صالحا لمشروعك فكلاهما جيد موفق :abc_138:

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

بارك الله فيك