Проверка ввода чисел в TextBox

@kkdamirkk · Регистрация: 21.05.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, такая проблема на форме есть textbox1,textbox2,textbox3. Значение 3 являются сумма 1 и 2. Значения 1 и 2 вводятся в ручную, но если я ввожу какой то символ например вместо "," ставлю ".". То вылетает ошибка или случайно буковку набираю. Возможно сделать так, чтобы вся программа не ломалась при этом а просто в текстбоксе3 писало "ошибка проверьте данные"?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim k, R As Single
 Private Sub Turbine_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        k = CSng(TextBox1.Text)
        R = CSng(TextBox2.Text)
        TextBox3.Text = k + R
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        k = CSng(TextBox1.Text)
        TextBox3.Text = k + R
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        R = CSng(TextBox2.Text)
        TextBox3.Text = k + R
    End Sub

Использую параметры Single

@Petr_S · 02.07.2014, 02:49

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Private k, R As Single
 
    Private Sub TextsChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Activated, TextBox1.TextChanged, TextBox2.TextChanged
 
        Dim separator As String = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator(0)
 
        Dim ks As String = Replace(TextBox1.Text, ".", separator)
        Dim Rs As String = Replace(TextBox2.Text, ".", separator)
 
        If Not (IsNumeric(ks)) Or Not (IsNumeric(Rs)) Then
            TextBox3.Text = "Проверьте данные!"
            Exit Sub
        End If
 
        k = CSng(ks)
        R = CSng(Rs)
        TextBox3.Text = CStr(k + R)
    End Sub

Добавлено через 1 час 7 минут
Немного переписАл:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub TextsChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Activated, TextBox1.TextChanged, TextBox2.TextChanged
 
        Dim separator As String = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator(0)
 
        Dim ks As String = Replace(TextBox1.Text, ".", separator)
        Dim Rs As String = Replace(TextBox2.Text, ".", separator)
 
        If (IsNumeric(ks) And IsNumeric(Rs)) Then
            k = CSng(ks)
            R = CSng(Rs)
            TextBox3.Text = CStr(k + R)
 
        Else
            TextBox3.Text = "Проверьте данные!"
        End If
    End Sub

@Петррр · 02.07.2014, 08:46

NumericUpDown

@kkdamirkk · 02.07.2014, 09:24 **[ТС]**

Сообщение от Петррр

NumericUpDown

Этот вариант нельзя использовать т.к. дизайн кнопок верх, вниз не подходит для программы

@Петррр · 02.07.2014, 09:27

VB.NET
1
NumericUpDown1.Controls(0).Visible = False

@vbSerGanT · 02.07.2014, 13:07

А я предлагаю другой способ проверки ввода

VB.NET
1
2
3
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
        If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 AndAlso e.KeyChar <> "," Then e.Handled = True
    End Sub

Все что после Handles
TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
Это проверочные текстбоксы

@kkdamirkk · 02.07.2014, 22:01 **[ТС]**

Сообщение от vbSerGanT

А я предлагаю другой способ проверки ввода

Спасибо! Ваш вариант действительно мне помог! Спасибо большое!

@Petr_S · 02.07.2014, 22:01

Сообщение от vbSerGanT

VB.NET
1
If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 AndAlso e.KeyChar <> "," Then e.Handled = True

1. Если программа будет запущена на компьютере, где разделитель ".", то корректно работать программа не будет.
2. Одно число - один разделитель целой и дробной части. В данном случае можно ввести сколько угодно запятых.

@Волшебник 307 · 03.05.2024, 07:04

Cтрелки на NumericUpDown можно убрать так:

VB.NET
1
2
NumericUpDown1.Controls(0).Hide()
        NumericUpDown1.Controls(1).MinimumSize = NumericUpDown1.PreferredSize - New Size(4, 4)

После свертывания-восстановления формы на NumericUpDown на месте стрелок черной полосы нет.

@edmonsur · 23.05.2024, 13:07

Всем

пример от Майкрософта

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 Public Class Form1
    ' Boolean flag used to determine when a character other than a number is entered.
    Private nonNumberEntered As Boolean = False
 
 
 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        ' Initialize the flag to false.
        nonNumberEntered = False
 
        ' Determine whether the keystroke is a number from the top of the keyboard.
        If e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Then
            ' Determine whether the keystroke is a number from the keypad.
            If e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Then
                ' Determine whether the keystroke is a backspace.
                If e.KeyCode <> Keys.Back Then
                    ' A non-numerical keystroke was pressed. 
                    ' Set the flag to true and evaluate in KeyPress event.
                    nonNumberEntered = True
                End If
            End If
        End If
        'If shift key was pressed, it's not a number.
        If Control.ModifierKeys = Keys.Shift Then
            nonNumberEntered = True
        End If
 
End Sub
 
 
 
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        ' Check for the flag being set in the KeyDown event.
        If nonNumberEntered = True Then
            ' Stop the character from being entered into the control since it is non-numerical.
            e.Handled = True
        End If
    End Sub
End Class

Как видно из примера, при нажатии... событие KeyDown возникает раньше KeyPress, а это значит ..... что всё условия должны находиться именно там.

И ещё для подумать,

1. Число не может начинаться с запятой
2. Если первый знак ноль, то следующий может быть только запятая
3. Число не может заканчиваться запятой
4. В числе не может быть больше чем одна запятая

@Yury Komar · 23.05.2024, 13:43

edmonsur, с первым пунктом не соглашусь... Может начинаться с разделителя таким образом целая часть принимается за 0

@edmonsur · 23.05.2024, 14:15

Yury Komar, верно, не учёл.

Добавлено через 5 минут
правильно описать объект, это только пол дела

Добавлено через 18 минут
Пока не забыл... к разрешённым знакам ввода кроме чисел и запятой нужно добавить знак минуса. Число может быть отрицательным.

@Yury Komar · 23.05.2024, 14:30

Честно говоря, этой теме 10 лет, зачем ее ревнимировать?

@edmonsur · 23.05.2024, 16:17

Yury Komar, Я конечно не знаком с двигом vBulletin, но предположу что это такое же ~~нАглосаксонское~~ портальное ~~дермисче~~, песочница для доморощенных PHP верстальщиков как и PHP Fusion. В котором предусмотрено всё. кроме того что нужно. А именно... если в теме хотя бы один ответ помечен как решение, то комментирование автоматически запрещается. И тогда реанимировать уже ничего не получиться... архив

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Петррр 6721 / 3570 / 900 Регистрация: 28.10.2010 Сообщений: 5,937
	02.07.2014, 08:46
	NumericUpDown 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,254
	23.05.2024, 13:43
	edmonsur, с первым пунктом не соглашусь... Может начинаться с разделителя таким образом целая часть принимается за 0 1

@edmonsur 69 / 65 / 5 Регистрация: 11.04.2021 Сообщений: 288 Записей в блоге: 7
	23.05.2024, 14:15
	Yury Komar, верно, не учёл. Добавлено через 5 минут правильно описать объект, это только пол дела Добавлено через 18 минут Пока не забыл... к разрешённым знакам ввода кроме чисел и запятой нужно добавить знак минуса. Число может быть отрицательным. 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,254
	23.05.2024, 14:30
	Честно говоря, этой теме 10 лет, зачем ее ревнимировать? 0

@edmonsur 69 / 65 / 5 Регистрация: 11.04.2021 Сообщений: 288 Записей в блоге: 7
	23.05.2024, 16:17
	Yury Komar, Я конечно не знаком с двигом vBulletin, но предположу что это такое же ~~нАглосаксонское~~ портальное ~~дермисче~~, песочница для доморощенных PHP верстальщиков как и PHP Fusion. В котором предусмотрено всё. кроме того что нужно. А именно... если в теме хотя бы один ответ помечен как решение, то комментирование автоматически запрещается. И тогда реанимировать уже ничего не получиться... архив 0

Проверка ввода чисел в TextBox

Решение