[Anas Mahmoud]

في حدث KeyPress لمربع النص ضع الكود التالي :

للارقام فقط:

كود :

e.Handled = Not Char.IsControl(e.KeyChar) And Not Char.IsDigit(e.KeyChar)

واذا اردت ان تسمح بالنقطة العشرية :

كود :

       e.Handled = Not Char.IsControl(e.KeyChar) And Not Char.IsDigit(e.KeyChar) And e.KeyChar <> "."c

---

وانصحك باستخدام TryParse بدلا من parse للحصول على القيمة الرقمية من القيمة النصية ، لانها تتيح التحقق من ان المدخل صالح بهذه الطريقة :

كود :

       Dim salary As Double
       If Double.TryParse(TextBox2.Text, salary) = False Then
           MsgBox("من فضلك ادخل قيمة صحيحة")
           Return
       End If