تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط
#1
السلام عليكم 

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


الكود الاول :

PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
        If Char
.IsNumber(e.KeyChar) = False Then
            e
.Handled True
        End 
If

 
   End Sub 



الكود الثاني :

كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not IsNumeric(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub


الكود الثالث (الي يقبل استخدام زر الباك سبيس ) :


PHP كود :
   Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress

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

    End Sub 



يمكن تحميل المشروع من المرفقات 


اتمنى لكم التوفيق


الملفات المرفقة
.rar   OnlyNum.rar (الحجم : 33.2 ك ب / التحميلات : 59)
الرد }}}
#2
بارك الله بيك اخي

وهذه فكرة مختلفة ايضآ



كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Chr(8) Then Return
       If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9]") Then
           e.Handled = True
       End If
   End Sub
الرد }}}
#3
حياك الله اخي الغالي و شكرا على الطريقة الرائعة
الرد }}}
#4
بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خيرا

اكواد بسيطه وفعاله
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم