Проверка TextBox на пустоту / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка TextBox на пустоту

25 сообщений из 72, страница 2 из 3

все

Проверка TextBox на пустоту

#39893679

assei

Гость

катастрофа, проверил согласен! спасибо , только вот всегда хочется стремится к минимум кода, но и ваш работает! спасибо

...

Рейтинг:

0 / 0

24.11.2019, 21:14

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893730

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

assei,
Len никогда не считает длину строки, а берёт готовое значение, которое всегда хранится в начале строки, поэтому лучше и быстрее не сравнивать строку с "", а считать длину

...

Рейтинг:

0 / 0

25.11.2019, 07:17

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893750

assei

Гость

катастрофа, это все хорошо и позновательно для меня, но сути проблемы я так и не увидел,
Почему же у меня загружается код после выхода , после прерывания?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

'в модуле
Sub проверка()
Dim i
For i = 1 To 7
If Len(Trim(UserForm1.Controls("TextBox" & i))) = 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80C0FF
MsgBox "Выделенные Поля_обязательны_для заполнения", vbInformation, "Сообщение"
Exit Sub 
'ПОСЛЕ ОКОНЧАНИЯ СРАБАТЫВАЕТ КОД НА КНОПКЕ

ElseIf Len(Trim(UserForm1.Controls("TextBox" & i))) <> 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80000005
End If
Next i
MsgBox "Чего тыркаешь! Все поля требуемые для заполнения заполнены!", vbInformation, "Сообщение"
End Sub

'НА КНОПКЕ
Private Sub CommandButton1_Click() 
'====
Call проверка
'=====
......... ДРУГОЙ КОД

...

Рейтинг:

0 / 0

25.11.2019, 08:57

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893754

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Потому что между "Call проверка" и "ДРУГОЙ КОД" у тебя нет никакого прерывания, почему оно должно прерываться по твоему? Ты ничего для этого не сделал.

...

Рейтинг:

0 / 0

25.11.2019, 09:13

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893756

assei

Гость

Shocker.Pro, так между перво проверкой указал Exit Sub , код должен прерваться

...

Рейтинг:

0 / 0

25.11.2019, 09:16

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893759

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

когда ты внутри " Sub проверка()" пишешь "Exit Sub ", у тебя заканчивается выполнение " Sub проверка" и не более того. Точно так же, как оно заканчивается, когда доходит до последней команды внутри " Sub проверка".

А вот внутри " Sub CommandButton1_Click" у тебя нет никакого "Exit Sub ", поэтому после "Call проверка" выполняется "ДРУГОЙ КОД", просто команды выполняются друг за другом последовательно, если ты ничего не сделаешь для изменения порядка выполнения команд.

...

Рейтинг:

0 / 0

25.11.2019, 09:24

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893792

assei

Гость

Shocker.Pro, у меня только что приходит это перенести код из модуля который проверяет второе условие, НО я бы хотел оставить в модуле, а так

Код: vbnet

1.
2.

Call проверка
 Exit Sub

у меня вообще после заполнения все полей не выполняется далее код

...

Рейтинг:

0 / 0

25.11.2019, 10:31

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893794

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Само собой, теперь ты написал Exit Sub и процедура заканчивается
А тебе нужно выполнять Exit Sub только если проверка не прошла
А для этого ты должен знать результат проверки. А "проверка" никак не сообщает тебе результат проверки.
Что нужно сделать - я писал выше.

...

Рейтинг:

0 / 0

25.11.2019, 10:34

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893832

assei

Гость

Shocker.Pro, я изменил порядок, но на кнопке оставил как есть Call проверка, но код срабатывает в двух условий

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub проверка()
Dim i
For i = 1 To 7
If Len(Trim(UserForm1.Controls("TextBox" & i))) <> 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80000005


ElseIf Len(Trim(UserForm1.Controls("TextBox" & i))) = 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80C0FF
MsgBox "поле пустое", vbInformation, "!"
Exit Sub
End If
Next i
End Sub

...

Рейтинг:

0 / 0

25.11.2019, 11:46

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893834

assei

Гость

Shocker.Pro, даже если прерываю так, в этом случае не срабатывает ни чего

Код: vbnet

1.
2.

Call проверка
Exit Sub

...

Рейтинг:

0 / 0

25.11.2019, 11:49

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893851

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Блин, ну как еще объяснить?
Не писать же всю программу за тебя, ты так ничему не научишься

Код: vbnet

1.
2.
3.

Call проверка
If ....... Then Exit Sub
......... ДРУГОЙ КОД

думай

...

Рейтинг:

0 / 0

25.11.2019, 12:05

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893856

assei

Гость

Shocker.Pro, блин так проверку надо делать ??!!! так я понял что проверку в кнопке надо делать НО я то хотел весь код оставить в модуле

...

Рейтинг:

0 / 0

25.11.2019, 12:14

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893862

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ну так и оставляй в модуле.
Только результат проверки тебе нужно вернуть из модуля в код кнопки

...

Рейтинг:

0 / 0

25.11.2019, 12:22

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893904

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

я в эти прерывания не вник, но я думаю вот что об этом
есть форма, на ней есть поля для заполнения, и кнопка, делает что-то ....
предполагается что юзер заполняет поля и жмёт кнопку
вот он нажал кнопку-прога не после первого не правильно заполненного поля выдает резюме, а сразу все проверяет
правее от поля я бы поставил лейблы, в случае правильности на лейблы ставил зелёного цвета галочку иначе красного цвета крестик
информативно и сразу по всем полям
и какое прерывание? если что-то неладно, предполагается что юзер улаживает и снова жмёт кнопку и всё повторяется....
по моему так, не?

...

Рейтинг:

0 / 0

25.11.2019, 13:16

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893907

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

можно и чтобы кнопка появилась, была доступна только когда все поля заполнил

...

Рейтинг:

0 / 0

25.11.2019, 13:18

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893918

assei

Гость

катастрофа,
сейчас пообедаем и будем дальше мозг выедать
мне бы хотелось бы понять, тот подход который мною задумано

...

Рейтинг:

0 / 0

25.11.2019, 13:29

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893947

Roman Mejtes

Участник

Откуда: г. Пермь

Сообщения: 4 264

Рейтинг: 0 / 0

сессия началась, что ли? от куда столько вопросов 0 уровня?

...

Рейтинг:

0 / 0

25.11.2019, 14:16

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893964

assei

Гость

Roman Mejtes, сами то давно стали "умным"?

...

Рейтинг:

0 / 0

25.11.2019, 14:34

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893987

assei

Гость

Shocker.Pro, не получается

Код: vbnet

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.

Private Sub CommandButton1_Click()
Stop
'====
Call проверка
If i = 0 Then Exit Sub
код другой

'=====
End Sub

Public i
Function проверка()

For i = 1 To 3
If Len(Trim(UserForm1.Controls("TextBox" & i))) <> 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80000005
Exit Function

ElseIf Len(Trim(UserForm1.Controls("TextBox" & i))) = 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80C0FF
MsgBox "поле пустое", vbInformation, "!"
End If
Exit Function

Next i

...

Рейтинг:

0 / 0

25.11.2019, 14:59

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893993

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Не нужно использовать public

Нужно вернуть результат из функции "проверка"

Для этого нужно открыть учебник и почитать, как в VB создаются функции, как из них возвращаются значения, как принять значение из вызванной функции в переменную.

...

Рейтинг:

0 / 0

25.11.2019, 15:03

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39893998

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

assei,
каша какая-то

Код: vbnet

1.
2.
3.

Exit Function'-зачем?

Next i

Код: vbnet

If i = 0 Then Exit Sub

когда станет =0?
пальчиком жмите на Эф8
и в нужных местах добавьте
Debug.Print ....
в Immediate смотрите результат

...

Рейтинг:

0 / 0

25.11.2019, 15:08

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39894287

assei

Гость

Shocker.Pro, после того как прошла проверка и все поля заполнены

Код: vbnet

1.
2.
3.
4.

For i = 1 To 3
If Len(Trim(UserForm1.Controls("TextBox" & i))) <> 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80000005
Exit Function

процедура попадает в

Код: vbnet

1.
2.

If i <> 0 Then Exit Sub
другой код

но почему то и на прерывание попадает "Exit Sub" а если убрать прерывание то и код на проверку пустых полей

Код: vbnet

1.
2.
3.
4.
5.
6.

ElseIf Len(Trim(UserForm1.Controls("TextBox" & i))) = 0 Then
UserForm1.Controls("TextBox" & i).BackColor = &H80C0FF
MsgBox "поле пустое", vbInformation, "!"
End If
Exit Function
Next i

тоже попадает в

Код: vbnet

1.
2.

If i <> 0 Then 
другой код

...

Рейтинг:

0 / 0

26.11.2019, 10:10

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39894313

assei

Гость

Shocker.Pro, сдается я проверку не правильно делаю

Код: vbnet

If i <> 0 Then

...

Рейтинг:

0 / 0

26.11.2019, 11:11

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39894344

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Покажи строку, в которой твоя функция "проверка" возвращает результат проверки (или хоть какой-нибудь результат)

...

Рейтинг:

0 / 0

26.11.2019, 11:33

| Ответить | Цитировать | Написать

Проверка TextBox на пустоту

#39894361

assei

Гость

Shocker.Pro, вложение

...

Рейтинг:

0 / 0

26.11.2019, 11:51

| Ответить | Цитировать | Написать

25 сообщений из 72, страница 2 из 3

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка TextBox на пустоту

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39894287&tid=2154852]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	135ms
get topic data:	11ms
get forum data:	3ms
get page messages:	61ms
get tp. blocked users:	1ms
others:	318ms

total:	558ms