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

السلام عليكم اخي الكريم

لضبط عدد الحروف الزائد عن 10

هذا الكود في حدث TextChanged

كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text.Length > 10 Then
           MsgBox("لايمكن كتابة اكثر من عشرة حروف")
           TextBox1.Text = TextBox1.Text.Substring(0, 10)
       End If
   End Sub

ولضبط حد ادنى لعدد الحروف 
هذا الكود في حدث KeyDown بعد كتابة حرفين مثلا واضغط انتر

كود :

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
       
       If TextBox1.Text.Length < 3 Then
           If e.KeyCode = Keys.Enter Then
             
               e.Handled = True
               MsgBox("لايمكن كتابة اقل من ثلاثة حروف")
               TextBox1.Focus()
           End If
       End If
   End Sub