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

السلام عليكم

ماهو الكود الذي يمنع ادخال حروف او ارقام داخل مربع التيكست بوكس

في حالة الارقام

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

 If Asc(e.KeyChar) <> 8 Then

If Asc(e.KeyChar) < 46 Or Asc(e.KeyChar) > 57 Then   

     e.Handled = True   

End If   

 End If

End Sub

في حالة الحروف العربي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        If Asc(e.KeyChar) <> 8 Then

            If Asc(e.KeyChar) < 193 Or Asc(e.KeyChar) > 237 Then   

                e.Handled = True   

            End If   

        End If

    End Sub

في حالة الحروف الإنجليزي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        If Asc(e.KeyChar) <> 8 Then

            If Asc(e.KeyChar) < 65 Or Asc(e.KeyChar) > 90 And Asc(e.KeyChar) < 97 Or Asc(e.KeyChar) > 122 Then

                e.Handled = True

            End If

        End If

    End Sub

شرح الكود

كود :

If Asc(e.KeyChar) <> 8 Then

تجعل مسموح بالضغط علي backspace

ثم بعد ذلك اسمح بحروف معين مثلاًُ

من 46 حتي 57 التي هي من 0 الي 9 مع ال . الأرقام العشرية اذا اردت رقم صحيح تجعلها من 48 بدلا من 46

و في الحروف العربية

من 193 حتي 237
هي الحروف العربية و تضمن ال همزات و أ بجميع اشكلها و المــــــــد

اما الإنجليزي تم تقسيم لقسمين حيث حروف كابيتال و سمول و ما بين 90 و 97 لم يتضمن لأنه يتضمن رموز

كما تفضل الاخ الفاضل أنا استخدم الكود التالي كتابة ارقام فقط بحيث لا يسمح بكتابة حروف :

كود :

If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True

و للحروف العربية فقط أستخدم

كود :

If (e.KeyChar < "ء" Or e.KeyChar > "ي") And e.KeyChar <> ControlChars.Back Then e.Handled = true

في وضع TextBox_KeyPress

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

ابو نور الهدى

mrfenix93

أبووسم