إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

اين الخلل في كود حذف عنصر من الليست بوكس

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • اين الخلل في كود حذف عنصر من الليست بوكس

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

    الكود التالي لحذف عنصر من اللسيت بوكس

    لكن الملف يحذف من الليست بوكس ويبقى في المجلد
    [HTML]local nSelected1 = ListBox.GetSelected("ListBox1");
    --MediaPlayer.Stop("Plugin1");
    MediaPlayer.Pause("Plugin1");
    if (nSelected1 == nil) then
    Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
    else
    conferm = Dialog.Message("ÊÃßíÏ", "åá ÃäÊ ãÊÃßÏ ãä ÍÐÝ ÇáÔÑíØ", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
    if conferm ~= IDNO then

    for i, s in pairs(nSelected1) do
    local data = ListBox.GetItemData("ListBox1", nSelected1[i]);
    File.Delete(data, false, false, false, nil);
    ListBox.DeleteItem("ListBox1", nSelected1[i]);
    Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝ äåÇÆíÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
    end
    else
    MediaPlayer.Play("Plugin1");
    end
    end[/HTML]



    الملف المرفق

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

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



    أى الخطأ سيكون فى الكود فى زر إضافة ملفات
    بعد التعديل سيكون كالتالى :
    كود:
    --
    sd = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1");
    if sd~=true then
       Folder.Create(_SourceFolder.."\\AutoPlay\\Audio\\1");
    end
    fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", "", "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
    if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
         StatusDlg.Show();
         for index, path in pairs(fileade) do
              dx = File.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPath(path).Extension);
              if dx~=true then
                  File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, false, false, true, nil);
                   ListBox.AddItem("ListBox1", String.SplitPath(path).Filename, _SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPath(path).Extension);       
                 else
                   is_ok = Dialog.Message("ÑÓÇáÉ ÊäÈíÉ", path.."\r\n\r\n".."åÐÇ ÇáãáÝ ãæÌæÏ ãÓÈÞÇ åá ÊÑíÏ ÅÓÊÈÏáÉ  ¿", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
                 if is_ok~=IDNO then
                       File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, true, false, true, nil);
                       Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
                   end
              end
         end  
         StatusDlg.Hide();
       end

    تعليق


    • #3
      بسم الله الرحمن الرحيم

      اه الان فهمت

      بارك الله فيك ورحمك

      تعليق

      مواضيع تهمك

      تقليص

      المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 06-08-2025 الساعة 11:33 PM
      المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 06-04-2025 الساعة 05:29 PM
      المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 05-31-2025 الساعة 10:07 PM
      المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 05-30-2025 الساعة 11:48 PM
      المنتدى: التصنيع والانتاج نشرت بواسطة: HaMooooDi الوقت: 05-30-2025 الساعة 09:36 AM
      يعمل...
      X