ورود

View Full Version : سوال: فقط اعداد را وارد کنید


gohari244
یک شنبه 10 بهمن 1389, 12:02 عصر
سلام دوستان چجوری میشه از کاربر خواست که داخل یک تکست بوکس فقط اعداد را وارد کند و اگر غیر از اعداد باشد پیغام فقط اعداد بدهد
Mohsen.
یک شنبه 10 بهمن 1389, 13:08 عصر
با تابع IsNumeric میشه این کا رو کرد.


If IsNumeric(Text1.Text) = False Then
MsgBox "Please Enter a Number"
Text1.Text = ""
End If
gohari244
یک شنبه 10 بهمن 1389, 16:34 عصر
متشکرم دوست عزیز
میشه حالا بگی که اگه دو تا تکست بوکس بود چی؟
Mohsen.
یک شنبه 10 بهمن 1389, 18:28 عصر
یعنی چی اگه دو تا بود:متفکر:
خوب همینو برای هر دوتاشون بزار
simorgh-hossein
دوشنبه 11 بهمن 1389, 02:20 صبح
دستور بالا درسته !
ولي به نظر من اگه از اين كد استفاده شود بهتر است !
StrValid = "0123456789"
))) KeyAscii = Asc(UCase(Chr(KeyAscii
If KeyAscii > 26 Then
If InStr(StrValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
البته بگم كه تو رويداد KeyPress نوشته شود !! :بوس:
در ضمن اگه سوالي داشتيد بنده در خدمتتون هستم ! :چشمک:
simorgh-hossein
دوشنبه 11 بهمن 1389, 02:23 صبح
دستور بالا درسته !
ولي به نظر من اگه از اين كد استفاده شود بهتر است !
" StrValid = "0123456789
(((KeyAscii = Asc(UCase(Chr(KeyAscii
If KeyAscii > 26 Then
If InStr(StrValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
البته بگم كه تو رويداد KeyPress نوشته شود !! :بوس:
در ضمن اگه سوالي داشتيد بنده در خدمتتون هستم ! :چشمک: