منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم 

أخواني الإعزاء في هذا المنتدى اتمنى منكم المساعدة

اريد ان أجعل التكست بوكس في برنامجي لا يكتب الا بالعربية 

بمعنى لا يكتب اي رقم او اي رمز او اي حرف بأي لغة اخرى 

اتمنى منكم المساعدة ولكم جزيل الشكر  

'كود كاتبة الحروف العربية فقط في التكست مع استخدام زر المسح والتراجع والمسافة


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


        'كود الانتقال الى تكست بزر انتر

        If Asc(e.KeyChar) = 13 Then
            TextBox2.Focus()
        End If