Re: allowing just numeric value in my textbox
- From: "Claes Bergefall" <louplou@xxxxxxxxxxxxx>
- Date: Mon, 31 Jul 2006 11:11:53 -0400
Public Class NumericTextBox
Inherits TextBox
Private Const ES_NUMBER As Integer = &H2000
Protected Overrides ReadOnly Property CreateParams() As
System.Windows.Forms.CreateParams
Get
Dim params As CreateParams = MyBase.CreateParams
params.Style = params.Style Or ES_NUMBER
Return params
End Get
End Property
Protected Overrides Function ProcessCmdKey(ByRef msg As
System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As
Boolean
'Need to prevent pasting of non-numeric characters
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 text = String.Empty Then
Return MyBase.ProcessCmdKey(msg, keyData)
Else
For Each ch As Char In text.ToCharArray
If Not Char.IsNumber(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
End Class
/claes
"Reny" <reny@xxxxxxxxxx> wrote in message
news:ey8Sdf7sGHA.2036@xxxxxxxxxxxxxxxxxxxxxxx
can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)
.
- References:
- allowing just numeric value in my textbox
- From: Reny
- allowing just numeric value in my textbox
- Prev by Date: Re: Custom Attributes, Shared methods, Derived classes and reflection
- Next by Date: Re: Listview columnheader question
- Previous by thread: Re: allowing just numeric value in my textbox
- Next by thread: How to validate Date entries.
- Index(es):
Relevant Pages
|
