Filtering Textbox input

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Johnny Jörgensen - 23 Apr 2008 12:03 GMT

I've got a textbox where I filter the input in the KeyPress event to allow
only certain characters.

However, If the user cuts and pastes a text into the textbox, all text is
entered - not only the characters allowed. That doesn't surprise me, but
what is the best way of avoiding that and still only allowing certain
characters even when pasting???

TIA,
Johnny J.

Reply to this Message

Kerry Moorman - 23 Apr 2008 13:00 GMT

Johnny,

One option would be to use a MaskedTextBox control instead of a TextBox
control.

Kerry Moorman

> I've got a textbox where I filter the input in the KeyPress event to allow
> only certain characters.
[quoted text clipped - 6 lines]
> TIA,
> Johnny J.

Reply to this Message

kimiraikkonen - 23 Apr 2008 13:24 GMT

On Apr 23, 3:00 pm, Kerry Moorman
<KerryMoor...@discussions.microsoft.com> wrote:

> Johnny,
>
[quoted text clipped - 13 lines]
> > TIA,
> > Johnny J.

Johnny,
You can handle textbox's textchanged event to restrict unwanted word/
letter entry.

For example; Assuming you don't want "foo" word to be pasted into your
textbox then clear textbox after unwanted word's entry, you can do:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Contains("foo") = True Then
MsgBox("you cannot paste that")
' Clear all unwanted entry
TextBox1.Clear()
End If
End Sub

Hope this helps,

Onur

Reply to this Message

Claes Bergefall - 24 Apr 2008 11:43 GMT

Inherit it and override ProcessCmdKey. The exact code depends on if you want
to abort the pasting if it contains invalid characters or if you want to
strip them out and paste the rest. The following does the former (i.e.
aborts the paste if it contains any invalid character):

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal
keyData As Keys) As Boolean
If keyData = (Keys.Shift Or Keys.Insert) OrElse keyData = (Keys.Control
Or Keys.V) Then
Dim data As IDataObject = Clipboard.GetDataObject
If data Is Nothing Then
Return MyBase.ProcessCmdKey(msg, keyData)
Else
Dim text As String = CStr(data.GetData(DataFormats.StringFormat,
True))
If String.IsNullOrEmpty(text) Then
Return MyBase.ProcessCmdKey(msg, keyData)
Else
For Each ch As Char In text.ToCharArray
If Not IsValidChar(ch) Then
Return True
End If
Next
Return MyBase.ProcessCmdKey(msg, keyData)
End If
End If
Else
Return MyBase.ProcessCmdKey(msg, keyData)
End If
End Function

Private Function IsValidChar(ByVal ch As Char) As Boolean
'TODO: Return True or False depending on the validity of the character
End Function

/claes

> I've got a textbox where I filter the input in the KeyPress event to allow
> only certain characters.
[quoted text clipped - 6 lines]
> TIA,
> Johnny J.

Reply to this Message

Filtering Textbox input

Free Magazines