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

ارقام فقط

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

End Sub

أحب أن أضيف إضافة بسيطة كي يعمل مفتاح back space أيضاً يكون الكود كالتالي

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

If KeyAscii <> 8 Then

KeyAscii = 0

End If

End If

End Sub

وشكرا لأعضاء المنتدى الذين أفادونا كثيراً

السلام عليكم ورحمة الله وبركاته

الاكواد شغالة تمام والحمد لله ربنا يخليكم يا شباب للمنتدى

شكراااااااااااااا

اخي هناك طريقه اخرى لجعل التكست بوكس لايكتب الا ارقام

Private Sub Text1_Change()

If IsNumeric(Text1.Text) = False Then

Text1.Text = ""

End If

End Sub

هنا طريقة اخرى وددت ان اضعها لحل مثل هذ الطلب وهي :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim str As String
    str = ".0123456789" & vbBack

    If InStr(str, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    End If
End Sub

الزر(الحرف) الذي تود إضافته يمكنك وضعة في المتغير str

تمنياتي لك بالتوفيق

طريقة جميلة وذكية جداً أخ فواز، بارك الله فيك وبعلمك.

وبارك الله في علم الجميع... فيكم كلكم بركة... وازادنا وإياكم من علمه الواسع.