فیلتر کردن TEXTBOX

[viper2009]

سلام
در رویداد KeyPress این کد رو قرار می دهم

If Not IsNumeric(e.KeyChar) Then

e.Handled = True

End If

با این کار دیگه حروف وارد نمی شوند ولی من می خواهم کاراکترهای خاصی را کاربر بتونه وارد کنه
مثل / \ " ' : ; , ! @ # $ % ^ & * ( ) - _ و امثال اینها

چه راهی بنظرتون می رسه؟

[anooshiran]

سلام دوست عزيز

از كد زير در keypress استفاده كن




Dim Symbol As String = "(/\':;,!@#$%^&*()-_0123456789"
If Char.IsControl(e.KeyChar) = True Then Exit Sub
If InStr(Symbol, e.KeyChar) = 0 Then e.Handled = True