ســـــؤال عن تضاد في الكود ( عملية عكسية )

[ياسرهتهت]

بسم الله الرحمن الرحيم
هل العنوان معبر عن السؤال ؟ لا ادري ؟؟
المهم السؤال هو ----

عندي ComboBox بحتوي في ItemText علي اسماء
في الصفحة نفسها يوجد ثلاث Button تحمل نفس الاسماء في ItemText
وكذلك يوجد Input

انا اريد عند التحديد في ComboBox يتم الضغط على الزر صاحب الاسم في التحديد
وهذا تم بواسطة هذا الكود وكل شيء تمام

Selected= ComboBox.GetSelected("Combomonth");
Text = ComboBox.GetItemText("Combomonth", Selected);
Page.ClickObject(Text);


لكـــــــــــــــــــــــ ـــــــــــــن
واريد اذا تم الضغط علىButton ان يتم التحديد في الـــــ ComboBox للاسم Button
بهذا الكود

n_boton = Button.GetText(this);
find_month = ComboBox.FindItem("Combomonth", -1, LB_BYTEXT, n_boton);

if find_month~=-1 then
ComboBox.SetSelected("Combomonth", find_month);


end

طبعا هنا تظهر رسالة خطالان الكود مكرر او يقوم بنفس الشي (كذا فهمت )

ما زاد الطين بلة انني اريد عند كتابة الاسم في Input ان يتم التحديد في ComboBox

طبعا اصبحت رسالة الخطا لا تتوقف
الملف المفتوح يوضح الطلب اكثر

https://up.top4top.net/downloadf-633ruuxo1-rar.html
او من المرفقات

http://www.abc4web.net/vb/kingnet/abc4web/misc/download.png

اتمنا ان يكون لديكم حل لهذه المشكله

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


:abc_152::abc_152::abc_152:

[ياسرهتهت]

بسم الله الرحمن الرحيم
توصلت الي هذا الحل
https://up.top4top.net/downloadf-634rn18o1-rar.html

هل يوجد فكرة افضل
:abc_152::abc_152::abc_152:

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

المشكل أساسا كان في الكود
Page.ClickObject
الموجود ضمن دالة شرطية في حدث العنصر Combomonth
هو سبب تلك الرسالة :abc_152:

انزعه من أكواد تساؤلاتك فقط

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

وبالتالي أستطيع أن أكتب في أي زر
Input.SetText("Input1",this );
find_month = ComboBox.FindItem("Combomonth", -1, LB_BYTEXT, this);
ComboBox.SetSelected("Combomonth", find_month);
Page.SetFocus("Input1");

و اكتفي حاليا ب ComboBox شاغرة الأكواد إلى غاية توضيح
ما المطلوب أجرأة ً انطلاقا من هذا العنصر :abc_138:

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

و هذا هو الكود الموجود في الكومبوكس سابقا مع تعديل تسمية
لكن لا أعرف ما الدور المنوط به
الضغط على Combomonth و ليس Text لانها لاتعبر عن عنصر في حقل العمل
Selected= ComboBox.GetSelected("Combomonth");
Text = ComboBox.GetItemText("Combomonth", Selected);

y = Input.GetText("zero");
if y == "0" then
Page.ClickObject("Combomonth");
else
end

[ياسرهتهت]

بسم الله الرحمن الرحيم
شكرا لك استاذنا الفاضل وبارك الله فيك
:abc_152::abc_152:
:abc_138:

[عبود عبود]

بسم الله الرحمن الرحيم
توصلت الي هذا الحل
https://up.top4top.net/downloadf-634rn18o1-rar.html

هل يوجد فكرة افضل
:abc_152::abc_152::abc_152:

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

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

تحياتى :abc_138:

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

اذا كان لابد من توجيه عوض البحث عن تجاوز الخطأ
نعرف أساسا سبب الخطأ
ارجع للمشاركة الاولى أكوادها أو ملفها
لاحظ كما سبق و تم ذكره هذا الجزء في أكوادك:
Page.ClickObject(Text);


ذكرت نزعه فقط أو انتبه لا يمكن كتابة اسم العنصر Text بهذا الشكل إلا اذا
كان له دلالة سابقة أو ضعه بين علامتي تنصيص
Page.ClickObject('Text');

هذا هو الخطأ بإختصار
حتى أخبرك بعدها أنه لايوجد أساسا خطأ في بناء الأكواد

موفق :abc_152:

[ياسرهتهت]

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

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

تحياتى :abc_138:

--------------------
بسم الله الرحمن الرحيم
شكرا لك استاذ عبود
بالفعل من الافضل الاستغناء عن الانبت
ملاحظة جميلة
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[ياسرهتهت]

اذا كان لابد من توجيه عوض البحث عن تجاوز الخطأ
نعرف أساسا سبب الخطأ
ارجع للمشاركة الاولى أكوادها أو ملفها
لاحظ كما سبق و تم ذكره هذا الجزء في أكوادك:
Page.ClickObject(Text);


ذكرت نزعه فقط أو انتبه لا يمكن كتابة اسم العنصر Text بهذا الشكل إلا اذا
كان له دلالة سابقة أو ضعه بين علامتي تنصيص
Page.ClickObject('Text');

هذا هو الخطأ بإختصار
حتى أخبرك بعدها أنه لايوجد أساسا خطأ في بناء الأكواد

موفق :abc_152:
--------------------
بسم الله الرحمن الرحيم

شكرا لك استاذي الفاضل
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:
:abc_138: