0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 5
|
|
1 | |
Проверка минимально допустимого значения05.06.2018, 16:05. Показов 951. Ответов 8
Метки нет (Все метки)
На форме имеется 12 ячеек(расположенные в 2 столбца) для ввода чисел (TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6 - 1й столбец, TextBox7,TextBox8,TextBox9,TextBox10,TextBox11,TextBox12 - 2й столбец). Как сделать, чтобы при нажатии на кнопку, если число введенное в TextBox1 больше, чем в TextBox7, число из TextBox7 меняло цвет на красный? Аналогично TextBox2 -TextBox8,TextBox3 - TextBox9...
0
|
05.06.2018, 16:05 | |
Ответы с готовыми решениями:
8
Проверка минимально допустимого значения Как правильно записать выражение при превышении допустимого значения Существует указатель p. Можно ли выяснить, содержит он адрес допустимого значения или нет После первого цикла значения переменных в остальных не меняются и берутся больше допустимого |
6 / 4 / 1
Регистрация: 21.02.2013
Сообщений: 62
|
||||||
05.06.2018, 16:30 | 2 | |||||
Что-то типа этого (Сильно тапком не бейте - на коленке соорудил):
0
|
2724 / 1701 / 776
Регистрация: 23.03.2015
Сообщений: 5,388
|
|
05.06.2018, 16:41 | 3 |
sandycorp,
переведите тексты в числа CDbl(TextBox1.Text)
0
|
Заблокирован
|
||||||
05.06.2018, 16:42 | 4 | |||||
Сообщение было отмечено olyaolya97 как решение
Решение
olyaolya97, Вам можно было бы и в первой теме отписаться?
1
|
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 5
|
|
05.06.2018, 16:59 [ТС] | 5 |
Остап Бонд, спасибо большое, очень помогли))
0
|
6 / 4 / 1
Регистрация: 21.02.2013
Сообщений: 62
|
|
05.06.2018, 18:34 | 6 |
Остап Бонд, забыли блок Else)) И отмену "раскраски", а так, действительно, будет изящнее
0
|
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 5
|
|
06.06.2018, 12:48 [ТС] | 7 |
sandycorp, можно по-подробнее по поводу отмены "раскраски"?
0
|
6 / 4 / 1
Регистрация: 21.02.2013
Сообщений: 62
|
|
06.06.2018, 13:48 | 8 |
olyaolya97, у Уважаемого Остап Бонд идет изменение цвета. НО если данные поменять местами в старой ячейке также останется цветная ячейка.
То есть не хватает Controls("TextBox" & r).ForeColor = 0 Ну и блок ELSE тоже нужен, а то в коде проверяется только одно условие, а If Controls("TextBox" & r) < Controls("TextBox" & r + 6) код не отработает
0
|
0 / 0 / 0
Регистрация: 05.06.2018
Сообщений: 5
|
|
06.06.2018, 13:53 [ТС] | 9 |
sandycorp, Спасибо!
0
|
06.06.2018, 13:53 | |
06.06.2018, 13:53 | |
Помогаю со студенческими работами здесь
9
Через сколько лет масса древесины в лесу будет меньше предельно допустимого значения с? Программа по поиску минимально и максимального значения функции Найти ошибку в расчете суммы после минимально значения В заданном одномерном массиве найти максимальное и минимально значение и обнулить все значения между ними Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |