منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع VB.net (http://vb4arb.com/vb/forumdisplay.php?fid=141)
+---- الموضوع : [VB.NET] ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط (/showthread.php?tid=32297)



ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - علي بنيان - 29-11-19

السلام عليكم 

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


الكود الاول :

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 



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


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


RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - 3booody - 29-11-19

بارك الله بيك اخي

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



كود :
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



RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - علي بنيان - 29-11-19

حياك الله اخي الغالي و شكرا على الطريقة الرائعة


RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - farhat ali - 27-10-21

بارك الله فيك


RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - Ahmed Mohasseb - 12-05-23

جزاك الله خيرا

اكواد بسيطه وفعاله