+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] مطلوب كود لجعل التكست بوكس يكتب عربي فقط (/showthread.php?tid=14044)
مطلوب كود لجعل التكست بوكس يكتب عربي فقط - Mostafa Yousry - 06-12-15
السلام عليكم
كيفكم
في الله برجاء
انا محتاج كود " لجعل التكست بوكس يكتب عربي فقط " ضروري جدا جدا
وشكراً لكم
RE: مطلوب كود لجعل التكست بوكس يكتب عربي فقط - حريف برمجة - 06-12-15
في حدث كي بريس (keypress) للتكست بوكس ضع الكود التالي :
كود :
Select Case e.KeyChar
Case "ا" To "ي", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End SelectRE: مطلوب كود لجعل التكست بوكس يكتب عربي فقط - Mostafa Yousry - 07-12-15
(06-12-15, 09:50 PM)حريف برمجة كتب : في حدث كي بريس (keypress) للتكست بوكس ضع الكود التالي :
كود :
Select Case e.KeyChar
Case "ا" To "ي", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
شكراً اخي وجزاك الله خيراً