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

هل من مجيب ياخوة

Private Sub txtTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTextBox1.KeyPress
    Dim valid_chr = ""
    valid_chr = valid_chr + "abcdefghijklmnopqrstuvwxyz"
    valid_chr = valid_chr + "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
    If Not valid_chr.Contains(e.KeyChar)
        e.Handled = True
    End If
End Sub

هذا الكود يسمح لك بالعربي والاحرف الانجليزي الصغيرة فقط

يمكنك اضافة valid_chr = valid_chr + لكل الاحرف التى السماح بها

شكر لك اخي واستاذنا الفاضل  وما الحل للا حرف الكبيرة

ايضا عندي ازرار مهمه  مثل المسافة و  backspace  

اريدها شغالة وجزاك الله خير

يمكنك اضافة valid_chr = valid_chr + لكل الاحرف التى السماح بها <---

    Private Sub txtTextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtTextBox1.KeyPress

        Dim valid_chr = ""
        valid_chr = valid_chr + "abcdefghijklmnopqrstuvwxyz"
        valid_chr = valid_chr + "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
        valid_chr = valid_chr + "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        valid_chr = valid_chr + ChrW(Keys.Back) + ChrW(Keys.Space)
        If Not valid_chr.Contains(e.KeyChar)
            e.Handled = True
        End If

    End Sub

شكر لك بارك الله فيك وجزاك الله خير

يا هلا.