2.2-Masked TextBox and Text Valdation

سنتعرف اليوم على Masked TextBox و طرق تخصيص مربع النص TextBox وتحديد إدخالات معينة فى TextBox وكذلك المنع والسماح لعدد معين من الحروف والرموز والصيغ داخل مربع النص TextBox
أولا: MaskedTextBox
-نقوم بعمل مشروع جديد ثم نقوم بإدراج MaskedTextBox من خلال ToolBox
كليك يمين بالماوس على MaskedTextBox ثم قم باختيار SetMask يظهر لك الان نافذة Input Mask ويوجد بها قائمة بأنواع الماسكات الممكن استخدامها داخل MaskedTextBox ويمكن تجربة اختيار أحد الأنواع وتجربة كتابة النص بداخلة لمشاهدة النتيجة



ثانيا :Text Validation
إنشاء حدث الكتابة فى مربع النص
لا بد لنا من فهم معنى حدث (Event)
هى كلمة مشتقة من الحدوث ومعناها فى موضوعنا هو تأخير ظهور الوظيفة التى قمنا بإنشائها إلى أن يقع أمر ما
-KeyPress
وهو من خلال اسمة يوضح وظيفتة الضغط على زر
نقوم بفتح مشروع جديد يحتوى على 12 مربع نص TextBox و9 عناوين Label ويمكن وضعها كما بالشكل الاتى



-منع كتابة زر معبن داخل مربع النص TextBox1
قم بكتابة الكود التالى


كود:
Private Sub TextEV1_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = CChar("r") Then e.Handled = True
End Sub
وبالنظر إلى الكود جيدا نجد أن الجزء الفعال فى الكود هو

كود:
If e.KeyChar = CChar("r") Then e.Handled = True
والمعنى عند كتابة الرمز r فإن المنع =حقيقى يعنى قم بمنع ذلك
و TextEV هذة تسمي اختيارية ممكن التسمية TextEV1 و TextEV2 إلخ أو أى تسمية
لوحة المفاتيح مقسمة إلى ثلاثة أجزاء (أرقام و حروف و رموز) كل الأمثلة التالية تقوم بمنع الرموز تلقائيا
2- منع الأرقام والسماح للحروف بدلالة IsNumber فى TextBox2
كود:
Private Sub TextEV2_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox2.KeyPress
If Char.IsNumber(e.KeyChar) Then e.Handled = True
End Sub
لو كان المكتوب رقما قم بمنعة
3- السماح للإرقام ومنع الحروف بدلالة IsNumber فى TextBox3

كود:
Private Sub TextEV3_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox3.KeyPress
If Char.IsNumber(e.KeyChar) = False Then e.Handled = True
End Sub
إذا لم يكن المكتوب رقم ....الخ
4- منع الأرقام والسماح للحروف بدلالة IsLetter فى TextBox4
وهى تعطى نفس النتيجة الموجودة فى 2 ولكن باستخدام IsLetter
كود:
Private Sub TextEV4_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox4.KeyPress
If Char.IsLetter(e.KeyChar) = False Then e.Handled = True
End Sub5
- السماح للإرقام ومنع الحروف بدلالة IsLetter فى TextBox5
وهى نفس 3 ولكن بدلالة IsLetter
كود:
Private Sub TextEV5_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox5.KeyPress
If Char.IsLetter(e.KeyChar) Then e.Handled = True6
-السماح لكل من الأرقام والحروف فى TextBox6
كود:
Private Sub TextEV6_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox6.KeyPress
If Char.IsLetterOrDigit(e.KeyChar) = False Then e.Handled = True
End Sub
وكما نرى فإن الرموز والإشارات والعلامات ممنوعة فى كل الأحوال وعلى ذلك نحتاج إلى طريقة للسماح بها سنفترض أن لدينا مربع نص يمكنة أن يحتوى على رقم أو رقم عشرى(.) أو – أو+
7-للسماح بإضافة علامة أو رمز فى TextBox7
إذا أردنا أن نسمح للأرقام العشرية فقط
كود:
Private Sub TextEV7_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) _
Handles TextBox7.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(".") Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub
هنا قمنا بالسماح لرمز واحد فقط وهو العلامة العشرية فإذا أردنا السماح برموز أخرى فكما بالمثال التالى
كود:
Private Sub TextEV7_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) _
Handles TextBox7.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(".") Or e.KeyChar = CChar _
("-") Or e.KeyChar = CChar("+") Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub
وكما نرى قمنا بالسماح لعلامتى – و+
8-لتطبيق الحدث على مجموعة من مربعات النص TextBox8 و TextBox9 و TextBox10
أما إذا أردنا أن نقوم بتطبيق الحدث على مجموعة من مربعات النصوص دفعة واحدة فإليكم الكيفية
كود:
Private Sub TextEV8_KeyPress(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles _
TextBox8.KeyPress, TextBox9.KeyPress, TextBox10.KeyPress
If Char.IsNumber(e.KeyChar) = False Then e.Handled = True
End Sub9
- منع الحروف الصغيرة فىTextBox 11
كود:
Private Sub TextEV9_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox11.KeyPress
If Char.IsLower(e.KeyChar) Then e.Handled = True
End Sub10
- منع الحروف الكبيرة فى TextBox 12
كود:
Private Sub TextEV10_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles TextBox12.KeyPress
If Char.IsLower(e.KeyChar) = False Then e.Handled = True
End Sub
وهذا رابط تحميل المشروع
http://www.zshare.net/download/476908070fcd53
يتبـــــــــــــــــــــــــــــــــــع...........

__________________



كثر الله خير و جمل الله حالك ياهبشان
لو أنني كنت شاعراً لكتبت معلقة غزل في روعة و جمال هذى النظام
أضغط على الصورة

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر