Обработка большого количества textbox

@koffe09 · Регистрация: 26.02.2015

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

Суть: в текстбоксы, расположенные по два ряда вводятся цифровые значения. Эти значения по нажатию button2 делятся, перемножаются и результат выводят в текстбоксы с одним рядом. Я могу описать каждый текстбокс в отдельности, но можно ли сделать обработку через переменные (типо textbox & i), чтобы код значительно сократить? И ещё каким то образом нужно запилить проверку на наличие цифр в боксах

Неймы текстбоксов:
1/9
2/10
.../...
8/16

а одинарные столбики начинаются с textbox49 сверху вниз

как это сделать, помогите пожалуйста

SoftIce · 19.03.2015, 09:33

Все можно сделать, но не лучше ли в Вашем случае использовать какой-нибудь Grid ?

@Nachrichter · 19.03.2015, 12:13

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

не лучше ли в Вашем случае использовать какой-нибудь Grid

Вот обеими руками "ЗА". А вообще можно их в массив типа Object и циклом, циклом.

@TigerHawk · 19.03.2015, 14:07

Через переменную можно обратиться так:

VB.NET
1
Me.Controls("textbox" & i)

Проверить, что введено число так:

VB.NET
1
2
3
 If IsNumeric(Me.Controls("textbox" & i).Text) = True Then
     'Тут вычисления всяческие
 End If

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

@koffe09 · 19.03.2015, 22:06 **[ТС]**

т.е. вы предлагаете через DataGridView? Получается вычисления будут производиться через файл, скажем, с помощью бд access?

P.S. Я просто только начал заниматься программированием и могу писать простейший код

@chumich · 20.03.2015, 01:10

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

Получается вычисления будут производиться через файл

Причем здесь файл? С гридом можно работать без посторонних файлов. Но я бы задал текстбоксы программно: массивом, а еще проще - массивом массивов. И производил вычисления циклами.

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

Эти значения по нажатию button2 делятся, перемножаются

А где что происходит? В одних делится, в других перемножается? А в третьих? Можно поподробнее?

@6cnitymi · 20.03.2015, 03:03

koffe09, самый простой способ на мой взгляд - обращаться к контролам по их имени...
Каждому текстбоксу слева даёте имя LTB & i, справа - RTB & i...
получаются пары например
LTB7 RTB7
LTB8 RTB8
и тд...

VB.NET
1
Dim i As Integer = 7

ввели переменную i, которая будет хранить номер нужной нам пары...

VB.NET
1
2
3
4
 
Dim LeftTB As Control = Me.Controls.Find("LTB" & i, True)(0)
Dim RightTB As Control = Me.Controls.Find("RTB" & i, True)(0)
msgbox(LeftTB.text * RightTB.text)

Готово, осталось лишь ввести это в цикл...

VB.NET
1
2
3
4
5
For i = 0 to 20
  Dim LeftTB As Control = Me.Controls.Find("LTB" & i, True)(0)
  Dim RightTB As Control = Me.Controls.Find("RTB" & i, True)(0)
  msgbox(LeftTB.text * RightTB.text)
Next

Вот вроде и всё... ничего сложного нет...
через такую процедуру Вы сможете получить все основные параметры контрола, зная лишь его имя...
Основные это текст, размер, положение, видимость и тд...
То есть, если будете использовать сторонний контрол, который имеет что-то помимо общих унаследованных параметров, то Вы не получите к ним доступа... Но, в Вашем случае этого и не требуется....

Надеюсь помог....

@koffe09 · 20.03.2015, 07:59 **[ТС]**

в текстбоксы по два ряда вводятся цифровые значения, затем значение textbox2 делится на textbox1 и умножается на 100, а результат выводится в textbox49. И так далее. textbox4 делится на textbox3, затем *100 и выводится в textbox50. И так будут обрабатываться все текстбоксы стоящие по два ряда

@koffe09 · 28.03.2015, 21:23 **[ТС]**

Вот что получилось, всем спасибо =)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i As Integer = 1 To 4
            Dim LeftTB As Control = Me.Controls.Find("LTB" & i, True)(0)
            Dim RightTB As Control = Me.Controls.Find("RTB" & i, True)(0)
            Dim REZ As Control = Me.Controls.Find("REZ" & i, True)(0)
            If IsNumeric(Me.Controls("LTB" & i).Text) = True And IsNumeric(Me.Controls("RTB" & i).Text) = True Then
                REZ.Text = LeftTB.Text * RightTB.Text
            Else
                REZ.Text = "0"
            End If
        Next
    End Sub

@Yury Komar · 29.03.2015, 19:18

koffe09, я бы эту проверку проводил именно во время ввода цифр в текстбоксы, это даст возможно избежать ошибок и ненужных НУЛЕЙ при расчетах. Тоесть в процедуру TextBox_TextChanged (вроде так звучит) я бы вставил это:

VB.NET
1
If Not IsNumeric (LTB1.Text) Then LTB1.Text = ""

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .

@koffe09 2 / 2 / 1 Регистрация: 26.02.2015 Сообщений: 25

	.NET 4.x Обработка большого количества textbox 19.03.2015, 09:26. Показов 1500. Ответов 9 Метки нет (Все метки) Суть: в текстбоксы, расположенные по два ряда вводятся цифровые значения. Эти значения по нажатию button2 делятся, перемножаются и результат выводят в текстбоксы с одним рядом. Я могу описать каждый текстбокс в отдельности, но можно ли сделать обработку через переменные (типо textbox & i), чтобы код значительно сократить? И ещё каким то образом нужно запилить проверку на наличие цифр в боксах Неймы текстбоксов: 1/9 2/10 .../... 8/16 а одинарные столбики начинаются с textbox49 сверху вниз как это сделать, помогите пожалуйста Миниатюры 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	19.03.2015, 09:33
	Все можно сделать, но не лучше ли в Вашем случае использовать какой-нибудь Grid ? 0

@koffe09 2 / 2 / 1 Регистрация: 26.02.2015 Сообщений: 25
	19.03.2015, 22:06 [ТС]
	т.е. вы предлагаете через DataGridView? Получается вычисления будут производиться через файл, скажем, с помощью бд access? P.S. Я просто только начал заниматься программированием и могу писать простейший код 0

@koffe09 2 / 2 / 1 Регистрация: 26.02.2015 Сообщений: 25
	20.03.2015, 07:59 [ТС]
	в текстбоксы по два ряда вводятся цифровые значения, затем значение textbox2 делится на textbox1 и умножается на 100, а результат выводится в textbox49. И так далее. textbox4 делится на textbox3, затем *100 и выводится в textbox50. И так будут обрабатываться все текстбоксы стоящие по два ряда 0

Обработка большого количества textbox

Решение