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

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

استفســـار عن أظهــار المحفوظ في ListBox و ComboBox

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

    استفســـار عن أظهــار المحفوظ في ListBox و ComboBox

    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركاته
    أخـــــــــواني الافاضـــــــــــل



    http://www.gulfup.com/?dWsR0H


    هذا نموذج لحفظ البيانات بواسطة ملف ini
    كما شرحه الاستاذ عبود في الموضوع
    سلسلة رقم 2 لشرح قواعد البيانات البسيطة

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

    ليسهل التعامل معها
    بنفس طريقة استاذنا ابـــو بلقيــــــــس في التعامل مع Application.SaveValue
    في حفظ البيانات في النظام
    في هذا الموضوع هنــــــــــــــــــــــا

    شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
    الكلمات الدلالية: combobox, listbox, أظهــار, استفســـار, المدفوع
  • #2
    السلام عليكم ورحمة الله وبركاته

    شوف هذا الموضوع
    http://sites.ienajah.com/vb2/showthread...369#post276369

    فيه تعامل في حفظ و استدعاء ملفات الــ ini
    فقط عدل دالة for i,v in StateNames do في on show
    باضافة pairs

    تعليق

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

      ضع هذا في زر و جرب العملية
      كود PHP:
      ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
      for       del = 0,ComboBox.GetCount("ComboBox1")do
      ComboBox.DeleteItem("ComboBox1",del);
      end
      result       = File.Find("AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
      if (      result) then 
      for t = 1,#result  do
      x = String.SplitPath(result[t]);
      StateNames = INIFile.GetSectionNames("AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
      for       i,v in pairs(StateNames) do
      State = Table.Concat(StateNames, ";", i, i);
      ListBox.AddItem("ListBox1",""..State, ""..State);
             ComboBox.AddItem("ComboBox1", ""..State, ""..State);
      end
      end
      end 

      تعليق

      • #4
        بسم الله الرحمن الرحيم
        تمت التجربة بنجاح الكود حقق المطلوب استاذي الفاضل ابو بلقيس
        وتم اظهار اسم السكشن في الاثنين معا
        بارك الله فيك
        باقي كود ON SHOW في الصفحة
        وكود On Select في ListBox
        و ComboBox

        ---------------------

        ---------------------
        حتي يكتمل العمل استاذي الكريم


        =============================
        مع اني وضعت الكود نفسه في زر الحفظ والحدث
        ON SHOW في الصفحة
        وحقق المطلوب ظهور القائمة المخزنة في
        اليست بكس والكمبوبكس
        ============================
        التعديل الأخير تم بواسطة ياسرهتهت; الساعة 25-01-2015, 09:58 PM. سبب آخر: اضافة

        تعليق

        • #5
          بسم الله الرحمن الرحيم
          اخي العزيز
          minomars
          شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

          تعليق

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

            01 - في حدث المشروع on startup ازرع الكود
            كود PHP:
            for i = 1,4 do
            Folder.Create(_SourceFolder.."\\AutoPlay\\Docs\\T"..i.."\\");
            end 
            على مستوى الصفحة الأولى :

            01 - في حدث الصفحة on show ازرع
            كود PHP:
            ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
            for             del = 0,ComboBox.GetCount("ComboBox1")do
            ComboBox.DeleteItem("ComboBox1",del);
            end
            result             = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
            if (            result) then 
            for t = 1,#result  do
            x = String.SplitPath(result[t]);
            StateNames = INIFile.GetSectionNames(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
            for             i,v in pairs(StateNames) do
            State = Table.Concat(StateNames, ";", i, i);
            ListBox.AddItem("ListBox1",""..State, ""..State);
                         ComboBox.AddItem("ComboBox1", ""..State, ""..State);
            end
            end
            end 
            02 - زر الحفظ SAVE---T1 امسح الكل و أكتب :
            كود PHP:
            my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
            if             Input.GetText(my_table[5])=="" then
            Dialog            .Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
            else
            for             i =1,5 do 
            INIFile.SetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..Input.GetText(my_table[5])..".ini", Input.GetText(my_table[5]), "RW"..i, Input.GetText(my_table[i]));
            end
            end 
            03 - في زر الاستدعاء load-T1 امسح الكل و اكتب :
            كود PHP:
            my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
            if             Input.GetText(my_table[5]) =="" then
            result             = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
            else
            for             i =1,5 do
            Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..Input.GetText(my_table[5])..".ini", Input.GetText(my_table[5]), "RW"..i));
            end
            end 
            04 - في العنصر ListBox1 في on select أكتب :
            كود PHP:
            my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
            dd = ListBox.GetItemText(this,ListBox.GetSelected(this)[1]);
            if             dd =="" then
            result             = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
            else
            for             i = 1,5 do
            Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..dd..".ini", dd, "RW"..i));
            end
            end 
            05- في العنصر ComboBox1 في الحدث on select أكتب :
            كود PHP:
            my_table = {"ASM", "HATF","ANWAN","INFO","NMPER"};
            dd = ComboBox.GetItemText(this,ComboBox.GetSelected(this));
            if             dd =="" then
            result             = Dialog.Message("ãáÇÍÙÉ", "ÇÏÎá ÇÓã ÇáÓßÔä.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
            else
            for             i = 1,5 do
            Input.SetText(my_table[i], INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..dd..".ini", dd, "RW"..i));
            end
            end 
            06 - ضف زرا جديدا سمه تحديث البينات ازرع فيه نفس الأكود الموجودة في on show
            كود PHP:
            ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
            for             del = 0,ComboBox.GetCount("ComboBox1")do
            ComboBox.DeleteItem("ComboBox1",del);
            end
            result             = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\T1\\", "*.ini", false, false, nil, nil);
            if (            result) then 
            for t = 1,#result  do
            x = String.SplitPath(result[t]);
            StateNames = INIFile.GetSectionNames(_SourceFolder.."\\AutoPlay\\Docs\\T1\\"..x.Filename..x.Extension);
            for             i,v in pairs(StateNames) do
            State = Table.Concat(StateNames, ";", i, i);
            ListBox.AddItem("ListBox1",""..State, ""..State);
            ComboBox.AddItem("ComboBox1", ""..State, ""..State);
            end
            end
            end 
            ---------------
            على مستوى باقي الصفحات نفس الأكواد فقط غير T1 بــ T2 أو T3 أو T4 في جميع الأكواد حسب الصفحات

            تعليق

            • #7
              شكرا ليك اخى ياسر على الاستفسار والمشروع المميز والرائع
              وشكرا لأروع استاذ اوتو بلاى " ثامر"على الاهتمام والرد

              تعليق

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

                تعليق

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

                  موفق بإذن الله ... لك مني أجمل تحية .

                  تعليق

                  • #10
                    في خدمتك أخي تستاهل كل خير

                    تعليق

                    • #11
                      بسم الله الرحمن الرحيم
                      اخي خادم المسلمين
                      شكرا لك على مرورك الكريم
                      الشكر الحقيقي بالفعل للاستاذ الفاضل ابو بلقيس
                      الذي لا يتردد ابداً في تقديم المساعدة والعون للجميع
                      بارك الله فيه وفيك وفي كل من تعلم العلم وعلمه
                      شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

                      تعليق

                      السابق template التالي

                      مواضيع تهمك

                      تقليص
                      الرياضة وأثرها الشامل على صحة الإنسان
                      المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                      تكاليف الجودة Cost of Quality
                      المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                      تصميم أنظمة التصنيع
                      المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                      شركة رواد الحرمين
                      المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                      Adobe Acrobat Pro DC 2025.001.20428 لتحرير وتعديل وتحويل وإنشاء وقراءة وطباعه pdf
                      المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                      يعمل...
                      X