Вывод в TextBox

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

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

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

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

Vovan-VE · 19.02.2010, 19:11

Visual Basic

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

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

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

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

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

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

	20.02.2010, 11:01