textbox که فقط عدد بگیره

[Mehrad1860]

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

[M-Gheibi]

میتونید در رویداد KeyPress کدهای اسکی غیر عددی رو غیر فعال کنید (با یک شرط ساده)

[hex161]

این کد رو تو رویداد KeyPress وارد کنید...

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If

[sadegi]

با سلام
فکر کنم این کد هم بد نباشه

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]

از تابع isnumeric هم میتونید استفاده کنید .
در رویداد keypress یا on_change بنویسید :

If IsNumeric(Text1.Text) = False Then
یک پیام یا شرایط شما
End if

[reham]

maskeditbox که خیلی بهتره!