کد اسکی

[autosa]

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

[nasim bahari]

سلام..........


Try

If e.KeyChar = "8" Then
e.Handled = False
End If

Select Case e.KeyChar

Case "/"
e.Handled = True

Case "*"
e.Handled = True

Case "+"
e.Handled = True

Case "~"
e.Handled = True

Case "!"
e.Handled = True

Case "@"
e.Handled = True

Case "#"
e.Handled = True

Case "$"
e.Handled = True

Case "%"
e.Handled = True

Case "^"
e.Handled = True

Case "&"
e.Handled = True

Case "*"
e.Handled = True

Case "("
e.Handled = True

Case ")"
e.Handled = True

Case "="
e.Handled = True

'Case "-"
' e.Handled = True

'Case "_"
' e.Handled = True

Case "."
e.Handled = True

Case """"
e.Handled = True

End Select



If (e.KeyChar >= "0") And (e.KeyChar <= "9") = False Then
e.Handled = True
End If

Catch ex As Exception

End Try

البته دوست عزیز .....این سوال بسیار تکراری هستش....ای کاش قبل از ایجاد یه تایپیک تکراری یه سرچ می کردی........در ضمن دوست خوبمون Saman_12 لطف کردن و یه Dll قرار دادن که تمام محدودیت ها رو خودش انجام میده ...البته با تنظیماتی که شما براش تعیین می کنین.....لطفاً در Profile ایشون سرچ کنید.

موفق باشین

[Saman_12]

اینم یه راه دیگه :


Select Case e.KeyChar
Case "0" To "9"
e.Handled = False
Case Chr(Keys.Enter)
e.Handled = False
Case Else
e.KeyChar = Chr(8)
End Select

[ali_najari]

فقط كافيه كد زير رو توي Keypress اون كنترلتون اضافه كنيد تا فقط كاربر بتونه عدد وارد كنه




If Char.IsNumber(e.KeyChar) Or e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Back) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Delete) Or _
e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Tab) Then

e.Handled = False
Else
e.Handled = True
End If


--------------------
اگه ديديد نياز داريد تا يه Sample واستون آماده كنم و بزارم