[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

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