VB>NET : Allow a Textbox only to Accept Numeric [SOLVED]

Hi all

Does anyone know how to Allow a User only to Type numeric characters only into a textbox.

I know in VB6 you could catch the char and set it to '0' if not valid

Code:

---

If not KeyAscii = '27' then

---

Code:

---

keyascii = 0

---

Code:

---

End If

---

But how do you make it work in VB.NET ?

I have tried adding the Numberbox control to my app but somehow I get errors with this control when exiting the App:wave:

like this...

VB Code:

[Color=Blue]Private[/color] [Color=Blue]Sub[/color] TextBox1_KeyPress([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] [Color=Blue]Object[/color], [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.Windows.Forms.KeyPressEventArgs) [Color=Blue]Handles[/color] TextBox1.KeyPress
        [Color=Blue]If[/color] e.KeyChar.IsNumber(e.KeyChar) [Color=Blue]Then
[/color]            e.Handled = [Color=Blue]False
[/color]        [Color=Blue]Else
[/color]            e.Handled = [Color=Blue]True
[/color]        [Color=Blue]End[/color] [Color=Blue]If
[/color]    [Color=Blue]End[/color] [Color=Blue]Sub[/color]

I knew I forgot to check something

Thanx It Works

But if i have many Text boxs then do i have to write in every text box keypress event

Can we call some function in formkeypress event

better make an array of those txt boxes or declare them dynamically and then u can use that

you need to make a Handler for all the textboxes like this then...

VB Code:

[Color=Blue]Private[/color] [Color=Blue]WithEvents[/color] txtBox [Color=Blue]As[/color] TextBox
 
    [Color=Blue]Private[/color] [Color=Blue]Sub[/color] Form1_Load([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] System.Object, [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] [Color=Blue]MyBase[/color].Load
        [Color=Blue]Dim[/color] ctl [Color=Blue]As[/color] Control
        [Color=Blue]For[/color] [Color=Blue]Each[/color] ctl [Color=Blue]In[/color] [Color=Blue]Me[/color].Controls
            [Color=Blue]If[/color] [Color=Blue]TypeOf[/color] ctl [Color=Blue]Is[/color] TextBox [Color=Blue]Then
[/color]                [Color=Blue]AddHandler[/color] ctl.KeyPress, [Color=Blue]AddressOf[/color] txtBox_KeyPress
            [Color=Blue]End[/color] [Color=Blue]If
[/color]        [Color=Blue]Next
[/color]    [Color=Blue]End[/color] [Color=Blue]Sub
 
[/color]    [Color=Blue]Private[/color] [Color=Blue]Sub[/color] txtBox_KeyPress([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] [Color=Blue]Object[/color], [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.Windows.Forms.KeyPressEventArgs) [Color=Blue]Handles[/color] txtBox.KeyPress
        [Color=Blue]If[/color] e.KeyChar.IsNumber(e.KeyChar) [Color=Blue]Then
[/color]            e.Handled = [Color=Blue]False
[/color]        [Color=Blue]Else
[/color]            e.Handled = [Color=Blue]True
[/color]        [Color=Blue]End[/color] [Color=Blue]If
[/color]    [Color=Blue]End[/color] [Color=Blue]Sub[/color]