[EMADSS]

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

[Taha Okla]

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

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

كود :

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

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
بالنسبة لسؤالك الجزء الأول منه يمكنك استخدام الخاصية 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