كيف اجعل خانة text لا تقبل الا ارقام

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub

[code]Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub

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

قم بتكوين مصفوفة أدوات من مربعات النص التى تريد أن تجعلها تقبل أرقاماً فقط ثم أكتب الكود الآتى

Private Sub txtNum_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = IIf(IsNumeric(Chr(KeyAscii)), KeyAscii, 0)
End Sub

جرب أن تكتب حروف فى أى مربع نص من عناصر المصفوفة فلن يقبل إلا الأرقام ويمكن جعل المربع لا يقبل إلا الحروف بتغيير بسيط جدا فى الكود وهو إضافة الدالة المنطقية Not قبل الدالة IsNumeric ليصبح الكود بهذا الشكل

Private Sub txtNum_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = IIf(Not IsNumeric(Chr(KeyAscii)), KeyAscii, 0)
End Sub

أتمنى أن يكون هذا طلبك ;)

مرسى قوى قوى على المساعدات دى