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

**المـهاجر المـهاجر** · 23-02-2017, 12:12 AM

حسنا
إستبدل كود هذا الزر بهذا الكود

كود PHP:


local nSelected1 = ListBox.GetSelected("ListBox1");

MediaPlayer.Pause("Plugin1");

conferm = Dialog.Message("تأكيد", "هل أنت متأكد من حذف كل الأشرطة", MB_YESNO);

  if conferm == 6 then

  File.Delete(_SourceFolder.."\\AutoPlay\\Audio\\1\\".."*.mp3", false, false, false, nil);

  ListBox.DeleteItem("ListBox1", -1);

           Dialog.Message("شكرا", "لقد تم حذف الملفات نهائيا, لا يمكنك استرجاعها مستقبلا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

  

 end

**عبود عبود عبود عبود** · 23-02-2017, 12:13 AM

تأخرت عليك ولكنى مجهد للغاية فـــــ تصبحوا على خير ولى لقاء معكم إن شاء الله يوم السبت " إلى العمل غدا وبعد غد "يومين متواصلين بدون إنترنت "

**عبود عبود عبود عبود** · 23-02-2017, 12:17 AM

آه نسيت أقولك كنت عاوز أعملك حذف بالجملة " يعنى ملتى سليكت من الليست بوكس " يعنى إختيار أكثر من عنصر وحذفهم فى نفس الوقت لكن تقريبا ولست متأكدا " مجهد للغاية " من كفائة عمل الكود فى هذه الحالة ........ فربما تجد من يعدل هذا الخطأ إن وجد ...... " بالنسبة للملف من طرفى "

جرب وإبقى قولى على النتيجة

محمد بن أحمد أبو حذيفة · 23-02-2017, 12:18 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

وهذا تعديل آخر ربما يفيدك "لم أرى مشاركة أخى المهاجر حتى الآن فربما تكون أفضل فـــ عاين ملفى وملف الأخ المهاجر وإختر ما تريد وحاول فهم الأكواد " :

عموما وضعت لك زرين راديو بوتون لتفعيل زر الإضافة أوتفعيل زر الحذف

تم ضبط الأكواد فى لزر الحذف وزر الإضافة و فى حدث الصفحة فى أون شو

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

زر الاضافة عندما يكون المف موجود ونضغط لا يظهر وار لقد تم اضافة الملف

**المـهاجر المـهاجر** · 23-02-2017, 12:19 AM

كود موفق استاذ عبود

و لصاحب الاستفسار
يمكنك الدمج بين المشروعين
افتح المشروعين معا و لا تقلق فالأزرار فى وضع التصميم تتقبل كوبى و بيست للزر بأكمله بين المشاريع (دون فتح الاكواد)

محمد بن أحمد أبو حذيفة · 23-02-2017, 12:22 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

آه نسيت أقولك كنت عاوز أعملك حذف بالجملة " يعنى ملتى سليكت من الليست بوكس " يعنى إختيار أكثر من عنصر وحذفهم فى نفس الوقت لكن تقريبا ولست متأكدا " مجهد للغاية " من كفائة عمل الكود فى هذه الحالة ........ فربما تجد من يعدل هذا الخطأ إن وجد ...... " بالنسبة للملف من طرفى "

جرب وإبقى قولى على النتيجة

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

**عبود عبود عبود عبود** · 23-02-2017, 12:25 AM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

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

زر الاضافة عندما يكون المف موجود ونضغط لا يظهر وار لقد تم اضافة الملف

إزاى بس مش فاهم إنظر لهذة الصورة من عندى أثناء المعاينة وإضافة ملف هو موجود مسبقا :

**المـهاجر المـهاجر** · 23-02-2017, 12:28 AM

هذا الطلب غير منطقى
كيف عندما يكون الملف موجود يظهر حوار لقد تم اضافة الملف ؟؟

محمد بن أحمد أبو حذيفة · 23-02-2017, 12:30 AM

انظر اخي عبود
الصورة الاولى
[IMG][/IMG]

وانظر بعد الضغط على لا

[IMG][/IMG]

**عبود عبود عبود عبود** · 23-02-2017, 12:34 AM

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله

**عبود عبود عبود عبود** · 23-02-2017, 12:37 AM

سلام الله أحياكم ورب العرش نجاكم وإن غبتم عن العين فالقلب لن ينساكم

محمد بن أحمد أبو حذيفة · 23-02-2017, 12:37 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله

بارك الله فيك الله يسهل

**المـهاجر المـهاجر** · 23-02-2017, 12:59 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله

ان شاء الله
فالكل يساعد من يخدم المسلمين بأى شكل

**ياسرهتهت ياسرهتهت** · 23-02-2017, 02:27 AM

بسم الله الرحمن الرحيم
بارك الله في الاساتذة الكرام
متابع معكم للفائدة
موفقين بإذن الله ... لكم مني أجمل تحية .

محمد بن أحمد أبو حذيفة · 23-02-2017, 08:05 AM

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

كود PHP:


sd = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1");

if sd~=true then

   Folder.Create(_SourceFolder.."\\AutoPlay\\Audio\\1");

end

fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", _DesktopFolder, "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);

              

              

              

             

              

             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);

               end

          end

     end

    

     StatusDlg.Hide();

     code = Application.GetPageScript("Page1", "On Show");

     loadstring(code)(); 

   --Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

  Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

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

طلب كود اضافة ملف صوتي الى ليست بوكس وتحديث الصفحة في نفس الوقت

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك