11 | Textboxes accept Numbers Only - VB.NET & SQL Server
هذا الكود يحتوي على أربع دوال تتعلق بمعالجة حدث الضغط على مفاتيح
النصوص في واجهة المستخدم. كل دالة تتعلق بحقل إدخال مختلف. الهدف من هذه الدوال
هو التأكد من أن المستخدم يدخل فقط أرقامًا في هذه الحقول، مع استثناءات معينة.
الشرح المفصل لكل دالة:
١. دالة txt_ph_st_KeyPress:
Private Sub txt_ph_st_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_ph_st.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
Private Sub txt_ph_st_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_ph_st.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
- الهدف: التأكد من أن المستخدم لا يمكنه إدخال إلا
الأرقام أو عناصر التحكم (مثل زر العودة أو زر الحذف) في حقل
txt_ph_st
- التفصيل: إذا كانت
e.KeyChar(الحرف الذي تم ضغطه) ليست رقمًا (Char.IsNumber) وليست عنصر تحكم (Char.IsControl)، يتم تعيينe.Handled = Trueمما يمنع إدخال الحرف.
٢. دالة txt_ph_parent_KeyPress:
Private Sub
txt_ph_parent_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_ph_parent.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
Private Sub
txt_ph_parent_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_ph_parent.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
- الهدف: نفس الهدف كما في الدالة السابقة، ولكن لحقل
txt_ph_parent. - التفصيل: يقوم بنفس العملية، للتحقق من أن الإدخال هو رقم أو عنصر تحكم.
٣. دالة txt_fee_KeyPress:
Private Sub txt_fee_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_fee.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
Private Sub txt_fee_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_fee.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub
- الهدف: التأكد من أن المستخدم يمكنه إدخال أرقام
فقط في حقل
txt_fee. - التفصيل: يعمل بنفس طريقة الدالتين السابقتين.
٤. دالة txt_discount_KeyPress:
Private Sub txt_discount_KeyPress(sender
As Object, e As KeyPressEventArgs) Handles txt_discount.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) AndAlso Not e.KeyChar = "." Then
e.Handled = True
End If
End Sub
Private Sub txt_discount_KeyPress(sender
As Object, e As KeyPressEventArgs) Handles txt_discount.KeyPress
If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) AndAlso Not e.KeyChar = "." Then
e.Handled = True
End If
End Sub
- الهدف: تسمح هذه الدالة بإدخال الأرقام وعلامة
العشرية (النقطة) في حقل
txt_discount.
- التفصيل: تتحقق من أن
e.KeyCharليست رقمًا وليست عنصر تحكم وليست أيضًا نقطة ("."). إذا كانت غير ذلك، يتم تعيينe.Handled = Trueلمنع الإدخال.
خلاصة:
هذا الكود يضمن أن الحقول المحددة تقبل فقط أرقامًا، مع إضافة استثناء
لحقل الخصم بحيث يسمح بإدخال النقطة (علامة العشرية) بالإضافة إلى الأرقام. هذا
يعزز من دقة البيانات المدخلة من قبل المستخدم.
إذا كان لديك أي أسئلة أخرى أو تحتاج إلى مزيد من التوضيح، فلا تتردد في طرحها!
يمكنكم متابعة الدرس عن طريق اليوتيوب
تعليقات
إرسال تعليق