VBNet - Форум - можно ли вернуть объект по имени?

Вопрос: можно ли вернуть объект по имени? Добавлено: 07.09.10 13:49

Автор вопроса: Floyd

есть массив текстбоксов с именем textObj.
есть функция:

For Each o_ In .textObj
o_.Text = "abc"
Next

но есть так же еще массив текстбоксов textOut
Можно ли использовать функцию выше для массива textOut?
то есть как-то изменить .textObj на .textOut во время исполнения функции.
Спасибо.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 07.09.10 14:03
	For i = 0 To UBound(...) Ответить

Номер ответа: 2 Автор ответа: Floyd Вопросов: 6 Ответов: 12	Профиль \| \| #2	Добавлено: 07.09.10 21:56
	нет, вопрос не в этом. как использовать одни и те же функции, но для разных объектов? то есть сейчас моя функция, код которой выше, меняет текст для .textObj. а нужно что-то наподобие set o_control = form.textObj ' или =form.textOut For Each o_ In o_control o_.Text = "abc" Next Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #3	Добавлено: 07.09.10 22:31
	Call func(form.textObj или form.textOut) '------------- sub func(byref obj as object) set o_control = obj For Each o_ In o_control o_.Text = "abc" Next end sub Ответить

Номер ответа: 4 Автор ответа: Retupa Вопросов: 1 Ответов: 51	Профиль \| \| #4	Добавлено: 08.09.10 02:47
	Private Sub SetTxtBoxValue(ByVal sTxtBoxName As String, ByVal sValue As String) im v As Variant For Each v In Controls If v.Name = sName Then v.Text = sValue Next Set v = Nothing End Sub Ответить

Номер ответа: 5 Автор ответа: Floyd Вопросов: 6 Ответов: 12	Профиль \| \| #5	Добавлено: 08.09.10 11:53
	спасибо, и это тоже понятно. но вопрос не в переборе всего и отлова нужного имени, вопрос в подмене объекта. нужен именно полиморфизм. Ответить

Номер ответа: 6 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #6	Добавлено: 08.09.10 12:44
	нужен именно полиморфизм. для этого нужен ООП.. абстрактные классы или интерфейсы.. а в VB6 с этим беда.. Ответить

Номер ответа: 7 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #7	Добавлено: 09.09.10 21:07
	Floyd, вот я и написал как подменить объект. Работает для массива любых объектов со свойством Text Ответить

Номер ответа: 8 Автор ответа: Floyd Вопросов: 6 Ответов: 12	Профиль \| \| #8	Добавлено: 10.09.10 12:29
	да, спасибо. то, что нужно. я сам выше это и написал ))) Ответить

Страница: 1 |