Работа с несколькими Text Box

[shurik58]

Вопрос вот в чем.
На форме имеется десяток Text Box с разными наименованиями(не индексированы). Поцедура обработки хххTxt_Change одинаковая для всех полей, за исключением изменяемых переменных. Можно ли все процедуры обеденить в одну, изменять переменные в зависимости от наименования выбранного текстового поля.
Копировать 10 процедур как-то не красиво. Индексирование полей не приемлемо.
Помогите, плиз!
Спасибо.
Shurik.

[VBTerminator]

Массив элементов управления?

[alibek]

Сделай одну процедуру, один из аргументов которой будет ссылкой на TextBox. А в обработчике вызывай эту процедуру.

[shurik58]

Нет. Не массив ЭУ.
Например txt1, txt2,.....txt10.
А как в процедуре сделать ссылку на конкретное txt1?
При получении фокуса надо подкрасить поле, при изменении информации - изменить переменную.
Не хочется 10 поцедур txt1_GotFocus - txt10_GotFocus и Txt1_Change - Txt10_Change!!?
Спасибо.

[Хакер]

Положи TB в UC, в UC обработай событие TB и вызови у контейнера нужный метод.

[shurik58]

А можно проще?
Я же тупой! Что такое UC?

[Хакер]

UserControl.

[Денис]

Делай раз

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

Private Sub SetTBBG(Sender As Object, Color As Long)
    Sender.BackColor = Color
End Sub

Делай два

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

Private Sub text1_GotFocus()
    SetTBBG text1, vbHighlight
End Sub

Private Sub text1_LostFocus()
    SetTBBG text1, vbWindowBackground
End Sub

[Хакер]

Денис, ты не находишь, что SetTBBG XYZ, vbHighlight принципиально ничем не отличается от ZYX.BackColor = vbHighlight? То есть ты только усложил всё.

[Денис]

Денис, ты не находишь, что SetTBBG XYZ, vbHighlight принципиально ничем не отличается от ZYX.BackColor = vbHighlight? То есть ты только усложил всё.

А если помимо ZYX.BackColor = vbHighlight в SetTBBG() будет еще 100 строк кода, включая конструкции for...next, if...then, тогда как, усложнил?