[hassan]

السلام عليكم


مثل ما موضح في العنوان


اابغا كود او طريقة منع كتابة الاحرف 

وشكرا

[سعود]

انت مخير بين عدة طرق منها التحقق هل المدخل ارقام ام لا بالكود 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

[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

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