Вывод в TextBox

19.02.2010, 17:05. **Показов** 9847. **Ответов** 5

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

Помогите, пожалуйста уже 3 дня гуглю и мучаюсь((

Вобщем так есть 3 разных (круг, квадрат, овал) элемента Shape, для каждого
элемента есть 2 CheckBox (объеденённых фреймом) которые регулируют видимость фигуры (тру, фолс). И есть
TextBox.
Задание: В ТекстБоксе должны выводится название видимых фигур (если делаем
невидимыми должно удалятся и наоборот), нужно чтобы каждое название выводилось в тексте с новой строки

Vovan-VE · 19.02.2010, 19:11

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub UpdateTextBox()
    Dim s$
    If Shape1.Visible Then s = "Этот" & vbCrLf
    If Shape2.Visible Then s = s & "Этот тоже" & vbCrLf
    If Shape3.Visible Then s = s & "И этот" & vbCrLf
    Text1.Text = s
End Sub
 
Public Sub CheckBox1_Click()
    ' ...
    UpdateTextBox
End Sub

20.02.2010, 00:02

Спасибо, помогло =) А как быть если фигуры заранее не известны, т.е. название нужно считывать с Spahe1.Shape

@gaw · 20.02.2010, 00:19

создать массыв с названиями и производить выборку по Shape1.Shape

@ironegg · 20.02.2010, 06:29

юзай коллекции (Collection) или словари (Dictionaries). фактичестки это тот же массив, но тебе не придется писать дополнительные функции для работы с ним. эти объекты уже имеют все необходимые методы и свойства

@Beralus · 20.02.2010, 11:01

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
private sub UpdateText()
Dim ctl As Object
'Text1.text=""
For Each ctl In Me.Controls
  If ctl.Visible Then
  ' tut delaesh vse chto xochesh esli contril vidimiy
  'naprimer
  ' Text1.text=Text1.text & vbcrlf & ctl.Name
  
  Else
  ' tut inache
  End If
Next ctl
end sub

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

4eJLoBeK!

	Вывод в TextBox 19.02.2010, 17:05. Показов 9847. Ответов 5 Метки нет (Все метки) Помогите, пожалуйста уже 3 дня гуглю и мучаюсь(( Вобщем так есть 3 разных (круг, квадрат, овал) элемента Shape, для каждого элемента есть 2 CheckBox (объеденённых фреймом) которые регулируют видимость фигуры (тру, фолс). И есть TextBox. Задание: В ТекстБоксе должны выводится название видимых фигур (если делаем невидимыми должно удалятся и наоборот), нужно чтобы каждое название выводилось в тексте с новой строки

4eJLoBeK!
	20.02.2010, 00:02
	Спасибо, помогло =) А как быть если фигуры заранее не известны, т.е. название нужно считывать с Spahe1.Shape

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	20.02.2010, 00:19
	создать массыв с названиями и производить выборку по Shape1.Shape 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	20.02.2010, 06:29
	юзай коллекции (Collection) или словари (Dictionaries). фактичестки это тот же массив, но тебе не придется писать дополнительные функции для работы с ним. эти объекты уже имеют все необходимые методы и свойства 0