Проверка установки нескольких флагов на форме

@isx · Регистрация: 25.12.2011

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

Добрый вечер)... Подскажите пожалуйста, почему этот код не работает? Описание думаю не требуется, всё просто до безобразия))

Visual Basic
1
2
3
4
5
6
7
8
Public Sub Command1_Click()
If Check1 = 1 Then Text1 = "no" Else Text1 = "YES"
If Check2 = 1 Then Text2 = "no" Else Text2 = "YES"
If Check3 = 1 Then Text3 = "no" Else Text3 = "YES"
If Check4 = 1 Then Text4 = "no" Else Text4 = "YES"
If Check5 = 1 Then Text5 = "no" Else Text5 = "YES"
If Check6 = 1 Then Text6 = "no" Else Text6 = "YES"
End Sub

Если сначала писать одну строчку с IF, то работает нормально, как делаю несколько, то начинает ругаться на верхнюю строку Public Sub Command1_Click() типа "неопциональный аргумент"

@Zic041 · 25.12.2011, 23:20

Может в конце забыл

Visual Basic
1
 End If

+ попробуй так

Visual Basic
1
2
3
4
5
6
If Check1 = 1 Then Text1 = "no" Else Text1 = "YES"
 IfseIf Check2 = 1 Then Text2 = "no" Else Text2 = "YES"
 IfseIf Check3 = 1 Then Text3 = "no" Else Text3 = "YES"
 IfseIf Check4 = 1 Then Text4 = "no" Else Text4 = "YES"
 IfseIf Check5 = 1 Then Text5 = "no" Else Text5 = "YES"
 IfseIf Check6 = 1 Then Text6 = "no" Else Text6 = "YES"

@isx · 25.12.2011, 23:24 **[ТС]**

Всёравно таже ошибка....

Добавлено через 1 минуту
Даже если оставить только одну верхнюю строку с If, то ошибка летит....

@ZaDpOTuHeuPeT · 25.12.2011, 23:25

Visual Basic
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
Public Sub Command1_Click()
If Check1 = 1 Then
Text1 = "no"
Else
Text1 = "YES"
End If
If Check2 = 1 Then
Text2 = "no"
Else
Text2 = "YES"
End If
If Check3 = 1 Then
Text3 = "no"
Else
Text3 = "YES"
End If
If Check4 = 1 Then
Text4 = "no"
Else
Text4 = "YES"
End If
If Check5 = 1 Then
Text5 = "no"
Else
Text5 = "YES"
End If
If Check6 = 1 Then
Text6 = "no"
Else
Text6 = "YES"
End If
End Sub

а так?

@isx · 25.12.2011, 23:27 **[ТС]**

И так тоже..(

@ZaDpOTuHeuPeT · 25.12.2011, 23:29

тебе надо что "YES" или "NO" выводило?
у меня работает все, какую именно ошибку пишет?

Вот архивчик, с прогой, посмотри, мб то что надо

@isx · 25.12.2011, 23:42 **[ТС]**

ZaDpOTuHeuPeT, спасибо) Работает)... Только вот не пойму почему когда в свой проект целиком код ваш вставляю, то у меня ошибка всё равно прёт.....

@ZaDpOTuHeuPeT · 25.12.2011, 23:44

хз=)
незачто

@isx · 25.12.2011, 23:46 **[ТС]**

Всем огромное спасибо))) Разобрался... Оказалось, причина в том, что кода я создавал несколько чекбоксов и текстбоксов, я их просто скопировал 6 раз из одного и переименовал, но адрес его стал не просто checkbox2, а checkbox2(2), и так со всеми...)

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@isx 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 11
	25.12.2011, 23:24 [ТС]
	Всёравно таже ошибка.... Добавлено через 1 минуту Даже если оставить только одну верхнюю строку с If, то ошибка летит.... 0

@isx 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 11
	25.12.2011, 23:27 [ТС]
	И так тоже..( 0

@isx 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 11
	25.12.2011, 23:42 [ТС]
	ZaDpOTuHeuPeT, спасибо) Работает)... Только вот не пойму почему когда в свой проект целиком код ваш вставляю, то у меня ошибка всё равно прёт..... 0

@ZaDpOTuHeuPeT 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 15
	25.12.2011, 23:44
	хз=) незачто 0

@isx 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 11
	25.12.2011, 23:46 [ТС]
	Всем огромное спасибо))) Разобрался... Оказалось, причина в том, что кода я создавал несколько чекбоксов и текстбоксов, я их просто скопировал 6 раз из одного и переименовал, но адрес его стал не просто checkbox2, а checkbox2(2), и так со всеми...) 0