Creating a function tha will allow multiple or different textbox to input only number

smoalosi

i have a code and would like to know how i can change it to suit different or multiple textboxes without typing it again and again.

Expand|Select|Wrap|Line Numbers

 
Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
 
        Dim tb As TextBox = CType(sender, TextBox)

        Dim chr As Char = e.KeyChar

        Dim iLoc As Integer = 0
 
        If IsNumeric(e.KeyChar) And Not e.KeyChar = "-" Then

            e.Handled = Not IsNumeric(tb.Text & e.KeyChar)

        ElseIf e.KeyChar = "." Then

            If Not (tb.SelectedText = "." Or IsNumeric(tb.Text & e.KeyChar)) Then

                e.Handled = True

            End If

        ElseIf Not Char.IsControl(e.KeyChar) Then

            e.Handled = True

        End If
 
        iLoc = TextBox6.Text.IndexOf(".")

        If iLoc > 0 Then

            If (TextBox6.Text.Substring(iLoc).Length > 2) And Char.IsControl(e.KeyChar) = False Then

                e.Handled = True

            End If

        End If

    End Sub

Frinavale

You can use that method for this purpose if you want to.

To do that you either have to include Handles TextBoxX.KeyPress to the method or you can use the AddHandler statement to hook up the Keypress event for the TextBoxes to the method.

-Frinny

smoalosi

Thanks a lot, it worked

Creating a function tha will allow multiple or different textbox to input only number

Post your reply

Similar topics

Question stats

	Ask Question
Home Questions Articles Browse Topics Latest Top Members FAQ