جزاك الله خيرا أستاذ ثامر
لكن المشكله مازالت مستمرة

عندي يعمل لعل برنامجك يريد أن يكون مسؤول ربما

لا إله إلا الله ..فعلا كنت ناسي أعمله مسؤوول...
فعلا إشتغل تمام...لكن هناك عدة مراقبات:
عند إضافة صورة للطالب الأول تحفظ في ملف Image برقم 1
عند إضافة صورة للطالب الثاني تحفظ في ملف Image برقم 2..وهكذا
لكن عند تغيير الصورة...يحدث أخطاء ..كتكرارها...والصورة القديمة لا تحذف بل تظل موجودة

هل من حل لحذف الصور القديمة التي قمت بإستبدالها

ففي الصورة أدرجت الكود التالي
وفي on select وفي آخره أدرجت

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

بالنسبة للكود الذي يكتب في ListBox نفكر قليلا
رايح يستدعي صور و هذه الصور أرقام فقط من 1 إلى ....
علاش ما نستغلش الارقام بأرقام صفوف ListBox على شرط واحد أن المجلد
الصور لا يستورد اليه في المشروع ككل ملفات ذات تسمية رقمية لوحدها دون حروف
الا تلك الصور التي فرضتها أكواد برنامجك على أن نتغلب عن اللاحقة مهما كان نوعها

كلام


جرب هذا الكود و اضفه لما كان مكتوب في ملفك
في ListBox الحدث on select ليصبح الكود كاملا :
[html]local Lsttbl = ListBox.GetSelected(this);
if Lsttbl then
Input.SetText("Inp_ name", INIFile.GetValue("AutoPlay\\Docs\\1ere\\DB1A1T.ini ", ListBox.GetItemData("ListBox_Stu1", Lsttbl[1]), "Name"))
Input.SetText("Inp_user", INIFile.GetValue("AutoPlay\\Docs\\1ere\\DB1A1T.ini ", ListBox.GetItemData("ListBox_Stu1",Lsttbl[1]),"user"))
Input.SetText("Inp-class", INIFile.GetValue("AutoPlay\\Docs\\1ere\\DB1A1T.ini ", ListBox.GetItemData("ListBox_Stu1",Lsttbl[1]),"class"))
Input.SetText("Inp_ID", ListBox.GetItemData("ListBox_Stu1",Lsttbl[1]))
end

belkiss = Lsttbl[1]
n = File.Find(_SourceFolder.."\\AutoPlay\\Images\\", "*.*", false, false, nil, nil);
for i,p in pairs(n) do
k = String.SplitPath(p).Filename
if k == ""..belkiss then
Image.Load("Image1", p);break
end
end [/html]

عن مشكل الصورة احذفها قبل ما تستبدلها

ترقيع أي لم أهذب الأكواد
عند الضغط على الصورة
[html]
if Input.GetText("Inp_ID")=="" then
Dialog.Message("تنبيه","ادخل رقم الكشاف");
else
mo = Input.GetText("Inp_ID");
File.Delete(_SourceFolder.."\\AutoPlay\\Images\\". . mo..".*", false, false, false, nil);
sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp; *.psd;*.gif|All Files (*.*)|*.*|";
tImagesFiles = Dialog.FileBrowse(true, "", Shell.GetFolder(SHF_MYDOCUMENTS), sExtension, "", "", false, true);
if tImagesFiles[1] ~= "CANCEL" then
path_parts = String.SplitPath(tImagesFiles[1]);
destination = _SourceFolder.."\\AutoPlay\\Images\\"
result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
File.Rename(_SourceFolder.."\\AutoPlay\\Images\\". . path_parts.Filename..path_parts.Extension, _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension);
Image.Load("Image1", _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension)
File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension, "C:\\School\\Images\\", true, true, false, true, nil);
end
end [/html]

جزاك الله خيرا معلمي الفاضل ......
جهد أكثر من رائع ...
ربنا يبارك في حضرتك
كل شيء اصبح تمام..ولم أنسى كعادتي ...شغلته كمسؤول..

مداخلة جد ممتازة استاذ ثامر و تنسيق جيد للاكواد
واجهتني مشكلة في استدعاء الصور بحيث لم اجدها تستدعي الصورة المناسبة
لذلك عدلت قليلا بحيث استدعي رقم ID باعتباره هو الاسم الذي اعتمد في حفظ الصورة
و ايضا في كل مرة نختار من الليسبوكس يجب ان تعود الصورة للمجهول اي الصورة الاولى
و بعد البحث يعتمد اسم الطالبق التعريفي

في اليسبوكس

رائع أخي المحترف...جميل جدااااا...
نأمل من الله عز وجل .. أن نصل لهذا المستوى الطيب..

لا مستوى و لا شيء ........الفكرة كل الفكرة في فهم الكود ثم تقليده ماتوفرت لك الفرصة ثم الاضافة و التعديل حسب الحدث المناسب
فهم الاكواد هو اللقطة ثم انطلق

فهم الاكواد هو اللقطة ثم انطلق

بارك الله فيك أخي وبارك عليك

عيدكم مبارك