Ввод в текстовое поле только числовых значений - 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