Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: можно ли вернуть объект по имени? Добавлено: 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
  1. For i = 0 To UBound(...)

Ответить

Номер ответа: 2
Автор ответа:
 Floyd



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

Ответить

Номер ответа: 3
Автор ответа:
 Winand



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

Ответить

Номер ответа: 4
Автор ответа:
 Retupa



Вопросов: 1
Ответов: 51
 Профиль | | #4 Добавлено: 08.09.10 02:47
Private Sub SetTxtBoxValue(ByVal sTxtBoxName As String, ByVal sValue As String)

    ;Dim 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам