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

[ياسرهتهت]

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

https://a.top4top.net/p_571mhyss1.png


ما هو الكود المناسب الذي بعد تعبئة البيانات في DialogEx واغلاقه
يجعل البيانات تنتقل للصفحة بهذا الشكل الي الصفحة Page

بحيث البيانات في Input4..Input3..Input2..Input1
الموجوده في DialogEx
تنتقل الي Input4..Input3..Input2..Input1 الموجوده فيالصفحة Page
و البيانات في Input8..Input7..Input6..Input5
الموجوده في DialogEx
تنتقل الي ListBox1-الموجوده فيالصفحة Page
https://b.top4top.net/p_571qcokt1.png

ملف فارغ للتوضيح والتجربة

https://up.top4top.net/downloadf-5713bdqz1-rar.html

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

:abc_152:

[عبود عبود]

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

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

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

http://i.imgur.com/3f9Ngip.jpg

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

--
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);

[ياسرهتهت]

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

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

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

http://i.imgur.com/3f9Ngip.jpg

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

--
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);
---------------------------------
بسم الله الرحمن الرحيم
:abc_152: 100% :abc_152:
كل الشكر والتقدير استاذ عبود
على هذه الاجابة النموذجية الرائعة
موفق بإذن الله ... لك مني أجمل تحية .
http://www.abc4web.net/vb/images/icons/icon_z.gif http://www.abc4web.net/vb/images/icons/icon_z.gif http://www.abc4web.net/vb/images/icons/icon_z.gif

[ثامر أبو بلقيس]

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

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

[ثامر أبو بلقيس]

شكرا شكرا ستاذ ياســـر على اتصالك :abc_139:
وجزاك الله الف خير

[محمد رمضان أبو يوسف]

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

[منار بربرة]

مشكور اخىى

[الدموكي]

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

[بيانكى]

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