Вывод в TextBox - VB
Формулировка задачи:
Помогите, пожалуйста уже 3 дня гуглю и мучаюсь((
Вобщем так есть 3 разных (круг, квадрат, овал) элемента Shape, для каждого
элемента есть 2 CheckBox (объеденённых фреймом) которые регулируют видимость фигуры (тру, фолс). И есть
TextBox.
Задание: В ТекстБоксе должны выводится название видимых фигур (если делаем
невидимыми должно удалятся и наоборот), нужно чтобы каждое название выводилось в тексте с новой строки
Решение задачи: «Вывод в TextBox»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д