[hassan]

(12-10-14, 08:23 AM)سعود كتب : انت مخير بين عدة طرق منها التحقق هل المدخل ارقام ام لا بالكود isnumeric او ممكن تستخدم regex بالكود

كود :

       Dim reg As New Regex("^[0-9]*$")
       If reg.IsMatch(TextBox1.Text.Trim) = False Then
           MsgBox("المدخل ليس ارقام", MsgBoxStyle.Critical, "")
       Else
           MsgBox("تمام ارقام", MsgBoxStyle.Information, "")
       End If

الله يعطيك العافيه