+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استشارة في كود (/showthread.php?tid=22135)
استشارة في كود - hikmat - 16-10-17
اريد كود لادخال النص باللغة العربية فقط
الاقتراح : كود يصل الى اعدادات اللعة في الكمبيوتر والتاكد من ان نص الادخال اللغة العربية
اريد كود يمنع ادخال علامات الترقيم
RE: استشارة في كود - silverlight - 16-10-17
عليك أن تترك المستخدم يكتب ما يريده في التكست بوكس
ثم فقط تتأكد أن المدخلات كلها عبارة عن حروف لغة عربية
يمكنك أن تستخدم دالة بهذا الشكل
عليك فقط أن تكمل بقية الحروف العربية في المصفوفة chars
PHP كود :
Public Function IsValidString(s As String) As Boolean
Return s.All(Function(c)
'أكمل بقية الحروف العربية
Dim chars As Char() = New Char() {ChrW(1570), ChrW(1571), ChrW(1572), ChrW(1573), ChrW(1574), ChrW(1575), ChrW(1576), ChrW(15777), ChrW(1576), ChrW(1588), ChrW(1589), ChrW(1590)}
For i As Integer = 0 To chars.Length - 1
If chars(i) = c Then
Return True
End If
Next
Return False
End Function)
End Function
الاستخدام :
PHP كود :
Dim s As String = "فيجوال بيسك"
Dim bool As Boolean = IsValidString(s)
حل أخر
فقط غير الرقم 1255 الي أول رقم أسكي قبل اول رقم أسكي في الحروف العربية لأني مش متذكر الرقم
PHP كود :
Public Function IsValid(s As String) As Boolean
Return s.Any(Function(c) c > ChrW(1255))
End Function
RE: استشارة في كود - سعود الشامان - 16-10-17
[VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language
RE: استشارة في كود - a.ahmed - 16-10-17
PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not (Char.IsControl(e.KeyChar) Or Char.IsWhiteSpace(e.KeyChar) Or (e.KeyChar >= "ء" And e.KeyChar <= "ي")) Then e.Handled = True
End Sub