[elgokr]

لتحديد عدد الاحرف حسب اللغة المستخدمة

يمكنك فعلها باحد الطرق التالية...

الطريقة الاولى تحديد عدد احرف الحربي نصف عدد احرف الانجليزية..

1- قم باضافة السطر التالى اسفل Public Class Form1

كود :

Public Property ii As Integer

ثم فى منطقة TextBox1.KeyPress

استخدم الكود التالى

كود :

Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz" ' or [a-zA-Z]
       If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
           ii = 2
       Else
           ii = 1
       End If
       TextBox1.MaxLength = (10 / ii)

قم بتغغير رقم 10 الى الحد المطلوب للغة الانجليزية... وتعتبر الصف لـ العربية

الطريقة الثانية وهو تحديد قيمة لكل لغة

فى منطقة TextBox1.KeyPress استخدم الكود التالي

كود :

       Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz" ' or [a-zA-Z]
       If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
           TextBox1.MaxLength = 50
       Else
           TextBox1.MaxLength = 35
       End If

اتمنى الاكواد بالرد هنا هو ما تريده

تحياتى لك

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