[wolf1120]

Ahmed Abdulla كتب :السلام عليكم

أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر

تفضل اخي الكريم

يوضع في حدث KeyPress

كود :

Select Case KeyAscii
        'negotive numbers
        'KeyAscii; 45 is "-"
        Case 45
            If Len(TXT.Text) >= 1 Then
                KeyAscii = 0
            End If
        'KeyAscii; 8 is "Backspace", 46 is "." decimal,
        ' 48-57 is "0-9"
        Case 8, 46, 48 To 57
            KeyAscii = KeyAscii
        Case Else
            KeyAscii = 0
    End Select