1번박스에 텍스트 숫자만 입력되도록 제한하면서,

여러가지 기능들도 같이 실행되게끔 코딩을했는데

문제가 발생했습니다

0.1234를 입력하려고하면

상단에 사진처럼

"." 이 "0" 을 잡아먹고,

"1" 이 "." 을 잡어먹어버립니다;;;

계산기를 만들려고했다가

숫자간의 먹이사슬을 만들어버렸는데

이거 어떻게 해결해야하나요!>?

문제의 코드는 아래 남겼습니다.




'//1번 텍스트박스 숫자만 입력되게 제한
    Private nonNumberEntered As Boolean = False

    Private Sub textBox1_KeyDown（sender As Object, e As System.Windows.Forms.KeyEventArgs） _
     Handles TextBox1.KeyDown
        nonNumberEntered = False




'//0만 있을때 0의 값 변경

        Dim _sender As TextBox = sender

        If _sender.Text = "0" Then
            If Not e.KeyCode = Keys.OemPeriod Then
                _sender.Clear（）
            End If
        End If




'//소수점 중복입력방지

        If Not _sender.Text.IndexOf（"."） = -1 Then
            _sender.Text = _sender.Text.Remove（_sender.TextLength - 1）
        End If




'//텍스트 끝에 커서위치

        _sender.Selectio n s t - a r t = _sender.TextLength




        If e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Then
            If e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Then
                If e.KeyCode <> Keys.Back Then
                    If e.KeyCode <> Keys.OemPeriod Then
                        If e.KeyCode <> Keys.Decimal Then
 If e.KeyCode <> Keys.Delete Then
 End If
 nonNumberEntered = True
                        End If
                    End If
                End If
            End If
        End If
        If Control.ModifierKeys = Keys.Shift Then
            nonNumberEntered = True
        End If
    End Sub

    Private Sub textBox1_KeyPress（sender As Object, e As System.Windows.Forms.KeyPressEventArgs） _
    Handles TextBox1.KeyPress
        If nonNumberEntered = True Then
            e.Handled = True
        End If
    End Sub