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

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

حول listbox

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 4
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق 1 2 3 4 template التالي
  • #16
    المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
    هذا الحل جيد لكن هناك خلل ؟
    وهو هل جربت عندما تكون الكتابة في listbox بالعربي هل الاضافة clipboard
    تتعامل مع اللغة العربية جرب
    على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة
    فعلا يطلع مخلبط مربج مشقلب ........او مغبرط ......الخ

    تحياتي للاستاذ

    تعليق

    • #17
      المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
      بسم الله الرحمن الرحيم
      السلام عليكم ورحمة الله وبركاته

      01 - فعل الإضافة clipboard


      02 - اجعل عنصر listbox قابل للتحديد المتعدد


      03 - الكود في زر :
      كود PHP:
      ------------------------------------------------------------------
      listbox.selectitem("listbox1", lb_allitems);
      x=listbox.getselected("listbox1")
      b=""
      if x then
      for n,h in pairs(x) do
      lbtext=listbox.getitemtext("listbox1",h)
      b=b..lbtext.."\r\n"
      end
      end
      dll      .callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_call_stdcall)
      --------------------------------
      clipboard.copytext(b);
      listbox.deselectitem("listbox1", lb_allitems);
      --------------------------------------------------------------------- 
      4 - الان يمكنك اللصق فالمحتوى مخزن في clipboard

      موفق
      جميل جدا و فعال و اضافة جديدة لمحتوى التحديد في اليسبوكس

      تعليق

      • #18
        مساء الخير
        إذا إرتبط listbox بملفini غير الموجود في أول الموضوع الذي هو xml
        وأريد زر يقوم بطبع البيانات الموجودة في الملف ini...التي أحتاجها ..وليكن مثلا (((السكاشن،،،،القيمةvalu،،،،. ...))بحيث تظهر لي الأسماء التي إستدعيتها في ملف وورد أوتكست؟؟؟؟؟
        فهل يستطيع الأوتو عمل ذلك

        تعليق

        • #19
          شاكرا لأساتذتي

          المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
          بسم الله الرحمن الرحيم
          السلام عليكم ورحمة الله وبركاته

          01 - فعل الإضافة clipboard


          02 - اجعل عنصر listbox قابل للتحديد المتعدد


          03 - الكود في زر :
          كود PHP:
          ------------------------------------------------------------------
          listbox.selectitem("listbox1", lb_allitems);
          x=listbox.getselected("listbox1")
          b=""
          if x then
          for n,h in pairs(x) do
          lbtext=listbox.getitemtext("listbox1",h)
          b=b..lbtext.."\r\n"
          end
          end
          dll          .callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_call_stdcall)
          --------------------------------
          clipboard.copytext(b);
          listbox.deselectitem("listbox1", lb_allitems);
          --------------------------------------------------------------------- 
          4 - الان يمكنك اللصق فالمحتوى مخزن في clipboard

          موفق

          ____ أنا مُحرج فعلا من كثرة الأسئلة-------- وكل الردود قد إستفدت منها كثيرااااااااااااااااااااا ااااااااا
          آخير إن شاء الله وليس آخرا...... هل يمكن لصقها في جدول بالوورد أو الإكسل

          تعليق

          • #20
            كود PHP:
            ------------------------------------------------------------------
            ListBox.SelectItem("ListBox1", LB_ALLITEMS);
            x=ListBox.GetSelected("ListBox1")
            b=""
            if x then
            for n,h in pairs(x) do
            LBText=ListBox.GetItemText("ListBox1",h)
            b=b..LBText.."\r\n"
            end
            end
            DLL            .CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
            --------------------------------
            ListBox.DeselectItem("ListBox1", LB_ALLITEMS);
            ---------------------------------------------------------------------
            local word = luacom.CreateObject("Word.Application") 
            local book = word.documents:Add() 
            word.Visible = false 
            local section             = book.Sections(1) 
            local headers = section.Headers 
            local header             = headers:Item(1)
            Clipboard.CopyText(b); 
            word.Selection:PasteSpecial(); 
            book:SaveAs("C:\\THAMEUR.doc") 
            paras = book.Paragraphs:Add() 
            range = paras.Range 
            range            :InsertParagraph() 
            book:Close() 
            word:Quit() 
            بعد التجربة تفقد القرص c ستجد الملف THAMEUR.doc
            هل الكود يعمل أم لا ؟
            ما المشكل تحديدا ؟

            مع ملاحظة : وجب تفعيل luacom

            تعليق

            • #21
              تسلم يداااااااااااااااااك أخ ثامر
              الأكواد شغاله تمام وتم اللصق...وتم لصق الأسماء في الجدول في الوورد...
              الأكواد ماشاء الله كلها ممتازه .. وتمت العملية بنجاح.

              تعليق

              • #22
                و للإستغناء على الاضافة " كيبورد"

                نستعمل هذا الكود
                [html]------------------------------------------------------------------
                ListBox.SelectItem("ListBox1", LB_ALLITEMS);
                x=ListBox.GetSelected("ListBox1")
                b="" ; if x then
                for n,h in pairs(x) do
                LBText=ListBox.GetItemText("ListBox1",h)
                b=b..LBText.."\r\n"
                end ;end
                DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
                ----------------------------------------------------------------------
                oWordApp=luacom.CreateObject("Word.Application")
                oDoc=luacom.CreateObject("Word.Document")
                oWordApp.Visible = false;
                oDoc=oWordApp.Documents.Add(1)
                oDoc.Content.Text=b
                oDoc:SaveAs("C:\\THAMEUR.doc")
                oWordApp:Quit()
                oWordApp:Quit()
                ListBox.DeselectItem("ListBox1", LB_ALLITEMS);
                --------------------------------------------------------------------[/html]

                موفق أستاذ

                تعليق

                • #23
                  وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
                  يهذب الكود على التحو التالي
                  كود PHP:
                  ------------------------------------------------------------------ 
                  b="" ; 
                  for                   n=1, ListBox.GetCount("ListBox1") do 
                  b=b..ListBox.GetItemText("ListBox1", n).."\r\n" 
                  end
                  DLL                  .CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 
                  ----------------------------------------------------------------------
                  oWordApp=luacom.CreateObject("Word.Application")
                  oDoc=luacom.CreateObject("Word.Document")
                  oWordApp.Visible = false;
                  oDoc=oWordApp.Documents.Add(1)
                  oDoc.Content.Text=b
                  oDoc                  :SaveAs("C:\\THAMEUR.doc")
                  oWordApp:Quit()
                  -------------------------------------------------------------------- 

                  تعليق

                  • #24
                    تكرم أستاذي الغالي ...
                    جزاك الله عنا كل خير....
                    صراحةً أستاذ ورئيس قسم.. زادك الله علما وتواضعا.

                    تعليق

                    • #25
                      بسم الله الرحمن الرحيم
                      بارك الله فيك استاذنا الفاضل ابوبلقيس
                      اكواد احترافية كالعادة ابداع

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

                      تعليق

                      • #26
                        المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                        وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
                        يهذب الكود على التحو التالي
                        كود PHP:
                        ------------------------------------------------------------------ 
                        b="" ; 
                        for                         n=1, ListBox.GetCount("ListBox1") do 
                        b=b..ListBox.GetItemText("ListBox1", n).."\r\n" 
                        end
                        DLL                        .CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 
                        ----------------------------------------------------------------------
                        oWordApp=luacom.CreateObject("Word.Application")
                        oDoc=luacom.CreateObject("Word.Document")
                        oWordApp.Visible = false;
                        oDoc=oWordApp.Documents.Add(1)
                        oDoc.Content.Text=b
                        oDoc                        :SaveAs("C:\\THAMEUR.doc")
                        oWordApp:Quit()
                        -------------------------------------------------------------------- 

                        كود إحترافي عن جد..
                        في هذا الكود يكون الحفظ داخل c
                        فهل يمكن جعله على سطح المكتبDesktop
                        كود PHP:
                        oDoc:SaveAs("C:\\THAMEUR.doc") 

                        تعليق

                        • #27
                          كود PHP:
                          oDoc:SaveAs("C:\\THAMEUR.doc") 
                          يمكن تغيير الحفظ لل desktop ?

                          حاولت لكن لم أستطيع.. ممكن الإفادة.

                          تعليق

                          • #28
                            المشاركة الأصلية بواسطة عمر والي مشاهدة المشاركة
                            كود PHP:
                            oDoc:SaveAs("C:\\THAMEUR.doc") 
                            يمكن تغيير الحفظ لل desktop ?

                            حاولت لكن لم أستطيع.. ممكن الإفادة.

                            إن شاء الله موفق يكون هكذا...
                            كود PHP:
                            oDoc:SaveAs(_DesktopFolder .. "\\THAMEUR.doc") 

                            تعليق

                            • #29
                              نسخ بحث قراني

                              شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
                              اود ان اعرض لكم فكرة تضيف لكم الكثير من الروعه في هذا المجال
                              لكني لم استطيع اجد الكود المناسب
                              لان شفت الفكرة معمولة بالفيجوال بيسك ولم اكن اجيد طريقة كيف اكتب الكود ببرنامج الاوتوبلاي
                              لكن الفكرة انه عملت برنامج المصحف ووضعت باركراف اي عند ادخال نص بحث بالانبوت تظهر بالباركراف وتظهر عدد الكلمات الموجودة بنتيجة البحث
                              ما اريده هوكيف ان اجعل زرب اخر يقوم بنسخ ما موجود تلقائيا الى ملف ورد اي يفتح ملف الورد وينسخ النص تلقائياً وساضع ملف مفتوح ليبين الحاله
                              التعديل الأخير تم بواسطة رانيا حسن; الساعة 08-01-2017, 07:55 AM.

                              تعليق

                              • #30
                                المشاركة الأصلية بواسطة رانيا حسن مشاهدة المشاركة
                                شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
                                اود ان اعرض لكم فكرة تضيف لكم الكثير من الروعه في هذا المجال
                                لكني لم استطيع اجد الكود المناسب
                                لان شفت الفكرة معمولة بالفيجوال بيسك ولم اكن اجيد طريقة كيف اكتب الكود ببرنامج الاوتوبلاي
                                لكن الفكرة انه عملت برنامج المصحف ووضعت باركراف اي عند ادخال نص بحث بالانبوت تظهر بالباركراف وتظهر عدد الكلمات الموجودة بنتيجة البحث
                                ما اريده هوكيف ان اجعل زرب اخر يقوم بنسخ ما موجود تلقائيا الى ملف ورد اي يفتح ملف الورد وينسخ النص تلقائياً وساضع ملف مفتوح ليبين الحاله
                                في زر النسخ ضعي الكود التالي

                                كود PHP:
                                b= Paragraph.GetText("Paragraph1");
                                DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)  
                                ---------------------------------------------------------------------- 
                                oWordApp=luacom.CreateObject("Word.Application") 
                                oDoc=luacom.CreateObject("Word.Document") 
                                oWordApp.Visible = false; 
                                oDoc=oWordApp.Documents.Add(1) 
                                oDoc.Content.Text=b 
                                oDoc                                :SaveAs("C:\\THAMEUR.doc") 
                                oWordApp:Quit() 
                                الملف موجود في c باسم ثامر

                                تعليق

                                السابق 1 2 3 4 template التالي

                                مواضيع تهمك

                                تقليص
                                Empty RSS Feed.
                                يعمل...
                                X