فیلترکردن تکست باکس

[samiasoft]

سلام دوستان

چگونه یک تکست باکس رو محدود کنیم بصورتی که :

فقط داخلش حروف انگلیسی و اعداد بشه وارد کرد و بقیه علائم و سیمبولها از جمله +....=.....@...../......'.............".......نقطه.......و غیره تایپ نشوند.

[pbm_soy]

از طریق کدنویسی رخداد keypress ویا textchange میتوانید اینکار را انجام دهید
مثلا در keypress کد کلید تایپ شده یا کاراکتر تایپ شده را میدهد و با بررسی آن میتوانید بفهمید چی تایپ شده و تصمیم بگیرید که در تکست باکس باشه یا نباشه

[samiasoft]

ممنون از شما

ولی الان مشکل میشه برام. که بشینم کلیه سیمبول ها رو وارد کنم مثلا اینطوری :

Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress Select Case e.KeyChar

Case "!"c To ")"c
e.Handled = True
Case "@"c
e.Handled = True
Case "*"c
e.Handled = True
Case "^"c
e.Handled = True
Case "-"c
e.Handled = True
Case "="c
e.Handled = True
Case "_"c
e.Handled = True
Case "+"c
e.Handled = True
Case "."c
e.Handled = True
Case "/"c
e.Handled = True
Case "\"c
e.Handled = True
Case "`"c
e.Handled = True
Case "?"c
e.Handled = True
Case "<"c
e.Handled = True
Case ">"c
e.Handled = True
Case ":"c
e.Handled = True
Case "|"c
e.Handled = True
End Select

من میخواستم که در تکست باکسم فقط حروف انگلیسی و اعداد رو بشه وارد کرد. (حروف فارسی و سیمبول ها و علامت هایی که با شیفت تایپ میشوند ممنوع)

[samiasoft]

با دستور زیر بالاخره تونستم کاری کنم که داخل تکست باکس فقط اعداد و حروف وارد بشن و دیگر علامت های دیگر وارد نشوند:

If Not Char.IsLetterOrDigit(e.KeyChar) Then

e.Handled = True

End If

[Sosha1996]

سلام...
فکر کنم بتونی به جای این همه کار، یه کدی بنویسی که جز اونایی که تو می خوای چیز دیگه ای وارد نشه.
البته شرمنده کدش رو نمی دونم. برات داخل اینترنت می گردم.

[samiasoft]

ممنون از شما

دوستان در این دستور چگونه یک استثنا میشه قرار داد؟ برای مثال کلید back space و SPACE هم کار کنه.

رویداد KeyPress

If Not Char.IsLetterOrDigit(e.KeyChar) Then

e.Handled = True


End If

[samiasoft]

با درج دستورات بصورت زیر مشکلم حل شد »



If Not Char.IsLetterOrDigit(e.KeyChar) Then


If e.KeyChar = ControlChars.Back Then


ElseIf e.KeyChar = Convert.ToChar(Keys.Space) Then


Else




e.Handled = True


End If




End If