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

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

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

تقليص
هذا الموضوع مغلق.
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
      بسم الله الرحمن الرحيم

      اه الان فهمت

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

      تعليق

      مواضيع تهمك

      تقليص

      المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
      المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
      المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
      المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
      المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
      يعمل...
      X