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

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

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

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

  • #46
    بسم الله الرحمن الرحيم
    اظن اننا لو جربنا ان يكون المجلد الرئيسي داخل
    مجلد

    Audio

    ربم تنجح العملية


    تعليق


    • #47
      حاولت أن أفهم ما المشكل في الكود
      ربما أني لم أفهم
      [html]function dleatefolder(Source,Deleted,Total)
      StatusDlg.SetMeterRange(0, Total);
      StatusDlg.SetMeterPos(Deleted);
      StatusDlg.SetStatusText("جارى حذف "..Source);
      StatusDlg.SetTitle("حذف مجلد بالكامل");
      return true
      end
      tblIndex = ListBox.GetSelected("ListBox2")
      if tblIndex ~= nil then
      Data = ListBox.GetItemData("ListBox2", tblIndex[1]);
      if Data~="" then
      MediaPlayer.Stop("Plugin1");
      result = Dialog.Message("إنتبه", Data.."\r\n".."هل تريد حذف هذا المجلد بأكملة ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
      if result~=IDNO then
      StatusDlg.Show(MB_ICONNONE, false);
      StatusDlg.SetMessage(" ......... جارى حذف المجلد إنتظر قليلا");
      Folder.DeleteTree(Data.."\\", dleatefolder);

      rt = Folder.DoesExist(Data);
      if rt then
      Folder.Delete(Data);
      end
      x = Application.GetPageScript("RASE", "On Show");
      loadstring(x)()
      StatusDlg.Hide();
      ListBox.SelectItem("ListBox2", tblIndex[1]);
      ListBox.DeleteItem("ListBox2", tblIndex[1]);
      ListBox.DeleteItem("ListBox1", tblIndex1[1]);
      Folder.DeleteTree(Data.."\\", dleatefolder);
      Dialog.Message("شكرا", "تم حذف المجلد بنجاح");
      else
      Dialog.Message("شكرا للإنتباه","تم التراجع عن هذه الخطوة ولن يتم حذف المجلد");
      Application.ExitScript();
      end
      end
      else
      Dialog.SplashImage("AutoPlay\\Images\\77770009.png ", 5, true);
      end
      [/html]

      تعليق


      • #48
        المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
        حاولت أن أفهم ما المشكل في الكود
        ربما أني لم أفهم
        [html]function dleatefolder(Source,Deleted,Total)
        StatusDlg.SetMeterRange(0, Total);
        StatusDlg.SetMeterPos(Deleted);
        StatusDlg.SetStatusText("جارى حذف "..Source);
        StatusDlg.SetTitle("حذف مجلد بالكامل");
        return true
        end
        tblIndex = ListBox.GetSelected("ListBox2")
        if tblIndex ~= nil then
        Data = ListBox.GetItemData("ListBox2", tblIndex[1]);
        if Data~="" then
        MediaPlayer.Stop("Plugin1");
        result = Dialog.Message("إنتبه", Data.."\r\n".."هل تريد حذف هذا المجلد بأكملة ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
        if result~=IDNO then
        StatusDlg.Show(MB_ICONNONE, false);
        StatusDlg.SetMessage(" ......... جارى حذف المجلد إنتظر قليلا");
        Folder.DeleteTree(Data.."\\", dleatefolder);

        rt = Folder.DoesExist(Data);
        if rt then
        Folder.Delete(Data);
        end
        x = Application.GetPageScript("RASE", "On Show");
        loadstring(x)()
        StatusDlg.Hide();
        ListBox.SelectItem("ListBox2", tblIndex[1]);
        ListBox.DeleteItem("ListBox2", tblIndex[1]);
        ListBox.DeleteItem("ListBox1", tblIndex1[1]);
        Folder.DeleteTree(Data.."\\", dleatefolder);
        Dialog.Message("شكرا", "تم حذف المجلد بنجاح");
        else
        Dialog.Message("شكرا للإنتباه","تم التراجع عن هذه الخطوة ولن يتم حذف المجلد");
        Application.ExitScript();
        end
        end
        else
        Dialog.SplashImage("AutoPlay\\Images\\77770009.png ", 5, true);
        end
        [/html]


        بارك الله فيك الكود يعمل بشكل جيد

        تعليق


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

          تعليق


          • #50
            المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
            مشكور جدا ... أرغب في تحميل الملف

            شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

            تعليق


            • #51
              المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
              بقي شيئ اخر في زر اضافة مجلد
              تنبيه المستخدم بان المجلد موجود مسبقا واعطائه امكانية تغير اسم المجلد المحمل من الجهاز واضافة الى بقيت المجلدات
              [html]folder = Dialog.FolderBrowse("Open Folder", "C:\\");
              if (folder ~= "CANCEL") and (folder ~= "") then
              N_FOLDR = String.SplitPath(folder).Filename
              result = Folder.DoesExist(_SourceFolder.."\\MIN");
              if not result then
              Folder.Create(_SourceFolder.."\\MIN\\");
              Folder.Create(_SourceFolder.."\\MIN\\"..N_FOLDR.." \\");
              Flash.SetVisible("Flash1", true);
              File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..N_FOLDR, true, true, false, true, nil);
              Flash.SetVisible("Flash1", false);
              ComboBox.AddItem("ComboBox1", N_FOLDR, _SourceFolder.."\\MIN\\"..N_FOLDR);
              ListBox.AddItem("ListBox2",N_FOLDR,_SourceFolder.. "\\MIN\\"..N_FOLDR);
              else
              result = Folder.DoesExist(_SourceFolder.."\\MIN\\"..N_FOLDR );
              if not result then
              Folder.Create(_SourceFolder.."\\MIN\\"..N_FOLDR.." \\");
              Flash.SetVisible("Flash1", true);
              File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..N_FOLDR, true, true, false, true, nil);
              Flash.SetVisible("Flash1", false);
              ComboBox.AddItem("ComboBox1", N_FOLDR, _SourceFolder.."\\MIN\\"..N_FOLDR);
              ListBox.AddItem("ListBox2",N_FOLDR,_SourceFolder.. "\\MIN\\"..N_FOLDR);
              else
              result = Dialog.Message("Notice", "هذا المجلد موجود تم إضافتة مسبقا فهل تريد تعديل الإسم ؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
              if result~=IDNO then
              rrs = Dialog.Input("Enter Data", "أكتب الإسم الجديد للمجلد "..N_FOLDR.." الإسم القديم هو", "", MB_ICONQUESTION);
              if rrs~="" and rrs~="CANCEL" then
              Folder.Create(_SourceFolder.."\\MIN\\"..rrs.."\\") ;
              File.Copy(folder.."\\*.*", _SourceFolder.."\\MIN\\"..rrs, true, true, false, true, nil);
              StatusDlg.Show(MB_ICONNONE, false);
              StatusDlg.SetMessage(" ......... جارى تغيير إسم المجلد إنتظر قليلا");
              x = Application.GetPageScript("RASE", "On Show");
              loadstring(x)()
              Page.Redraw();
              StatusDlg.Hide();
              Dialog.Message("شكرا", "تم تغيير إسم المجلد");
              elseif rrs=="" and rrs~="CANCEL" then
              Dialog.Message("عذرا", "لم يتفير إسم المجلد نظرا لعدم كتابة إسم جديد أكتب الإسم الجديد أولا");
              end
              end
              end
              end
              else
              Dialog.SplashImage("AutoPlay\\Images\\W2G--2.png", 3, true);
              end
              [/html]

              تعليق


              • #52
                المشاركة الأصلية بواسطة ربيع مشاهدة المشاركة
                [html]folder = dialog.folderbrowse("open folder", "c:\\");
                if (folder ~= "cancel") and (folder ~= "") then
                n_foldr = string.splitpath(folder).filename
                result = folder.doesexist(_sourcefolder.."\\min");
                if not result then
                folder.create(_sourcefolder.."\\min\\");
                folder.create(_sourcefolder.."\\min\\"..n_foldr.." \\");
                flash.setvisible("flash1", true);
                file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..n_foldr, true, true, false, true, nil);
                flash.setvisible("flash1", false);
                combobox.additem("combobox1", n_foldr, _sourcefolder.."\\min\\"..n_foldr);
                listbox.additem("listbox2",n_foldr,_sourcefolder.. "\\min\\"..n_foldr);
                else
                result = folder.doesexist(_sourcefolder.."\\min\\"..n_foldr );
                if not result then
                folder.create(_sourcefolder.."\\min\\"..n_foldr.." \\");
                flash.setvisible("flash1", true);
                file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..n_foldr, true, true, false, true, nil);
                flash.setvisible("flash1", false);
                combobox.additem("combobox1", n_foldr, _sourcefolder.."\\min\\"..n_foldr);
                listbox.additem("listbox2",n_foldr,_sourcefolder.. "\\min\\"..n_foldr);
                else
                result = dialog.message("notice", "هذا المجلد موجود تم إضافتة مسبقا فهل تريد تعديل الإسم ؟", mb_yesno, mb_iconinformation, mb_defbutton1);
                if result~=idno then
                rrs = dialog.input("enter data", "أكتب الإسم الجديد للمجلد "..n_foldr.." الإسم القديم هو", "", mb_iconquestion);
                if rrs~="" and rrs~="cancel" then
                folder.create(_sourcefolder.."\\min\\"..rrs.."\\") ;
                file.copy(folder.."\\*.*", _sourcefolder.."\\min\\"..rrs, true, true, false, true, nil);
                statusdlg.show(mb_iconnone, false);
                statusdlg.setmessage(" ......... جارى تغيير إسم المجلد إنتظر قليلا");
                x = application.getpagescript("rase", "on show");
                loadstring(x)()
                page.redraw();
                statusdlg.hide();
                dialog.message("شكرا", "تم تغيير إسم المجلد");
                elseif rrs=="" and rrs~="cancel" then
                dialog.message("عذرا", "لم يتفير إسم المجلد نظرا لعدم كتابة إسم جديد أكتب الإسم الجديد أولا");
                end
                end
                end
                end
                else
                dialog.splashimage("autoplay\\images\\w2g--2.png", 3, true);
                end
                [/html]
                بارك الله فيك

                تمام اخي يعمل بشكل جيد

                تعليق


                • #53
                  هل ممكن نعدل على هذا الكود ليعطي رسالة خطا في حالة كانت كلمة البحث غير صحيحة

                  كود PHP:
                  if e_Key== 13 then

                  ad 
                  ListBox.GetSelected("ListBox1");
                  if 
                  ad ~= nil then

                  result 
                  Input.GetText("Input1");
                  if 
                  result~="" then
                     con 
                  ListBox.GetCount("ListBox1");
                     for 
                  i=1con do
                       
                  tx ListBox.GetItemText("ListBox1"i);
                       if 
                  tx~="" then
                          k
                  ,string.find(txresult);
                          if 
                  k~=nil then
                             ListBox
                  .SelectItem("ListBox1"i);
                             
                  is_it Dialog.Message("يوجد نتيجة للبحث""إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب  ؟"MB_YESNOMB_ICONQUESTIONMB_DEFBUTTON1);
                             if 
                  is_it~=IDNO then
                                
                  break
                             
                  end
                          end
                       end
                     end
                    
                  else
                      
                  Dialog.Message("تنبيه""لم يتم تحديد اي ملف من قائمة المفات"); 
                  end
                  else
                      
                  Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث"); 

                  end
                  end 

                  في نفس المشروع

                  هل ممكن ان نمكن المستخدم من حفظ مجلد
                  او ملف في جهازه

                  انا عندي هذه الاكواد لكن تعتمد على ملف dll

                  تحميل الشريط الحالي


                  [HTML]sel = ListBox.GetSelected("ListBox1");
                  if sel~=nil then
                  list_data = ListBox.GetItemData("ListBox1", sel[1]);
                  if list_data~="" then
                  target_folder = Dialog.FolderBrowse("ÍÏÏ ÇáãÌáÏ ÇáãÑÇÏ ÇáÍÝÙ ÝíÉ", _DesktopFolder);
                  if target_folder ~= "CANCEL" then
                  ts = INIFile.GetValueNames(_SourceFolder.."\\Downloads. ini", "Files");
                  if ts~=nil then
                  for i, s in pairs(ts)do
                  if s==String.SplitPath(list_data).Filename then
                  fd = INIFile.GetValue(_SourceFolder.."\\Downloads.ini", "Files", s);
                  if fd~="" then
                  sd = File.DoesExist(fd..String.SplitPath(list_data).Ext ension);
                  if sd then
                  gs = Dialog.Message("ÊÐßíÑ", "åÐÇ ÇáãÌáÏ Êã ÊÍãíáÉ ãä ÞÈá æãæÌæÏ Ýì äÝÓ ÇáãÓÇÑå&#225 ; ÊÑíÏ ÊÍãíáÉ ãÑÉ ÃÎÑì ¿", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2);
                  if gs==6 then
                  DialogEx.Show("fill", true, nil, nil);
                  end
                  break
                  else
                  DialogEx.Show("fill", true, nil, nil);
                  break
                  end
                  end
                  elseif s~=String.SplitPath(list_data).Filename and i==#ts then
                  DialogEx.Show("fill", true, nil, nil);
                  end
                  end
                  else
                  DialogEx.Show("fill", true, nil, nil);
                  end
                  else
                  result = Dialog.Message("ÊÜÜÜæ&#21 4;íÜÜÍ", "Êã ÇáÛÜÜÜÜÜ&# 220;ÜÜÜÇÁ ÇáÚãáíÜÜ&# 220;É", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
                  end
                  end
                  else
                  Dialog.Message("ÇäÊÈÉ", "íÌÈ ÇáÊÍÏíÏ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
                  end








                  [/HTML]


                  تحميل المجلد الحالي

                  كود PHP:
                  MediaPlayer.Pause("Plugin1");
                  _Selection ComboBox.GetSelected("ComboBox2");
                  if 
                  _Selection~= -1    then
                    dt 
                  ComboBox.GetItemData("ComboBox2"_Selection);  
                    
                  destination Dialog.FolderBrowse("Please select a folder:"""); 
                    if 
                  destination ~= "CANCEL" then
                        ts 
                  INIFile.GetValueNames(_SourceFolder.."\\Downloads.ini""Folders");
                        if 
                  ts~=nil then
                           
                  for is in pairs(ts)do
                               if 
                  s==String.SplitPath(dt).Filename then
                                  fd 
                  INIFile.GetValue(_SourceFolder.."\\Downloads.ini""Folders"s);
                                  if 
                  fd~="" then
                                      sd 
                  Folder.DoesExist(fd);
                                      if 
                  sd then
                                         gs 
                  Dialog.Message("تذكير""هذا المجلد تم تحميلة من قبل وموجود فى نفس المسارهل تريد تحميلة مرة أخرى ؟"MB_YESNOMB_ICONQUESTIONMB_DEFBUTTON2);
                                         if 
                  gs==6 then
                                             DialogEx
                  .Show("ALL"truenilnil);
                                         
                  end
                                         
                  break
                                         else
                                            
                  DialogEx.Show("ALL"truenilnil);
                                         break
                                       
                  end
                                    end
                                    
                  elseif s~=String.SplitPath(dt).Filename and i==#ts then
                                       
                  DialogEx.Show("ALL"truenilnil);
                                 
                  end
                              end
                             
                  else
                                
                  DialogEx.Show("ALL"truenilnil);
                          
                  end      
                        
                  else
                           
                  Dialog.Message("تـــوضيــح""تم الغـــــــــاء العمليـــة"MB_OKMB_ICONINFORMATIONMB_DEFBUTTON1);
                     
                  end
                    
                  else
                       --
                  Dialog.Message("انتبة""يجب التحديد".."\r\n".._SelectionMB_OKMB_ICONINFORMATIONMB_DEFBUTTON1); 
                        
                  Dialog.Message("انتبة""يجب التحديد"MB_OKMB_ICONINFORMATIONMB_DEFBUTTON1);   
                  end 


                  ملفات Dll

                  في المرفق
                  الملفات المرفقة

                  تعليق


                  • #54
                    ترقيع في الكود المطروح وليس بناء

                    [html]if e_Key== 13 then
                    ad = ListBox.GetSelected("ListBox1");
                    if ad ~= nil then
                    result = Input.GetText("Input1");
                    if result~="" then
                    con = ListBox.GetCount("ListBox1");
                    for i=1, con do
                    tx = ListBox.GetItemText("ListBox1", i);
                    if tx~="" then
                    k,s = string.find(tx, result);
                    if k~=nil then
                    ListBox.SelectItem("ListBox1", i);
                    is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
                    if is_it~=IDNO then
                    end;end;else
                    end;end;else
                    Dialog.Message("تنبيه", "لم يتم تحديد اي ملف من قائمة المفات");
                    end;else
                    Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");
                    end;
                    if k ~=1 then
                    Dialog.TimedMessage("", "كلمة البحث غير صحيحة" , 2000, MB_ICONINFORMATION);
                    end
                    end[/html]
                    التعديل الأخير تم بواسطة ثامر أبو بلقيس; الساعة 13-04-2017, 12:30 AM.

                    تعليق


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

                      كود PHP:
                      if e_key== 13 then 
                      ad 
                      listbox.getselected("listbox1"); 
                      if 
                      ad ~= nil then 
                      result 
                      input.gettext("input1"); 
                      if 
                      result~="" then 
                      con 
                      listbox.getcount("listbox1"); 
                      for 
                      i=1con do 
                      tx listbox.getitemtext("listbox1"i); 
                      if 
                      tx~="" then 
                      k
                      ,string.find(txresult); 
                      if 
                      k~=nil then 
                      listbox
                      .selectitem("listbox1"i); 
                      is_it dialog.message("يوجد نتيجة للبحث""إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب  ؟"mb_yesnomb_iconquestionmb_defbutton1); 
                      if 
                      is_it~=idno then 
                      break;end;else
                      input.settext(this"");
                      dialog.timedmessage("""كلمة البحث غير صحيحة" 2000mb_iconinformation);break
                      end;end;end;else 
                      dialog.message("تنبيه""لم يتم تحديد اي ملف من قائمة المفات");  
                      end;else 
                      dialog.message("تنبيه","لم يتم تحديد عن ماذا تريد البحث");  
                      end;end 

                      بارك الله فيك
                      الكود يعطي دائمة ان لا توجد نتيجة بالرغم من وجود ما ابحث عنه

                      تعليق


                      • #56
                        المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
                        هل ممكن نعدل على هذا الكود ليعطي رسالة خطا في حالة كانت كلمة البحث غير صحيحة

                        فى زر البحث إستبدل الكود بالكود التالى :

                        كود:
                        --
                        result = Input.GetText("Input1");
                        if result~="" then
                           con = ListBox.GetCount("ListBox1");
                           for i=1, con do
                             tx = ListBox.GetItemText("ListBox1", i);
                             if tx~="" then
                                k,s = string.find(tx, result);
                                if k~=nil then
                                   ListBox.SelectItem("ListBox1", i);
                                   is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب  ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
                                   if is_it~=IDNO then
                                      break
                                   end
                                  elseif k==nil and i==con then
                                    Dialog.Message("نتيجة البحث","لم يتم العثور على نتيجة");
                                end
                             end
                           end
                          else
                            Dialog.Message("تنبيه","لم يتم تحديد عن ماذا تريد البحث"); 
                        end

                        تعليق


                        • #57
                          بالنسبة لحفظ ملف مما يتم إختيارة من الليست بوكس الأول سوف تضع هذه الأكواد فى زر وليكن بإسم حفظ ملف :

                          كود:
                          --
                          function copy(Source,Destination,Copied,Total,FileCopied,FileTotal)
                                StatusDlg.SetMeterRange(0, Total);
                                StatusDlg.SetTitle("عملية حفظ ملفات");
                                StatusDlg.SetMeterPos(FileCopied);
                                StatusDlg.SetStatusText(String.SplitPath(Source).Filename..String.SplitPath(Source).Extension.."     جارى حفظ الملف");
                               return true
                          end
                          result = ListBox.GetSelected("ListBox1");
                          if result~=nil then
                              result = ListBox.GetItemData("ListBox1", result[1]);
                              t = Dialog.FolderBrowse(":   من فضلك قم بتحديد مكان الحفظ للملف ", _DesktopFolder);
                              if t~="" and t~="CANCEL" then
                                  StatusDlg.Show(MB_ICONNONE, false);
                                  File.Copy(result, t, true, true, false, true, copy);
                                  StatusDlg.Hide();
                                  Dialog.Message("نتيجة الحفظ","تم الحفظ بنجاح");
                              end
                          end

                          أما بالنسبة لحفظ مجلد بأكملة مما يتم إختيارة من الليست بوكس الثانى تضع هذه الأكواد فى زر وليكن بإسم حفظ مجلد بالكامل :

                          كود:
                          --
                          function copy(Source,Destination,Copied,Total,FileCopied,FileTotal)
                                StatusDlg.SetMeterRange(0, Total);
                                StatusDlg.SetTitle("عملية حفظ ملفات");
                                StatusDlg.SetMeterPos(FileCopied);
                                StatusDlg.SetStatusText(String.SplitPath(Source).Filename..String.SplitPath(Source).Extension.."     جارى حفظ الملف");
                               return true
                          end
                          result = ListBox.GetSelected("ListBox2");
                          if result~=nil then
                              result = ListBox.GetItemData("ListBox2", result[1]);
                              t = Dialog.FolderBrowse(":   من فضلك قم بتحديد مكان الحفظ للمجلد ", _DesktopFolder);
                              if t~="" and t~="CANCEL" then
                                  StatusDlg.Show(MB_ICONNONE, false);
                                  File.Copy(result.."\\*.*", t, true, true, false, true, copy);
                                  StatusDlg.Hide();
                                  Dialog.Message("نتيجة الحفظ","تم الحفظ بنجاح");
                              end
                          end

                          تعليق


                          • #58
                            المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
                            فى زر البحث إستبدل الكود بالكود التالى :

                            كود:
                            --
                            result = input.gettext("input1");
                            if result~="" then
                               con = listbox.getcount("listbox1");
                               for i=1, con do
                                 tx = listbox.getitemtext("listbox1", i);
                                 if tx~="" then
                                    k,s = string.find(tx, result);
                                    if k~=nil then
                                       listbox.selectitem("listbox1", i);
                                       is_it = dialog.message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب  ؟", mb_yesno, mb_iconquestion, mb_defbutton1);
                                       if is_it~=idno then
                                          break
                                       end
                                      elseif k==nil and i==con then
                                        dialog.message("نتيجة البحث","لم يتم العثور على نتيجة");
                                    end
                                 end
                               end
                              else
                                dialog.message("تنبيه","لم يتم تحديد عن ماذا تريد البحث"); 
                            end


                            بارك الله فيك

                            ماذا عن هذه الصورة
                            هل يمكن حذف المؤشر عليه
                            علما انني اذا خذفته تختفي الصور التي في الشروع
                            الملفات المرفقة

                            تعليق


                            • #59
                              المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
                              بارك الله فيك

                              ماذا عن هذه الصورة
                              هل يمكن حذف المؤشر عليه
                              علما انني اذا خذفته تختفي الصور التي في الشروع
                              مش شايف الصورة كويس " الصورة حجمها صغير جدا " ومن إيه " إيه سبب ظهور هذا يعنى بتعمل إية وضح أكتر "

                              تعليق


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

                                تعليق

                                مواضيع تهمك

                                تقليص

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