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 Ifقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».