استفســـار عن أظهــار المحفوظ في ListBox و ComboBox

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أخـــــــــواني الافاضـــــــــــل

http://im51.gulfup.com/MVg38f.jpg

http://www.gulfup.com/?dWsR0H


هذا نموذج لحفظ البيانات بواسطة ملف ini
كما شرحه الاستاذ عبود في الموضوع
سلسلة رقم 2 لشرح قواعد البيانات البسيطة (http://www.abc4web.net/vb/showthread.php?t=30992)

انا جعلت كل صفحة تحفظ الملفات في مجلد على حد
والمطلوب اظهار اسامي السكاشن في اليست بكس والكمبوبكس او احدهما اذا كان معا صعب

ليسهل التعامل معها
بنفس طريقة استاذنا ابـــو بلقيــــــــس في التعامل مع Application.SaveValue
في حفظ البيانات في النظام
في هذا الموضوع هنــــــــــــــــــــــا (http://www.abc4web.net/vb/showthread.php?t=30944&page=3)

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[minomars]

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

شوف هذا الموضوع
http://www.abc4web.net/vb/showthread.php?p=276369#post276369

فيه تعامل في حفظ و استدعاء ملفات الــ ini
فقط عدل دالة for i,v in StateNames do في on show
باضافة pairs

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

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

ضع هذا في زر و جرب العملية
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
for del = 0,ComboBox.GetCount("ComboBox1")do
ComboBox.DeleteItem("ComboBox1",del);
end
result = File.Find("AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
if (result) then
for t = 1,#result do
x = String.SplitPath(result[t]);
StateNames = INIFile.GetSectionNames("AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
for i,v in pairs(StateNames) do
State = Table.Concat(StateNames, ";", i, i);
ListBox.AddItem("ListBox1",""..State, ""..State);
ComboBox.AddItem("ComboBox1", ""..State, ""..State);
end
end
end

[ياسرهتهت]

بسم الله الرحمن الرحيم
تمت التجربة بنجاح الكود حقق المطلوب استاذي الفاضل ابو بلقيس
وتم اظهار اسم السكشن في الاثنين معا
بارك الله فيك
باقي كود ON SHOW في الصفحة
وكود On Select في ListBox
و ComboBox

---------------------

---------------------
حتي يكتمل العمل استاذي الكريم
:abc_152::abc_152::abc_152:

=============================
مع اني وضعت الكود نفسه في زر الحفظ والحدث
ON SHOW في الصفحة
وحقق المطلوب ظهور القائمة المخزنة في
اليست بكس والكمبوبكس
============================

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخي العزيز
minomars
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

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

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

01 - في حدث المشروع on startup ازرع الكود
for i = 1,4 do
Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\T"..i.."\\");
end
على مستوى الصفحة الأولى :

01 - في حدث الصفحة on show ازرع
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
for del = 0,ComboBox.GetCount("ComboBox1")do
ComboBox.DeleteItem("ComboBox1",del);
end
result = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
if (result) then
for t = 1,#result do
x = String.SplitPath(result[t]);
StateNames = INIFile.GetSectionNames(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
for i,v in pairs(StateNames) do
State = Table.Concat(StateNames, ";", i, i);
ListBox.AddItem("ListBox1",""..State, ""..State);
ComboBox.AddItem("ComboBox1", ""..State, ""..State);
end
end
end
02 - زر الحفظ SAVE---T1 امسح الكل و أكتب :
my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
if Input.GetText(my_table[5])=="" then
Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
for i =1,5 do
INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..Input.GetText(my_table[5])..".ini", Input.GetText(my_table[5]), "RW"..i, Input.GetText(my_table[i]));
end
end
03 - في زر الاستدعاء load-T1 امسح الكل و اكتب :
my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
if Input.GetText(my_table[5]) =="" then
result = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
for i =1,5 do
Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..Input.GetText(my_table[5])..".ini", Input.GetText(my_table[5]), "RW"..i));
end
end
04 - في العنصر ListBox1 في on select أكتب :
my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
dd = ListBox.GetItemText(this,ListBox.GetSelected(this)[1]);
if dd =="" then
result = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
for i = 1,5 do
Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..dd..".ini", dd, "RW"..i));
end
end
05- في العنصر ComboBox1 في الحدث on select أكتب :
my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
dd = ComboBox.GetItemText(this,ComboBox.GetSelected(thi s));
if dd =="" then
result = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
for i = 1,5 do
Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..dd..".ini", dd, "RW"..i));
end
end
06 - ضف زرا جديدا سمه تحديث البينات ازرع فيه نفس الأكود الموجودة في on show
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
for del = 0,ComboBox.GetCount("ComboBox1")do
ComboBox.DeleteItem("ComboBox1",del);
end
result = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
if (result) then
for t = 1,#result do
x = String.SplitPath(result[t]);
StateNames = INIFile.GetSectionNames(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
for i,v in pairs(StateNames) do
State = Table.Concat(StateNames, ";", i, i);
ListBox.AddItem("ListBox1",""..State, ""..State);
ComboBox.AddItem("ComboBox1", ""..State, ""..State);
end
end
end
---------------
على مستوى باقي الصفحات نفس الأكواد فقط غير T1 بــ T2 أو T3 أو T4 في جميع الأكواد حسب الصفحات

[خادم المسلمين]

شكرا ليك اخى ياسر على الاستفسار والمشروع المميز والرائع
وشكرا لأروع استاذ اوتو بلاى " ثامر"على الاهتمام والرد

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

شكرا أخي خادم المسلمين ... فقط نحن نحاول مساعدة بعض قدر الامكان
و نتقاسم الجهد :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
شكرا جزيلا استاذي الفاضل
:abc_152:ابو بلقيس:abc_152:
علي هذا المجهود والوقت وهذا العطاء والابداع
تم التطبيق بنجاح وجميع الاكواد تعمل بشكل ممتاز
جزاك الله عني خيراً وعن كل من يتعلم منك استاذي الكريم
:abc_138::abc_138::abc_138::abc_138:
موفق بإذن الله ... لك مني أجمل تحية .

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

في خدمتك أخي تستاهل كل خير :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخي خادم المسلمين
شكرا لك على مرورك الكريم
الشكر الحقيقي بالفعل للاستاذ الفاضل ابو بلقيس
الذي لا يتردد ابداً في تقديم المساعدة والعون للجميع
بارك الله فيه وفيك وفي كل من تعلم العلم وعلمه
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .