منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] مطلوب كود لجعل التكست بوكس يكتب عربي فقط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

السلام عليكم 
كيفكم  Heart في الله 
 برجاء 
انا محتاج كود "  لجعل التكست بوكس يكتب عربي فقط " ضروري جدا جدا 
وشكراً لكم


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 Select



RE: مطلوب كود لجعل التكست بوكس يكتب عربي فقط - 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

شكراً اخي وجزاك الله خيراً