Проблемы с МДИ-формой.

[Matew]

Я хочу сделать МДИ форму и много дочерних, что бы у каждой были свои одинаковые переменные, и чтобы к ним можно было обращаться (и менять из других не дочерних форм) примерно так: activeform.переменная. Как мне это сделать?

[Netta]

Создаёшь форму FrmTemp и в её модуле все нужные переменные.
Создаёшь пункт меню, который вызовает новую форму.

Dim fr As New FrmTemp
fr.Show

[Matew]

Это я знаю, а как объявить в ней переменные?

[Matew]

Static lDocumentCount As Long
Dim frmD As frmDocument
lDocumentCount = lDocumentCount + 1
Set frmD = New frmDocument
frmD.Caption = "Документ " & lDocumentCount
frmD.Show
Я вот так делаю, но мне надо как-то обращатся к переменным этой процедуры. А я не знаю как это сделать. Их нельзя объявить публик в форме(тока в модуле, а то ругается), а иначе ActiveForm.переменная не работает. Подскажите плиз, а то я никак не догадаюсь((((.

[Matew]

Я уже весь поиск перерыл не могу найти подобное!(((

[tyomitch]

Я вот так делаю, но мне надо как-то обращатся к переменным этой процедуры. А я не знаю как это сделать. Их нельзя объявить публик в форме(тока в модуле, а то ругается)

Должно быть можно, если только они не UDT. Скорее всего, что-то неправильно делаешь.

[Matew]

Я понял в чем дело. Нельзя отдавать в доступ массивы из "детской" формы. Подскажите, как это обойти. Может можно их чем-нибудь заменить типа поинттапи или как? Заранее спасибо.

[tyomitch]

публичным свойством с индексом?

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

Public Property Get Massiv(ByVal Index As Long) As YourType
    Massiv = myMassiv(Index)
End Property


[Matew]

Спасибо! Ща попробую.