[oneyemenweb2]

السلام عليكم اعمل تكست عادي ولجعله يقبل فقط الارقام

اضف هذه الدالة

كود :

Public Function numeric(key As Integer) As Boolean

    If (key > 31 AndAlso (key < 48 OrElse key > 57)) AndAlso (key <> 8) Then
        Return False
    End If
    Return True
End Function

وفي الحدث KeyPress

كود :

If Not numeric(CInt(e.KeyChar)) Then
    e.Handled = True
End If

مع خالص تحياتي