[elgokr]

وعليكم السلام ورحمة الله وبركاته

حتى تعم الفائدة

وكذلك تعديل بسيط على كودك بردك الاخير

فعليك ان تستخدم الكود بهذا الشكل

كود :

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       If Not System.Text.RegularExpressions.Regex.Match(TextBox1.Text, "^[A-Z a-z]{1}\\*[0-9]{6}$").Success Then
           MsgBox("يجب ادخال القيمة على هذا النحو : a123456, A123456")
           TextBox1.Clear()
           TextBox1.Focus()
       End If
   End Sub

بتعديل الكود اصبح كلما كانت القيمة غير صحيحة

سيعود الى TextBox مجدداً مع تفريغه لاعادة ادخال القيمة مع ظهور رسالة توضح الامر

طبعاً اذا كنت تريد ان يكون الحرف كابيتال / كبير فقط

فكل ما عليك تغيير

كود :

[A-Z a-z]

الى

كود :

[A-Z]

والعكس بان يكون حرف سمول فقط

استبدل

كود :

[A-Z a-z]

الى

كود :

[a-z]

تحياتى لك

وتمنياتى لك التوفيق