ســــــــؤال (هام جدااا ) خاص بالترتيب العناصر في ListBox

[ياسرهتهت]

بسم الله الرحمن الرحيم
عندي هذا الملفات في مجـــــــــــــــــــــلد
بهذا الشكل

https://e.top4top.net/p_577dwu4l1.png


اريد عند استدعائهــــــا للـــــــ ListBox او ComboBox
ان تظهر بهذا الشكل

https://a.top4top.net/p_577kolgz1.png

http://www.abc4web.net/vb/images/icons/cubes.gif للتوضح
طبعا مش مهم شكل الكتابه هكذا ( الإثنين 2017 _07_ 03 ) او هذا ( الإثنين 2017 /03/07 ) المهم الترتيب


اي مرتبه الترتيب الطبيعي الايام والتواريخ

هل يوجد كود او اضافه واي شي يحقق ذالك ؟ اتمنا يكون موجود

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

:abc_152::abc_152::abc_152:

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

http://www.abc4web.net/vb/showthread.php?t=34439

http://www.abc4web.net/vb/showpost.php?p=273996&postcount=10


http://www.abc4web.net/vb/showthread.php?t=29138

[ياسرهتهت]

بسم الله الرحمن الرحيم
شكرا لك استاذ عبد الهادي
كل هذه الاكواد و المواضيع مررت عليها
قبل وضع السؤال ؟ وللاسف لا تنفع معي
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

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

بسم الله الرحمن الرحيم
شكرا لك استاذ عبد الهادي
كل هذه الاكواد و المواضيع مررت عليها
قبل وضع السؤال ؟ وللاسف لا تنفع معي
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

جرب هذه الخربشة بعد الاستدعاء



my_table1 = {};my_table2 = {};
for i = 1,ListBox.GetCount("ListBox1")do
Text=ListBox.GetItemText("ListBox1", i);
Data = ListBox.GetItemData("ListBox1", i);
day,month, year = string.match(Text, "(%d+)/(%d+)/(%d+)")
rawset(my_table1, tonumber(day), Text);rawset(my_table2, tonumber(day), Data);
end;d =ListBox.GetCount("ListBox1")
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
for g = 1,d do
if my_table1[g] ~= nil then
ListBox.AddItem("ListBox1", my_table1[g],my_table2[g]);
end
end

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

الى الاخ ياسر ( أي حسب خصوصية ملفك )
شوف وقول



my_table1 = {};my_table2 = {};
for i = 1,ListBox.GetCount("ListBox1")do
Text=ListBox.GetItemText("ListBox1", i);
Data = ListBox.GetItemData("ListBox1", i);
day,month, year = String.Mid(Text, String.Length(Text)-3,2),String.Mid(Text, String.Length(Text)-7, 2),String.Mid(Text, String.Length(Text)-13, 4)
rawset(my_table1, tonumber(day), Text);rawset(my_table2, tonumber(day), Data);
end;d =ListBox.GetCount("ListBox1")
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
for g = 1,d do
if my_table1[g] ~= nil then
ListBox.AddItem("ListBox1", my_table1[g],my_table2[g]);
end
end

[ياسرهتهت]

الى الاخ ياسر ( أي حسب خصوصية ملفك )
شوف وقول
المحتوى المخفي لايقتبس
بسم الله الرحمن الرحيم
شكرا لك استاذتا الفاضل
:abc_050: 100% :abc_050:

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

::abc_138::abc_138::abc_138::

[محمد رمضان أبو يوسف]

شكرا جزيلا