Textbox에 숫자만입력

Textbox1.text 에 숫자만 들어가도록 하려면

 

KeyPrees ?? 이벤트에 키프레스 이벤트에 추가하면됨

 

아래 코딩하면 해당 Textbox1.text 에는 숫자만 들어감.

--------------------------------------------------------------------------

        If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then

            e.Handled = True

        End If

============================================================

다른 방법

  Private Sub TextBox11_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox11.KeyPress

        Dim ch As String

        Dim ascii As Integer

        ch = e.KeyChar()

        ascii = Asc(ch)

        TextBox11.ImeMode = 3

        Select Case ascii

            Case 8, 9

            Case 48 To 57

            Case Else

                e.Handled = True

        End Select