+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحديد عدد احرف التيكست بوكس (/showthread.php?tid=25803)
تحديد عدد احرف التيكست بوكس - محمد اسماعيل - 21-07-18
السلام عليكم
في البداية هناك طريقة لخصائص التيكست بوكس تسمي MAX LENGHT
وهي لتحديد الاحرف التي يتم ادخالها وانا اعرفها جيدا
المشكلة لدي هي اني بضع تيكست للبحث ممكن يتم الادخال عربي او انجليش ممكن لو قمت بتحديد عدد الاحرف عربي لحد حدود عرض التيكست
الانجليش يتجاوز العرض
عايز طريقة انة لا يجوز للمستخدم البحث بعدد احرف اكثر من عرض التيكست بوكس المرئي للمستخدم
RE: تحديد عدد احرف التيكست بوكس - YousefOkasha - 21-07-18
و عليكم السلام اخي ..
يمكنك الإستعانة بالروابط التالية :
قبل ان تضع الموضوع , قم بالبحث اولاً ..
تحياتي لك و تمنياتي لك بالتوفيق
RE: تحديد عدد احرف التيكست بوكس - elgokr - 21-07-18
لتحديد عدد الاحرف حسب اللغة المستخدمة
يمكنك فعلها باحد الطرق التالية...
الطريقة الاولى تحديد عدد احرف الحربي نصف عدد احرف الانجليزية..
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اتمنى الاكواد بالرد هنا هو ما تريده
تحياتى لك
وتمنياتى لك التوفيق
RE: تحديد عدد احرف التيكست بوكس - YousefOkasha - 21-07-18
بارك الله فيك علي ما تقدمة من نفع 