ник: dmsrv803
Попробую объяснить еще раз. У меня есть готовая форма календаря на месяц (MonthCalendar). Я делая новую форму и создаю в ней двенадцать (для каждого месяца) контролов для вставки подчиненной формы (назовем их Calendar1, Calendar2, ....... Calendar12). В свойстве объект-источник я указываю у всех контролов MonthCalendar. Теоретически в каждом контроле Calendar1, 2,3,... 12 должен открыться свой экземпляр формы MothCalendar. По событию OnOpen формы MonthCalendar выполняется процедура, которая настраивает вид календаря в зависимости от месяца. А для этого мне необходимо узнать к какому контролу прикручена форма с календарем.
Я придумал использовать свойство Tag. Код примерно будет выглядеть так:
For Each ctl In Me.Parent.Controls
If ctl.Name = "Calendar" & ctl.Tag Then
intMonth = ctl.Tag
Call FillMonthCalendar(intMonth) 'вызываю процедуру настройки календаря
EndIf
Next
|