ebeliejinfren
سه شنبه 26 خرداد 1388, 17:06 عصر
می خواستم بدونم چه جوری میشه کاری کرد که تو تکست باکس فقط عدد رو وارد کرد و حروف و علام را نتوان وارد کرد ؟
با تشکر
Tasiyan
سه شنبه 26 خرداد 1388, 17:13 عصر
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
دوست عزيز با يه جستجوي كوچيك تو سايت به نتيجه ميرسيدي اما جستجو . . .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.