ورود

View Full Version : textbox که فقط عدد بگیره


Mehrad1860
جمعه 26 فروردین 1384, 01:03 صبح
چه جوری میشه یه textbox داشت که کاربر فقط عدد بتونه توش وارد کنه ؟
M-Gheibi
جمعه 26 فروردین 1384, 07:34 صبح
میتونید در رویداد KeyPress کدهای اسکی غیر عددی رو غیر فعال کنید (با یک شرط ساده)
hex161
جمعه 26 فروردین 1384, 07:50 صبح
این کد رو تو رویداد KeyPress وارد کنید...

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
sadegi
جمعه 26 فروردین 1384, 08:29 صبح
با سلام
فکر کنم این کد هم بد نباشه

Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim stvalidat As String
stvalidat = "0123456789"
If KeyAscii > 26 Then
If InStr(stvalidat, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
sasanhe
جمعه 26 فروردین 1384, 11:03 صبح
از تابع isnumeric هم میتونید استفاده کنید .
در رویداد keypress یا on_change بنویسید :

If IsNumeric(Text1.Text) = False Then
یک پیام یا شرایط شما
End if
reham
یک شنبه 28 فروردین 1384, 10:54 صبح
maskeditbox که خیلی بهتره!