Проверка TextBox на корректный ввод

@Alex09_03 · Регистрация: 11.12.2014

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

Собственно проблема в том, что я не знаю как вывести ошибку о том, что не во все текст боксы введены данные для вычисления. И я плохо представляю как мне выводить сразу две ошибки и более, если их столько будет. Помогите, пожалуйста. Уже 4-ый раз не могу сдать

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
40
41
42
43
44
Public Class Form1
 
    Private Property MessageBox As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim C1, C2, C3, C4, C5, C12, C45, C As Double
        C1 = Val(Replace(TextBox1.Text, ",", "."))
        C2 = Val(Replace(TextBox2.Text, ",", "."))
        C3 = Val(Replace(TextBox3.Text, ",", "."))
        C4 = Val(Replace(TextBox4.Text, ",", "."))
        C5 = Val(Replace(TextBox5.Text, ",", "."))
        C12 = C1 + C2
        C45 = C4 + C5
        If (C1 Or C2 Or C3 Or C4 Or C5) < 0 And (Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Or Not IsNumeric(TextBox3.Text) Or Not IsNumeric(TextBox4.Text) Or Not IsNumeric(TextBox5.Text)) = True Then
            Label6.Text = "Ошибка! Вводите только ЧИСЛА БОЛЬШЕ 0 и без пропусков!"
        ElseIf (C1 Or C2 Or C3 Or C4 Or C5) < 0 Then
            Label6.Text = "Ошибка! Введено отрицательное значение!"
        ElseIf (C45 * C3 + C12 * C3 + C12 * C45) = 0 Then
            Label6.Text = "Ошибка! Деление в формуле на 0!"
        ElseIf (Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Or Not IsNumeric(TextBox3.Text) Or Not IsNumeric(TextBox4.Text) Or Not IsNumeric(TextBox5.Text)) = True Then
            Label6.Text = ("«Ошибка! Введите корректные значения без пропусков!»")
        Else
            C = (C12 * C45 * C3) / (C45 * C3 + C12 * C3 + C12 * C45)
            Label6.Text = CStr(C)
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub
 
    Private Sub EsleIf(p1 As Long)
        Throw New NotImplementedException
    End Sub
 
End Class

@Alex09_03 · 12.12.2014, 01:08 **[ТС]**

забыл

@Alex77755 · 12.12.2014, 03:15

Что за каша?

Visual Basic
1
If (C1 Or C2 Or C3 Or C4 Or C5) < 0 Then

забыл

Забыл приложить проект, а не картинку! здесь же не вернисаж!

Уже 4-ый раз не могу сдать

Не мудрено!
Если до сих пор не понял в какой среде программишь
Если ваш бэйсик выдает конструкции типа Imports System, sender As Object, Public Class Form1, то вам СЮДА!

Добавлено через 34 минуты
Один из вариантов проверить поля в цикле на заполненность

VB.NET
1
2
3
4
5
6
7
8
9
        For i = 1 To 5
            Q = Controls("TextBox" & i)
            If Q.Text = "" Then
                S = "«Ошибка! текстовое поле " & Q.Name & " не заполнено!"
                Q.Select()
                Label6.Text = (S)
                Exit Sub
            End If
        Next

Если поле не заполнено переводит туда курсор
Добавляй проверку на число, на отрицательные или что там ещё надо...

Добавлено через 5 минут

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
        For i = 1 To 5
            Q = Controls("TextBox" & i)
            If Q.Text = "" Then
                S = "«Ошибка! текстовое поле " & Q.Name & " не заполнено!"
                Q.Select()
                Label6.Text = (S)
                Exit Sub
            End If
 
            If Not IsNumeric(Q.Text) Then
                S = "«Ошибка! В текстовом поле " & Q.Name & " не число!"
                Q.Text = ""
                Q.Select()
                Label6.Text = (S)
                Exit Sub
            End If
 
            If CDbl(Q.Text) < 0 Then
                S = "«Ошибка! В текстовом поле " & Q.Name & " отрицательное число!"
                Q.Text = ""
                Q.Select()
                Label6.Text = (S)
                Exit Sub
            End If
 
        Next

@TigerHawk · 12.12.2014, 11:43

Или так, например. Выводятся все ошибки. Только я бы это в MsgBox например вывел, чтобы Label не растягивать. Ну это уже автор сам пусть решает. А обнулять поля с неправильными данными я бы не стал. Так не понятно, в чем была ошибка. Вдруг человек ввел вместо "125" "125t". Нажал клавишу лишнюю случайно. А тут раз и все стерлось, вспоминай потом, что там было. А так удалил символ и все хорошо.

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
 
        Dim TxtBx As TextBox 'Имя проверяемого TexBox`а
        Dim ErrorMsg As String = "Ошибка!" & vbCrLf 'Текст сообщения об ошибке
        Dim Err As Boolean = False 'Есть ли ошибки? Есть=True, нет=False.
        'Проверка правильности введенных данных
        For I = 1 To 5
            TxtBx = Controls("TextBox" & I)
            If TxtBx.Text = "" Then
                ErrorMsg += "Поле " & TxtBx.Name & " не заполнено!" & vbCrLf
                Err = True
            ElseIf Not IsNumeric(TxtBx.Text) Then
                ErrorMsg += "В поле " & TxtBx.Name & " не число!" & vbCrLf
                Err = True
            ElseIf CDbl(TxtBx.Text) <= 0 Then
                ErrorMsg += "В поле " & TxtBx.Name & " должно быть число больше 0!" & vbCrLf
                Err = True
            End If
        Next I
 
        'Если ошибок нет, то производим вычисления, если есть, выводим сообщения.
        If Err = False Then
            'Тут вычисления
        Else
            Label6.Text = ErrorMsg
        End If

Добавлено через 19 минут
И для удобства можно в каждый TextBox в параметр Tag вписать к чему он относится и выводить это в сообщении об ошибке. Так будет понятней.

Если в коде, то так:

VB.NET
1
TextBox1.Tag = "C1"

А потом:

VB.NET
1
ErrorMsg += "Поле " & TxtBx.Tag & " не заполнено!" & vbCrLf

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Alex09_03 0 / 0 / 0 Регистрация: 11.12.2014 Сообщений: 4
	12.12.2014, 01:08 [ТС]
	забыл 0

Проверка TextBox на корректный ввод

Решение