تويت
بارك الله فيك
-
-
المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة
------------------------------
بسم الله الرحمن الرحيم
اخي محمد كنت اتمنا ان يجيبك على هذه الفقرة احد الاساتذة المحترفين
لانني وكما تعلم خبرتي محدوده و اجد صعوبة في تحريك progress مع نسخ ملف واحد بشكل دقيق
في نقل عدد من المجلدات كنت اعتمد على عدد المجلدات في حركة progress
حولت ان اعتمد على الحجم في حركة progress في نسخ ملف واحد ولم تكن العملية دقيقة
هذا ملف يتحتوي على محاولتين اعتمت فيهما على الخدعة لا الاكواد الاحترافية
http://up.top4top.net/downloadf-269yls41-rar.html
موفق بإذن الله ... لك مني أجمل تحية .
بارك الله فيك فكرة رائعة جدا
بقي طريقة نسخ مجلد به عدة مجلدات من الكمبوبوكس الى الجهاز
ننتظر احد الاخوى ربما يفيدناتعليق
-
----------------------------------------------------المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
بسم الله الرحمن الرحيم
اخي محمد تعديل بسيط في الملف يجب ان نضيف هذان السطران
في الحدث On Show للــــــ DialogEx رقم2 المسمي ( fill)كود PHP:SlideShow.SetVisible("SlideShow1", true);
Progress.SetText("VE", " جـــــاري عملية النسخ");
ليصبح الكود كامل بهذا الشكل
موفق بإذن الله ... لك مني أجمل تحية .
تعليق
-
-------------------------------------------المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
بسم الله الرحمن الرحيم
في هذا الملف تم تطبيق الفكرة على الازرار الثلاثة
مشي حالك بها الي ان نجد كود افضل او فكرة احسن
من الاساتذا الكرام
http://up.top4top.net/downloadf-269sqwd1-rar.html
موفق بإذن الله ... لك مني أجمل تحية . تعليق
-
المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة
-------------------------------------------
بسم الله الرحمن الرحيم
في هذا الملف تم تطبيق الفكرة على الازرار الثلاثة
مشي حالك بها الي ان نجد كود افضل او فكرة احسن
من الاساتذا الكرام
http://up.top4top.net/downloadf-269sqwd1-rar.html
موفق بإذن الله ... لك مني أجمل تحية .
بارك الله فيك ورحمك وجزاك الجنةتعليق
-
السلام عليكم ورحمة الله وبركاته
هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟
إن كان هناك أطلعنا على ما تريد مرة أخرى
تعليق
-
بارك الله فيكم تمت الافادةالمشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركةالسلام عليكم ورحمة الله وبركاته
هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟
إن كان هناك أطلعنا على ما تريد مرة أخرىتعليق
-
المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركةالسلام عليكم ورحمة الله وبركاته
هل لا يزال هناك مشكلة أو إستكمال للطلب ؟؟
إن كان هناك أطلعنا على ما تريد مرة أخرى
بارك الله فيك
بقي اشكال واحد فقط
المبن في الصورة
عندما استعمل الزر المخصص لحفظ المجلد كاملا
حيث انه المجلد الرئيسي الذي به عدة مجلدات تظهر الرسالة
يظهر السخ الخاص بالونداوز ثم عند الانتهاء يظهر النسخ الخاص بالتجميعة
الكود المستعمل في الزر
كود PHP:MediaPlayer.Pause("Plugin1");
e_Selection = ComboBox.GetSelected("ComboBox1");
if e_Selection~= -1 then
Text = ComboBox.GetItemText("ComboBox1", e_Selection);
select = (_SourceFolder.."\\AutoPlay\\Audio\\".. Text);
destination = Dialog.FolderBrowse("Please select a folder:", _SourceDrive.."\\destfolder");
-----------------------------------------------------------
if destination ~= "CANCEL" then
INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B1", Text);
INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B2", destination);
INIFile.SetValue("AutoPlay\\Docs\\3all.ini", "ALL", "B3", Text );
DialogEx.Show("ALL", true, nil, nil);
else
result = Dialog.Message("ÊÜÜÜæÖíÜÜÍ", "Êã ÇáÛÜÜÜÜÜÜÜÜÜÇÁ ÇáÚãáíÜÜÜÉ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
التعديل الأخير تم بواسطة محمد بن أحمد أبو حذيفة; الساعة 09-10-2016, 07:21 AM.تعليق
-
ارفع ملف مفتوح للتعديلتعليق
-
بارك الله فيكالمشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
تفضل
http://up.top4top.net/downloadf-282yk0e1-rar.htmlتعليق
-
السلام عليكم ورحمة الله وبركاتهالمشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
إمسح جميع الأكواد الموضوعة فى الزر "حمل مجلد الشيخ كاملا"
ثم ضع الكود التالى :
--------------------------------------------------------كود:-- MediaPlayer.Pause("Plugin1"); e_Selection = ComboBox.GetSelected("ComboBox1"); if e_Selection~= -1 then Text = ComboBox.GetItemText("ComboBox1", e_Selection); select = (_SourceFolder.."\\AutoPlay\\Audio\\".. Text); destination = Dialog.FolderBrowse("Please select a folder:", _SourceDrive.."\\destfolder"); if destination ~= "CANCEL" then DialogEx.Show("ALL", true, nil, nil); else Dialog.Message("تـــوضيــح", "تم الغـــــــــاء العمليـــة", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end else Dialog.Message("انتبة", "يجب التحديد", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end
إمسح جميع الأكواد الموجودة فى الديالوج المسمى بــــ "ALL" الموجودة فى الحدث "On Show".
ثم ضع الكود التالى :
كود:-- SlideShow.SetVisible("SlideShow1", true); dxt = Folder.DoesExist(destination.."\\"..Text); if not dxt then Folder.Create(destination.."\\"..Text); end function _Copy(Source,Destination,Copied,Total,FileCopied,FileTotal) Progress.SetText("VE", String.SplitPath(Source).Filename..String.SplitPath(Source).Extension.." : جارى نسخ الملف"); Progress.SetCurrentPos("VE", (Copied*100/Total)); return true end File.Copy(select.."\\*.*", destination.."\\"..Text, true, true, false, true, _Copy); SlideShow.SetVisible("SlideShow1", false); Label.SetVisible("Label10", false); Label.SetVisible("Label1", true); Dialog.TimedMessage("معلومــــــــة", "تمت عملية النسخ بنجاح", 2000, MB_ICONINFORMATION); DialogEx.Close(0);
لم يكن هناك داعى لإستخدم ملف دل خارجى ليقوم بعملية النسخ لمجلد بالكامل " هذة الوظيفة متاحة بالفعل مع الوظيفة File.Copy "
بالتوفيق فى مسعاك النبيل
تعليق
-
المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركةالسلام عليكم ورحمة الله وبركاته
إمسح جميع الأكواد الموضوعة فى الزر "حمل مجلد الشيخ كاملا"
ثم ضع الكود التالى :
--------------------------------------------------------كود:-- mediaplayer.pause("plugin1"); e_selection = combobox.getselected("combobox1"); if e_selection~= -1 then text = combobox.getitemtext("combobox1", e_selection); select = (_sourcefolder.."\\autoplay\\audio\\".. Text); destination = dialog.folderbrowse("please select a folder:", _sourcedrive.."\\destfolder"); if destination ~= "cancel" then dialogex.show("all", true, nil, nil); else dialog.message("تـــوضيــح", "تم الغـــــــــاء العمليـــة", mb_ok, mb_iconinformation, mb_defbutton1); end else dialog.message("انتبة", "يجب التحديد", mb_ok, mb_iconinformation, mb_defbutton1); end
إمسح جميع الأكواد الموجودة فى الديالوج المسمى بــــ "all" الموجودة فى الحدث "on show".
ثم ضع الكود التالى :
كود:-- slideshow.setvisible("slideshow1", true); dxt = folder.doesexist(destination.."\\"..text); if not dxt then folder.create(destination.."\\"..text); end function _copy(source,destination,copied,total,filecopied,filetotal) progress.settext("ve", string.splitpath(source).filename..string.splitpath(source).extension.." : جارى نسخ الملف"); progress.setcurrentpos("ve", (copied*100/total)); return true end file.copy(select.."\\*.*", destination.."\\"..text, true, true, false, true, _copy); slideshow.setvisible("slideshow1", false); label.setvisible("label10", false); label.setvisible("label1", true); dialog.timedmessage("معلومــــــــة", "تمت عملية النسخ بنجاح", 2000, mb_iconinformation); dialogex.close(0); لم يكن هناك داعى لإستخدم ملف دل خارجى ليقوم بعملية النسخ لمجلد بالكامل " هذة الوظيفة متاحة بالفعل مع الوظيفة file.copy "
بالتوفيق فى مسعاك النبيل
بارك الله ورحمك واعزك بطاعته
هل يمكن التعديل على الزرين الاخرين بنفس الطريقة
وهل ممكن تنبيه المستعمل في حال ان نسي واراد ان ينسخ مرة اخرى ان المجلد او الملف او الشيرط موجود من قبل
اقصد الازرار الثلاثة
بارك الله فيك ورحمكتعليق
-
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .تعليق
-
الوقت ليس فى صالحى اليوم ....... غدا أو بعد غد إن شاء الله إذا لم يساعدك بعض الأخوة هنا
:abc_145:تعليق
-
تعليق