كيف أجعل المستخد يضيف قوائم على ComboBox ؟

[سليمان الثواب]

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

مرحبا أخواني وأخواتي المحترفين والمبدعين :abc_152:

كيف استطيع أن أجعل المستخدم يضيف قائمة على ComboBox ويحدد ملف من الجهاز لفتحة وأجعل هذه الإضافة محفوظة في البرنامج بعد إغلاقه


فكرة البرنامج الذي أريد أن أعمله هو برنامج نماذج يفتح مستندات وورد مجهزة مسبقا
وهذه صورة من جزء في البرنامج

http://store1.up-00.com/2016-01/145188925580771.png

كيف أجعل المستخدم يضع قائمة جديدة في ComboBox

فهو يحتاج التالي
1- كيف أجعله يضيف اسم جديد في القائمة
2- كيف أجعله يضع رقم الترتيب في القائمة
3- يكف أجعله يضيف رابط للاسم أو ملف وورد
4- كيف أجعله يحفظ التغيييرات في البرنامج

وشكرا لكم يامحترفين :abc_026:\

أخوكم :سليمان

[فرح صالحي]

في انتظار تدخل الاخوة المحترفين قد يفيدك الموضوع في هذه المشاركة
http://www.abc4web.net/vb/showthread.php?t=31570
موفق بإذن الله .:abc_022:.. لك مني أجمل تحية .

[سليمان الثواب]

في انتظار تدخل الاخوة المحترفين قد يفيدك الموضوع في هذه المشاركة
http://www.abc4web.net/vb/showthread.php?t=31570
موفق بإذن الله .:abc_022:.. لك مني أجمل تحية .

شكرا لك فرح :abc_152::abc_152:


مبادئ الإضافة في combobox فاهما

لكن استفساري بالتحديد كيف أجعل مستخدم البرنامج يعمل قوائم combobox جديدة ويضع لها أسماء مثل

الاسم : الغياب
ويضع ملف للغياب
ويضع رقم ترتيب تسلسلي لجملة الغياب
ويحفظ التغييرات وإذا خرج من البرنامج ورجع إليه من جديد تكون الإضافات جديدة

ملاحظة لا أتكلم عن إضافة المبرج فالمبرمج يضيف مايشاء

أتكلم كيف أجعل مستخدم البرنامج يضع كلمات جديدة داخل combobox ويضع لكل كلمة ملف وورد أو صورة ويحفظها

وشكرا لك فرح:abc_026::abc_026::abc_026:

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

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

numbre = Dialog.Input("======", "حدد الترتيب", "", MB_ICONQUESTION);
if numbre ~= "" and numbre ~= "CANCEL" then
file = Dialog.Input("=======", "حدد اسم الملف", "", MB_ICONQUESTION);
if file ~= "" and file ~= "CANCEL" then
data = Dialog.Input("=======", "مسار الملف", "", MB_ICONQUESTION);
if data ~= "" and data ~= "CANCEL" then
ComboBox.InsertItem("ComboBox1", numbre, numbre..": "..file, data);
end
end
end

[سليمان الثواب]

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

numbre = dialog.input("======", "حدد الترتيب", "", mb_iconquestion);
if numbre ~= "" and numbre ~= "cancel" then
file = dialog.input("=======", "حدد اسم الملف", "", mb_iconquestion);
if file ~= "" and file ~= "cancel" then
data = dialog.input("=======", "مسار الملف", "", mb_iconquestion);
if data ~= "" and data ~= "cancel" then
combobox.insertitem("combobox1", numbre, numbre..": "..file, data);
end
end
end


جزاك الله خير أخوي الكريم

أخي الكريم
الطريقة نجحت لكم واجهة مشكلتين

1- كيف أجعل بدلا من كتاب مسار الملف أن أجعله يحدد الملف من الجهاز
2- كيف أجعل التغييرات التي إضفت لا تتغير بعد الخروج من البرنامج لانه عندما أضفت ثم خرجت من البرنامج ذهبت الإضافة

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

numbre = Dialog.Input("======", "حدد الترتيب", "", MB_ICONQUESTION);
if numbre ~= "" and numbre ~= "CANCEL" then
data = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
if ( data[1]~= "CANCEL") then
path_parts = String.SplitPath(data[1]);
ComboBox.InsertItem("ComboBox1",numbre, path_parts.Filename, data[1]);
end
end

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

ثم أجعل برنامجك مســـؤولا
في حدث الصفحـــة on show
b = TextFile.ReadToTable("C:\\MyFile.txt");
if b ~= nil then
ComboBox.ResetContent("ComboBox1");
x=1
for n = 1,#b do
if b[x] ~="" then
ComboBox.AddItem("ComboBox1", b[x], b[(x+1)]);
x=x+2
end
end
end

و في الحدث on close اذ لم تكن البيانات كثيرة
File.Delete("C:\\MyFile.txt", false, false, false, nil);
for i=1,ComboBox.GetCount("ComboBox1") do
x = ComboBox.GetItemText("ComboBox1", i);
y =ComboBox.GetItemData("ComboBox1", i);
TextFile.WriteFromString("C:\\MyFile.txt", x.."\r\n"..y.."\r\n", true);
end

و الطرق كثيـــرة :abc_152:

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

جزاك الله خير أخوي الكريم

أخي الكريم
الطريقة نجحت لكم واجهة مشكلتين

1- كيف أجعل بدلا من كتاب مسار الملف أن أجعله يحدد الملف من الجهاز
2- كيف أجعل التغييرات التي إضفت لا تتغير بعد الخروج من البرنامج لانه عندما أضفت ثم خرجت من البرنامج ذهبت الإضافة

السلام عليكم ورحمة الله وبركاته
مساهمة في الموضوع ............ هذا ملف مفتوح قد يفي بالغرض ............. فيه زر اضافة ملف بحيث يظهر اسم الملف في اليسبوكس او الكومبوكس و مساره في data بحيث لما نضغط على الملف في اليسبوكس او الكومبوكس يفتح ........... اخترت - حسب السؤال - ملفات الوورد اي من نوعية doc , docx , rtf ......فيه زر اخر لفتح محتوى مجلد معين بحيث تظهر كل الملفات الموجودة فيه ............ فيه ايضا زر لتغيير الاسم في الليسبوكس دون ان يؤثر على مساره اي الشكل الظاهر فقط للمستخدم ...... ايضا من باب الاضافة ........زر للمفضلة بحيث تحفظ المعلومات في ملف ini ; و تسترجه منه المعلومات بعد فتحه من جديد ......كما يمكن ان تحذف ما تشاء من القائمة و من ملف الحفظ ايضا ..............بالتوفيق .......:abc_022:

http://up.top4top.net/downloadf-5605rzo1-rar.html

[سليمان الثواب]

ثم أجعل برنامجك مســـؤولا
في حدث الصفحـــة on show
b = TextFile.ReadToTable("C:\\MyFile.txt");
if b ~= nil then
ComboBox.ResetContent("ComboBox1");
x=1
for n = 1,#b do
if b[x] ~="" then
ComboBox.AddItem("ComboBox1", b[x], b[(x+1)]);
x=x+2
end
end
end

و في الحدث on close اذ لم تكن البيانات كثيرة
File.Delete("C:\\MyFile.txt", false, false, false, nil);
for i=1,ComboBox.GetCount("ComboBox1") do
x = ComboBox.GetItemText("ComboBox1", i);
y =ComboBox.GetItemData("ComboBox1", i);
TextFile.WriteFromString("C:\\MyFile.txt", x.."\r\n"..y.."\r\n", true);
end

و الطرق كثيـــرة :abc_152:


الله يجزاك خير أخوي أشكرك على ردودك السريعة

أنحلت جميع المشكلات وبقي مشكلة واحدة :abc_145:
وهي كيف أجعل الإضافات التي يقوم بها المستخدم محفوظة بعد الخروج والدخول مرة آخرى

هذا ملف مفتوح للمشروع وأتمنى أن تجربه وتبين أين الخلل

http://up.top4top.net/downloadf-5609f431-rar.html

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

الأكواد تعمل اذا كان الان في القرص c لا يوجد ملف نصي MyFile
فهذا يعني لم يبق الا ان تجعل البرنامج مسؤولا

http://store1.up-00.com/2016-01/145192847576591.jpg

[سليمان الثواب]

الأكواد تعمل اذا كان الان في القرص c لا يوجد ملف نصي MyFile
فهذا يعني لم يبق الا ان تجعل البرنامج مسؤولا

http://store1.up-00.com/2016-01/145192847576591.jpg

شكرا لكم جميعا على سرعة التجاوب

أنحلت المشكلة :abc_152::abc_152::abc_152::abc_152: