20-12-23, 08:13 PM
(آخر تعديل لهذه المشاركة : 20-12-23, 08:14 PM {2} بواسطة خالد كامل1.)
(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،،افادك واكرمك الله اخى الكريم
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox
اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
..... ......
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :
كود :If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
'''' تضيف بعدها كود القراءة والتحقق
أو في حدث KeyDown أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :
كود :If (e.KeyCode <> Keys.Enter) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
'''' تضيف بعدها كود القراءة والتحقق
(20-12-23, 06:11 AM)Taha Okla كتب : الكود المرفق لا يوجد به مشكلة برمجية ،،اخى الكريم هل يمكنك الاطلاع على تلك
سوى خطأ بتنسيق وترتيب الأكواد ومع ذلك لا تسبب هذه المشكلة.. ويجب أن يعمل بدون مشاكل .
...... ......
المطلوب ارفاق الاكواد التي تستخدمها في أحداث الـ Textbox
اذا فيك تعمل مشروع مصغر من نافذة وحدة وتجرب فيه ،، هل تبقى نفس المشكلة ؟؟
اذا بقيت أرفع المشروع للاطلاع عليه..
..... ......
وبالنبسة للباركود : يفضل وضع كود التحقق من المادة في حدث KeyPress
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :
كود :If (e.KeyChar <> Strings.Chr(13)) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
'''' تضيف بعدها كود القراءة والتحقق
أو في حدث KeyDown أو الأفضل في Keyup
وتضع في بداية الحدث الكود التالي قبل البدء بالقراءة :
كود :If (e.KeyCode <> Keys.Enter) Then Exit Sub
If pro_code.Text.Trim() = "" Then Exit Sub
'''' تضيف بعدها كود القراءة والتحقق
https://vb4arb.com/vb/thread-47629.html