[ADAM12]

(28-12-20, 02:55 AM)العيدروس كتب : بارك الله فيك اخي ADAM12 فعلا ضبطت معي واختفت رسالة الخطا الهي يجازيك كل خير ان شاء الله

تستاهل كل خير أخي 
تفضل بإضافة هذه الأكواد  للسماح باستخدام الأرقام فقط بالتكست بوكس 
مع ملاحظة أنو الفنكشن سيتم تطبيقه على على تكست بوكس موجود بالفورم بشكل اوتوماتيكي 

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       For Each ctrl In Me.Controls
           If (TypeOf ctrl Is TextBox) Then _
              AddHandler DirectCast(ctrl, TextBox).KeyPress, AddressOf AllowNumeric
       Next
   End Sub

   Private Sub AllowNumeric(ByVal o As [Object], ByVal e As KeyPressEventArgs)
       If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) AndAlso Not e.KeyChar = "." Then
           e.Handled = True
       End If
   End Sub