چگونه می شود کار کرد که فقط بشه تو تکست باکس عدد وارد کرد ؟

[ebeliejinfren]

می خواستم بدونم چه جوری میشه کاری کرد که تو تکست باکس فقط عدد رو وارد کرد و حروف و علام را نتوان وارد کرد ؟
با تشکر

[Tasiyan]

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 58:
Case Else
KeyAscii = 0
End Select
End Sub

يا

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub


دوست عزيز با يه جستجوي كوچيك تو سايت به نتيجه ميرسيدي اما جستجو . . .