Private nonNumberEntered As Boolean = False


    Private Sub textBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) _
     Handles textbox1.KeyDown
        nonNumberEntered = False

        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


이 코드를 사용하여 특정키 외에는 조작을 못하도록 하였는데

문제가 계산기에 소수점이 무한대로 찍혀버리네요 ㅋㅋㅋ

소수점이 1개이상 찍히다보니

더블로 처리하지못해 응용프로그램이 오류나고ㅋㅋ

정말ㅋㅋ

소수점이라는 특정한 문자만 중복되게 입력 못하게할려면

어떻게 해야하나요!?