منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تكست بوكس (/showthread.php?tid=40538)

تكست بوكس - EMADSS - 21-01-22

اخواني كيف بقدر الزام التكست بوكس بضرورة الكتابة ضمنها بعدد معين من الاحرف مثلا 7 حروف
وتكست اخر لايقبل الكتابة ضمنه باقل من 7  ارقام

RE: تكست بوكس - Taha Okla - 21-01-22

استخدم شرط طول النص قبل تنفيذ الأمر المطلوب القيام به بعد ادخال البيانات :

مثلا الكود التالي اذا كان لا يساوي سبع خانات :
كود :
If Len(TextBox1.Text) <> 7 Then
           MsgBox("XXXXXX", MsgBoxStyle.Exclamation, "Warning")
           Exit Sub
       End If

والكود التالي اذا كان اقل من سبع خانات :

كود :
If Len(TextBox1.Text) < 7 Then
           MsgBox("XXXXXX", MsgBoxStyle.Exclamation, "Warning")
           Exit Sub
       End If


RE: تكست بوكس - ابراهيم ايبو - 21-01-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
بالنسبة لسؤالك الجزء الأول منه يمكنك استخدام الخاصية MaxLength وتضع أي رقم تريد وليكن 7
او بالكود مع تحميل الفورم تضع الكود التالي
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.MaxLength = 7
   End Sub
اما الجزء الثاني بهذا الكود في حدث Leave
كود :
Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       If TextBox1.Text.Length < 7 Then
           MsgBox("لايمكن ان يكون النص اقل من 7 احرف")
       End If
   End Sub