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

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

كيف أعمل صفحة داخل الاسطونة تتيح للمستخدم باضافة برامجه المفضلة

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

  • كيف أعمل صفحة داخل الاسطونة تتيح للمستخدم باضافة برامجه المفضلة

    بسم الله الرحمن الرحيم

    انا دلوقتى بصمم اسطونة برامج بالتالى الاسطونة تحتوى على مجموعة كبيرة من البرامج من اختيارى
    ارغب فى عمل صفحة داخل الاسطونة تتيح للمستخدم
    باضافة برامجه المفضلة للاسطونة
    بمعنى اخرى صفحة تحتوى على ثلاثة ازرار على سبيل المثال

    الزر الاول يتيح للمستخدم باضافة برنامج من جهاز الكمبيوتر الخاص به الى الاسطونة وعند غلق الاسطونة وفتحها مرة اخرى يجد البرامج التى تم اضافتها موجودة داخل الاسطونة
    الزر التانى يتيح للمستخدم حذف اى برنامج تم اضافته يعنى لو عاوز يحذف برنامج قام فى السابق باضافته

    الزر التالت يتيح للمستخدم اضافة ملحوظة او نص داخل الاسطونة
    ارجو ان يكون استفسارى واضح وسهل وارجو الرد عليه بشكل مبسط وواضح يشمل جميع الجوانب وليس رد مختصر

  • #2
    الأفضل أن ترفق ملف مفتوح يوضح الفكرة ولو أن تدعه بدون برامج حتى يسهل تحميله...

    تعليق


    • #3
      اخى الفكرة واضحة وبسيطة جدا

      صفحة داخل التجمعية تحتوى على ثلاث ازرار لكل زر مهمة معينة

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

      تعليق


      • #4
        فكرة جميلة ان شاء الله فى الهندسة الصناعية ستجد الاجابة

        ولكن لى ملحوظة

        هو انت ليه مسمى نفسك
        الصورة الرمزية محمد مصطفى الجن

        بعد اسمين من اسماء النبى صلى الله عليه وسلم
        اسم الجن.

        تعليق


        • #5
          أخى الجن المقصود منها اختصار لكلمة جنرال مسمى شهرة ليس اكتر وفى النهاية اهم شئ النية من الاستخدام وطبعا عمرى ماكون قاصد بكلمة الجن دى حاجة محرمة زى ماقولتلك شهرة مش اكتر

          تعليق


          • #6
            استغل ListBox

            تعليق


            • #7
              ارجو التوضيح اخى الكريم ان امكن

              تعليق


              • #8
                سأضع تصور لك ان تكمله و تعدله حسب ما تبغي

                مثلا لو نفتح معا مشروعا جديدا و تضع برنامجين في مجلد Docs
                - ضمن صفحة العمل ListBox ولتكن ListBox1
                في هذا العنصر و في الحدث on double click مثلا
                نزرع الكود :
                كود:
                tSelected = ListBox.GetSelected("ListBox1");
                if tSelected then
                	sFilePath = ListBox.GetItemData("ListBox1", tSelected[1]);
                	File.Open(sFilePath, "", SW_SHOWNORMAL);
                else
                end
                - بعدها نتوجه لصفحة المشروع وفي on show
                نضع الكود التالي :
                كود:
                bFound = Folder.DoesExist("AutoPlay\\Docs\\");
                if bFound == true then
                tFiles = File.Find("AutoPlay\\Docs\\", "*", false, false, nil, nil);
                	if tFiles then 
                		for i,sFilePath in tFiles do
                			tFileParts = String.SplitPath(sFilePath); 
                			sFileName = tFileParts.Filename; 
                			sFileExtension = tFileParts.Extension; 
                			sFullFileName = sFileName..sFileExtension;
                			ListBox.AddItem("ListBox1", sFullFileName, sFilePath); 
                		end
                	end
                end
                بعد المعاينة قد تظهر عناوين الملفات و بالضغط مرتين سيتم فتحها

                =================================================
                سنتحتاج قلنا إلى زر يضيف للتجميعية و في نفس المجلد برامج أو ملفات أخرى

                نعود إلى مساحة العمل
                _ نضع زر و ستخصصه لإضافة برامجك المفضلة ونزرع فيه :
                كود:
                result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, true);
                if (result[1] ~= "CANCEL") then
                File.Copy(result[1], _SourceFolder.."\\AutoPlay\\Docs\\", true, true, false, true, nil);
                end
                سينتقل الملف المحدد للمجلد Docs " لن يظهر لك ينقص تحديث حتى يظهر لكن
                بمجرد فتح التجميعية مرة ثانية ستجده قد أصيف و يعمل "

                ================================================== ====

                نريد زر لحذف البرنامج المحدد
                ضع زرا جديد في تجميعيتك وازرع
                كود:
                tSelected = ListBox.GetSelected("ListBox1");
                if tSelected then
                	sFilePath = ListBox.GetItemData("ListBox1", tSelected[1]);
                	File.Delete(sFilePath, false, false, false, nil);
                ListBox.DeleteItem("ListBox1", tSelected[1]);
                else
                end
                سيتم الحذف نهائيا ؟؟ لهذا جمع و عدل و ضف حسب ما ترغب

                هذا مادار في ذهني ريثما يفيدك المختصون سلام

                تعليق


                • #9
                  اشكرك اخى الكريم على اهتمامك لكن جزء نجح وجزء فشل بمعنى ان زر اضافى البرامج بالفعل بيفتح جهاز الكمبيوتر وبعد اختيار البرنامج اجده فى الدوس ولكن المشكلة ان البرنامج لا يظهر داخل الاسطونة حتى بعد اغلاقهعا وفتحها مرة اخرى مع العلم انى قمت باتباع كل الخطوات التى ذكرتها لو امكن لو هتعبك معايا شرح فيديو فلاشى بالتطبيق ربما يكون اوضح

                  تعليق


                  • #10
                    فعلا أخي الكريم لكن ماذكرته اشرت لك به
                    مازال لم اتوصل للتحديث
                    يمكنك تغيير الحذف للملفات بأكواد تحويل مكانها لمجلد آخر في التجميعة
                    ربما لو تحاول مع File.Move قد تجد ما تبحث عنه

                    تعليق


                    • #11
                      اذ لم تجد حل

                      ضف زر جديد و ليكن " تحديث قائمة البرامج"
                      وازرع فيه
                      كود:
                      ListBox.DeleteItem("ListBox1", -1);
                      bFound = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Docs\\");
                      if bFound == true then
                      tFiles = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\", "*", false, false, nil, nil);
                      	if tFiles then 
                      		for i,sFilePath in tFiles do
                      			tFileParts = String.SplitPath(sFilePath); 
                      			sFileName = tFileParts.Filename; 
                      			sFileExtension = tFileParts.Extension; 
                      			sFullFileName = sFileName..sFileExtension;
                      			ListBox.AddItem("ListBox1", sFullFileName, sFilePath); 
                      		end
                      	end
                      end

                      هذه كلها مقترحات لأن في عملك النهائي المسارات و التسميات مهمة

                      تعليق


                      • #12
                        مشكر اخى جارى المحاولة بتطبيق ماذكرته ربما يأتى الحل

                        تعليق


                        • #13
                          تظهر هذه الرسالة عند الضغط على زر تحديث ولا يظهر اى برنامج
                          الملفات المرفقة

                          تعليق


                          • #14
                            أنا أعمل على الاصدار السابع
                            عدل على الاكواد حتى تتوافق في الدالة التكرارية

                            كود:
                            for i,sFilePath in pairs (tFiles) do
                            هذا هو السطر عدله في الكود المرسل في هذه الصفحة و آخر في الصفحة السابقة

                            تعليق


                            • #15
                              مشكوووووووووووووووووووووو وووور أخى الكريم نجح الامر اخيرا

                              ولكن كان عندى طلب سخيف معلش اعذرنى

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

                              ثانيا عند الضغط على زر اضافة وبعد اختيار البرنامج المرغوب فى اضافته عاوز شريط توضيحى بانتهاء الاضافة

                              تعليق

                              مواضيع تهمك

                              تقليص

                              المنتدى: القسم العام نشرت بواسطة: 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