المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
11-10-21, 09:43 PM
(آخر تعديل لهذه المشاركة : 11-10-21, 09:46 PM {2} بواسطة mh66.)
السلام عليكم
عندي تيكست بوكس يسمح بكتابة الارقام فقط
لكن اذا ادخل المستخدم للبرنامج القيمة التالية مثلا 9999..99
هنا ادخل الفاصلة مرتان وعند حفظ القيمة في جدول البيانات ستظهر رسالة خطأ
اريد كود يعيد عدد مرات تكرار النقطة اذا كان اكبر من واحد تظهر رسالة
شكرا
الطلب الثاني لو سمحتم تعديل الكود التالي ليسمح بكتابة النقطة
If Not Char.IsNumber(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then e.Handled = True
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
12-10-21, 07:51 PM
(آخر تعديل لهذه المشاركة : 12-10-21, 08:28 PM {2} بواسطة mh66.)
شكرا جزيلا وفقك الله
ان اضع الكود التالي في Keypress
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = 13 Then
Button7.Focus()
End If
وعندما قمت بلصق الكود الذي اعطيتني اياه تحته ظهر خط احمر تحت حرف e
فقمت بوضع الكود الذي اعطيتني اياه مشكرا في TextChanged
هل يمكن جمع الكودين معا
شكرا وفقك الله
المشاركات : 415
المواضيع 41
الإنتساب : Jan 2021
السمعة :
177
الشكر: 669
تم شكره 769 مرات في 364 مشاركات
انا لم اعطك كود واحد بل كودين
الكود الاول يجب ان يكون في الحدث keypress
اما الكود الثاني فضعه في الحدث الذي تراه انت مناسبا انا من رأيي ضعه في حدث فقدان التركيزlostfocus
سورس كود برنامج محاسبة ومبيعات احترافي - سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
12-10-21, 08:29 PM
(آخر تعديل لهذه المشاركة : 12-10-21, 08:31 PM {2} بواسطة mh66.)
تمام استاذي لكني استخدم Keypress مسبقا وقد وضعت فيه الكود
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = 13 Then
Button7.Focus()
End If
وظيفته الانتقال لخانة اخرى عند الضغط على زر الانتر
وبعد اضافة كودك اول اصبح الكود الكامل في Keypress
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii = 13 Then
Button7.Focus()
End If
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
e.Handled = True
End If
عندها ظهر الخطأ
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
تمام وفقك الله وزادك الله علما
المشاركات : 415
المواضيع 41
الإنتساب : Jan 2021
السمعة :
177
الشكر: 669
تم شكره 769 مرات في 364 مشاركات
اهلا وسهلا ... على الرحب والسعة
سورس كود برنامج محاسبة ومبيعات احترافي - سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515