Вывод в TextBox - VB

Формулировка задачи:

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

Код к задаче: «Вывод в TextBox - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.100 из 5


СДЕЛАЙТЕ РЕПОСТ