Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Веттуня
31.08.2022 11:12 •
Информатика
Создать программный проект, на котором задана горизонтальная полоса из четырёх квадратов, при нажатии кнопки будет появляться вертикальная полоса. (написать на visual basic)
Ответ:
memasik67
20.07.2020 21:29
Private Sub Command1_Click()
Form1.Shape1.Visible = True
Form1.Shape2.Visible = True
Form1.Shape3.Visible = True
Form1.Shape4.Visible = True
Form1.Shape5.Visible = Falce
Form1.Shape6.Visible = Falce
Form1.Shape7.Visible = Falce
Form1.Shape8.Visible = Falce
End Sub
Private Sub Command2_Click()
Form1.Shape5.Visible = True
Form1.Shape6.Visible = True
Form1.Shape7.Visible = True
Form1.Shape8.Visible = True
Form1.Shape1.Visible = Falce
Form1.Shape2.Visible = Falce
Form1.Shape3.Visible = Falce
Form1.Shape4.Visible = Falce
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
skillvip
21.10.2021 10:58
Информатика сор сделайте что угодно из этого...
mylifeartem
17.11.2022 20:53
1. Напишите программу которая выводит сообщение - Все билеты распроданы если продано 430 билетов, если меньше, то сообщение - «Билеты есть.Количество проданных билетов...
Dalgat0
04.04.2020 10:49
Определите значение переменной X после выполнения следующего фрагмента программы: x:=1; repeat x:=x+3; x:=x+1; until x 10; очень...
Hunnnnty
20.06.2020 23:42
Как перевести число 653(16) в (10) и в (8)...
123456531
20.06.2020 23:42
Написать программу на паскале. напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, которые кратны 6 или 11. программа получает на вход...
Viktoria12311
20.06.2020 23:42
Оцените информационный объем моноаудиофайла длительностью звучания 1 мин, если глубина кодирования и частота дискретизации звукового сигнала равны соответственно: а) 16...
Chelovek987654321
20.12.2020 19:17
Письменно в тетради напиши алгоритм для написания в стрелочке числа 626262....
Profesor2Max
27.12.2021 19:07
4. определи определи в каждой ситуации информации...
Darkness171
30.09.2022 18:15
(в ответе укажите только число без указания основания системы)...
s0f21
17.01.2023 10:58
3. Определите формат текстового файла А. wayB.jpgC. tiffD. docx4. Определите формат аудио-файла A. wavB. movC. docD. txt...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Form1.Shape1.Visible = True
Form1.Shape2.Visible = True
Form1.Shape3.Visible = True
Form1.Shape4.Visible = True
Form1.Shape5.Visible = Falce
Form1.Shape6.Visible = Falce
Form1.Shape7.Visible = Falce
Form1.Shape8.Visible = Falce
End Sub
Private Sub Command2_Click()
Form1.Shape5.Visible = True
Form1.Shape6.Visible = True
Form1.Shape7.Visible = True
Form1.Shape8.Visible = True
Form1.Shape1.Visible = Falce
Form1.Shape2.Visible = Falce
Form1.Shape3.Visible = Falce
Form1.Shape4.Visible = Falce
End Sub