[Mostafa Yousry]

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

[حريف برمجة]

في حدث كي بريس (keypress) للتكست بوكس ضع الكود التالي :

كود :

        Select Case e.KeyChar
            Case "ا" To "ي", ControlChars.Back, Chr(Keys.Space)
                e.Handled = False
            Case Else
                e.Handled = True
        End Select

[Mostafa Yousry]

(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

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