تويت
عند الضغط على زر اضافة ملفات
يبدأ المستعرض من عند الديسكتوب
هل هناك سبب للبدء تحديدا من هناك ؟؟
يبدأ المستعرض من عند الديسكتوب
هل هناك سبب للبدء تحديدا من هناك ؟؟
-
-
تعليق
-
حسنا
لا تجهد المستخدم بجعله يبدأ من الديسكتوب للوصول لمجلد الاضافة
استبدل السطر المعادل فى زر الاضافة ب
سيتذكر البرنامج آخر مجلد و سيفتحه للمستخدم اوتوماتيكياكود PHP:fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", "", "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
حتى بعد غلق البرنامج و فتحه ... حتى بعد غلق الجهاز و فتحهتعليق
-
كود زر الاضافة كاملا بعد اضافة ما يتعلق باضافة العناصر لليست
و حذف ما يتعلق بتحديث الصفحة (لا ضرورة)
كود PHP: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, path);
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
تعليق
-
بارك الله فيك
ماذا عن الميدايبلايرتعليق
-
متجه اليه الانتعليق
-
رحمك الله وجعل مثواك الجنة ووجهك الى الطريق المستقيمالمشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركةتعليق
-
حسنا
لنفرض ان الليست الأساسى به 10 اشرطة
و ليست البحث به 3 اشرطة
اى ليست تريد للميديا بلاير ان تشغل و بأى ترتيب ؟؟
ليست = listbox
تحديث
(تم التوصل للحل مع تجاهل السؤال لعدم ضرورته)تعليق
-
حسنا .. تجاهل سؤالى السابق
استبدل الكود فى الليستبوكس 1 و الليستبوكس2 أيضا بنفس هذا الكود
استبدل كود الميديا بلاير بكود PHP:num = ListBox.GetSelected(this);
if num == nil then
Application.ExitScript();
end
SONG = ListBox.GetItemData(this, num[1]);
list = this
MediaPlayer.Load("Plugin1", SONG);
Button.SetVisible("Btn_Pause", true);
Button.SetVisible("Btn_Play", false);
Progress.SetRange("Progresso",0, Audio.GetLength(CHANNEL_BACKGROUND));
Page.StartTimer(500,1)
بهذه الطريقة لو اضفت 100 ليستبوكس فسيعمل الجميع بلا مشاكل و دون الحاجة لآى تعديلاتكود PHP:Count = ListBox.GetCount(list);
Selected= ListBox.GetSelected(list);
if Selected[1] < Count then
ListBox.SelectItem(list, Selected[1]+1);
elseif Selected[1] == Count then
ListBox.SelectItem(list, 1);
end
جرب المرفق و خبرنىتعليق
-
بسم الله الرحمن الرحيم
ماذا اقول لك
غير رحمك الله حيا وميتا ورزقك الصحة والعافية وجعل مثواك الجنة
ورحمك من ولدتك وادخلها الجنة وجعل لك من هذه الاسطوانة النصيب الاكبر
امينتعليق
-
بقي شيء اخر
كيف اجعل الاسطوانة تقبل التثبيت على القرص الصلب
اي البرامج استعملتعليق
-
استخدم Setup Factory
و هو شقيق للأوتوبلاى من نفس الشركة الأم indigorose و له رابط بالمنتدىتعليق
-
أمينالمشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
و جزاك الله خير الدارين و اعانك على الطاعاتتعليق
-
بسم الله الرحمن الرحيم
بارك الله فيك استاذ المهاجر
مجموعة اكواد احترافية تحتوي على دروس قيمة
جازك الله الف خير
موفق بإذن الله ... لك مني أجمل تحية .
تعليق
-
اذا كان لك وقت دعنا نستفيض في الموضوعالمشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة
فنستفيد ويستفيد باقي الاعضاء
اذا اضفنا عنصر
RadioButton
واعطيناه الامر انه اذا كان مدد تحدد كل عناصر اليست بوكس والعكستعليق
تعليق