Ввод в текстовое поле только числовых значений - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Подскажите, пожалуйста, как прописать к элементу TextBox код, чтобы он выводил числовые значения, как положительные, так и отрицательные? Нашла пример кода, он рабочий, но не выводит минус, что нужно дописать??

Решение задачи: «Ввод в текстовое поле только числовых значений»

textual
Листинг программы
Private Sub a1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles a1.KeyPress
        Dim i As Integer = Asc(e.KeyChar)
        If (i < 58 AndAlso i > 47) OrElse i = 28 OrElse i = 29 OrElse i = 127 OrElse i = 8 Then Return
        With sender
            If i = 45 Then
                Dim cursor As Integer = .SelectionStart
                With .Text
                    If IsNumeric(.Insert(cursor, "-")) Then
                        If cursor < .Length Then Return
                    ElseIf IsNumeric(sender.Text & "-2") Then
                        Return
                    End If
                End With
            End If
        End With
        e.KeyChar = ""
    End Sub

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы