Объектную ссылку WithEvents на контрол из массива контролов

[Worobjoff]

хочу сделать так:

Код: Выделить всё

Dim WithEvents objTextBox as TextBox
Set objTextBox = Me.TextBox1(1)

Говорит:
"Object or class does not support the set of events"
"Объект или класс не поддерживает набор событий"

Можно ли как нибудь объявить WithEvents -объектную ссылку на элемент массива контролов?

[ANDLL]

Боюсь, что средствами VB никак.
А мне вот интересно, неужели никто не написал что-то типа ControlExtender только для массивов

[ALX_2002]

2 all: Приношу глубочайшие извинения, я сейчас пьян и накурен и возможно, что я не понял тему вопроса, но возможно это то что нужно.

[Worobjoff]

To ALX_2002:
Если взять за пример вашу форму, то код должен выглядеть примерно так:

Код: Выделить всё

Dim WithEvents objText As TextBox

Private Sub Form_Initialize()
   Set objText = Text(0)
End Sub

Private Sub objText_Change()
   Me.Caption = "Текстбокс " & Index & " получил значение =" & Text(Index)
End Sub

Вся проблема где-то в этом "Index"

[Worobjoff]

Up

[alibek]

Код: Выделить всё

Me.Caption = "Текстбокс " & objText.Index & " получил значение =" & objText.Text

[Worobjoff]

Подымаю еще раз.

Может заглянет сюда тот кто занет ответ.

[ANDLL]

Я же сказал НИКАК.
В VB такая возможность не предусмотрена.
Есл тебе нужен динамический массив текстовых полей используй Controls.Add(...). Тогда на контрол можно будет объявить ссылку с событиями.

[codemaster]

хочу сделать так:

Код: Выделить всё

Dim WithEvents objTextBox as TextBox
Set objTextBox = Me.TextBox1(1)

подобное делается с полпинка ключевое слово в поиске по сайту Event Collection