21-01-22, 12:01 PM
اخواني كيف بقدر الزام التكست بوكس بضرورة الكتابة ضمنها بعدد معين من الاحرف مثلا 7 حروف
وتكست اخر لايقبل الكتابة ضمنه باقل من 7 ارقام
وتكست اخر لايقبل الكتابة ضمنه باقل من 7 ارقام
21-01-22, 12:01 PM
21-01-22, 02:49 PM
استخدم شرط طول النص قبل تنفيذ الأمر المطلوب القيام به بعد ادخال البيانات :
مثلا الكود التالي اذا كان لا يساوي سبع خانات :
والكود التالي اذا كان اقل من سبع خانات :
مثلا الكود التالي اذا كان لا يساوي سبع خانات :
كود :
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 If21-01-22, 03:13 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة لسؤالك الجزء الأول منه يمكنك استخدام الخاصية MaxLength وتضع أي رقم تريد وليكن 7
او بالكود مع تحميل الفورم تضع الكود التالي
اما الجزء الثاني بهذا الكود في حدث Leave
اخي الكريم
بالنسبة لسؤالك الجزء الأول منه يمكنك استخدام الخاصية MaxLength وتضع أي رقم تريد وليكن 7
او بالكود مع تحميل الفورم تضع الكود التالي
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.MaxLength = 7
End Subكود :
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