[Mido9]

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا ابحث عن طريقة لجعل التيكست بوكس يقبل حروف فقط

يعني يمنع كتابه الرموز و الارقام ,, فقط حروف سواء عربيه او انجليزيه

و شكرا لكم

[مالكـ]

تفضل اخي

لمنع الارقام

PHP كود :

If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If 


لمنع الرموز

PHP كود :

Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If 


الكود كامل

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If

        Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If

    End Sub
End Class 


[Mido9]

مالكـ كتب :تفضل اخي

لمنع الارقام

PHP كود :

If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If 


لمنع الرموز

PHP كود :

Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If 


الكود كامل

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If

        Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If

    End Sub
End Class 


جميييل ماشاء الله تسلم ايدك يامبدع

ولكن للاسف في خطأ ,, بعد تركيب الكود ,, لم اعد استطيع عمل مسافه بين الحروف ( space )

بمعنى انا استخدم الكود فى تيكست بوكس لكتابه الاسماء الخاصه بالعملاء ففى الاسماء يجب عمل مسافه بين كل اسم

الان تم منع الرموز و الارقام و حتى المسافه

ياريت لو اجد عندك حل

و جزاك الله خيرا ربنا يكرمك يارب

[SaLoOoMX]

تفضل اخي الكريم

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar <> ChrW(Keys.Back) Then
            If Char.IsLetter(e.KeyChar) Then
            Else
                e.Handled = True
            End If
        End If
    End Sub

[Mido9]

SaLoOoMX كتب :تفضل اخي الكريم

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar <> ChrW(Keys.Back) Then
            If Char.IsLetter(e.KeyChar) Then
            Else
                e.Handled = True
            End If
        End If
    End Sub

جزاك الله خيراً اخي الفاضل على المساعده

و لكن نفس المشكلة ,, تم منع الـ space ???

مع العلم انه منع الرموز و الارقام بشكل صحيح و لكن للاسف لم اتمكن من إضافه مسافه

[مالكـ]

لم افهم ماذا تقصد بالضبط

اذا كنت تقصد المسافه ( الفاصل ) بين الاسماء
الكود يعمل معي ممتاز ... وهذه صوره بالمرفقات

[Mido9]

مالكـ كتب :لم افهم ماذا تقصد بالضبط

اذا كنت تقصد المسافه ( الفاصل ) بين الاسماء
الكود يعمل معي ممتاز ... وهذه صوره بالمرفقات

انا بجد اسف معلش ,, فعلا الكود شغال بنجاح
انا الى كنت جربت كود غلط معلش

ربنا يكرمك ياااارب و يعينك

بجد تسلم و الله على تعبك معايا ربا يجزيك كل خير يارب