شاطر
اذهب الى الأسفل
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
معاينة صفحة البيانات الشخصي للعضو

كود لجعل أداة النص لا تقبل إلا الأرقام

في الجمعة مارس 29, 2013 7:41 am
الكود:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        On Error Resume Next


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

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

وهذا الكود لكتابة الارقام فقط داخل التيكست
الكود:

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress


        On Error Resume Next

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

        Select Case e.KeyChar
            Case "0" To "9", ControlChars.Back
                e.Handled = False
            Case Else
                e.Handled = True
        End Select

     
    End Sub


_________________
[img] [/img]
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى