View Full Version : کد اسکی
autosa
یک شنبه 07 شهریور 1389, 09:38 صبح
سلام به همه دوستان برنامه نویس چجوری میتونم کاربرو محدود کنم که فقط در داخل تکس باکس فقط عدد 0 تا 9 وارد کنه در غیر این صورت هر کاراکتری را وارد کرد به کاربر خطا نمایش بده ممنون
nasim bahari
یک شنبه 07 شهریور 1389, 10:24 صبح
سلام..........
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
یک شنبه 07 شهریور 1389, 10:39 صبح
اینم یه راه دیگه :
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
یک شنبه 07 شهریور 1389, 14:55 عصر
فقط كافيه كد زير رو توي 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 واستون آماده كنم و بزارم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.