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

**عبود عبود عبود عبود** · 25-07-2017, 03:01 PM

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

إليك هذا التعديل

تم الإستغناء عن كود الإظهار السريع للديالوج

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

كود:

--
result = DialogEx.Show("Dialog1", true, nil, nil);
if result~=-1 then
   if result~=2 then
      for i=1,8 do
          if i < 5 then
              Input.SetText("Input"..i, intxt[i]);
            else
             ListBox.AddItem("ListBox1", intxt[i], intxt[i]);
          end  
      end
    else
      Dialog.Message("تنبيه","غلق بدون حفظ للبيانات");
   end
end

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

كود:

--
intxt = {};
for i= 1, 8 do
   t = Input.GetText("Input"..i);
   intxt[i]=t;
end
DialogEx.Close(0);

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

Page11.rar (12.5 كيلوبايت, 24 مشاهدات)

**ياسرهتهت ياسرهتهت** · 25-07-2017, 03:21 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

إليك هذا التعديل

تم الإستغناء عن كود الإظهار السريع للديالوج

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

كود:

--
result = DialogEx.Show("Dialog1", true, nil, nil);
if result~=-1 then
   if result~=2 then
      for i=1,8 do
          if i < 5 then
              Input.SetText("Input"..i, intxt[i]);
            else
             ListBox.AddItem("ListBox1", intxt[i], intxt[i]);
          end  
      end
    else
      Dialog.Message("تنبيه","غلق بدون حفظ للبيانات");
   end
end

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

كود:

--
intxt = {};
for i= 1, 8 do
   t = Input.GetText("Input"..i);
   intxt[i]=t;
end
DialogEx.Close(0);

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

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

100%

كل الشكر والتقدير استاذ عبود
على هذه الاجابة النموذجية الرائعة
موفق بإذن الله ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-07-2017, 05:17 PM

أين انت أستاذ ياسر ؟ احتاجك

حاول الاتصال أخي

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-07-2017, 10:30 PM

شكرا شكرا ستاذ ياســـر على اتصالك

وجزاك الله الف خير

محمد رمضان أبو يوسف · 25-07-2017, 11:51 PM

الله الله عليك أستاذنا الكريم

**منار بربرة منار بربرة** · 04-12-2018, 02:01 PM

مشكور اخىى

**الدموكي الدموكي** · 02-09-2020, 12:59 AM

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

**بيانكى بيانكى** · 23-12-2020, 02:21 AM

مشكوووووووووووووووووووووو وووووووووووووووووووووور

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

ســــؤال : العودة بالبيانات من ( DialogEx ) الي الصفحة Page

ســــؤال : العودة بالبيانات من ( DialogEx ) الي الصفحة Page

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك