Property Set/Let/Get и user-defined type

[anian]

Приветствую уважаемых товарищей. Вопрос такого плана:

В модуле:

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

Public Type TFormOptions
    Movable As Boolean
    ClickThroug As Boolean
End Type

Public tfoOptions as TFormOptions


В frmMain:

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

Friend Property Get FormOptions() As TFormOptions
    FormOptions = tfoForm
End Property

' Сюда выполнение даже не заходит. Так же пробовал Property Let.
Friend Property Set FormOptions(fo As TFormOptions)
    Set tfoForm = fo
End Property


В Form2:

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

Private Sub cmdMovable_Click()
    ' Работает
    MsgBox CStr(frmMain.FormOptions.Movable)

    ' Не работает. Почему-то идет в Property Get, ну и ничего не меняет, соответственно.
    frmMain.FormOptions.Movable = True
End Sub


Я где-то лопухаюсь или невозможно в принципе?

[Хакер]

Лопухнулся. Set для ссылок, для всего остального: Let.

И да, то, что ты хочешь сделать, сделать с помощью UDT невозможно в принципе.

[anian]

Я пробовал и Let, и Set - как в описании проперти, так и в её теле для присвоения - так что не суть...

Самый малокровный вариант - класс с соответствующими полями как аналог типа?

[Денис]

Я пробовал и Let, и Set - как в описании проперти, так и в её теле для присвоения - так что не суть...

Самый малокровный вариант - класс с соответствующими полями как аналог типа?

Да. Можно попробовать класс. Раз уж Вы любите много точек.

[anian]

2 Денис: Есть другие варианты? Сопоставимые по сложности реализации с написанием класса?

[Хакер]

Я пробовал и Let, и Set - как в описании проперти, так и в её теле для присвоения - так что не суть...

Твой код эквивалентен следующему:

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

Dim tmp as TFormOptions
tmp = frmMain.FormOptions
tmp.Movable =  True

Почему такой код не делает то, чего тебе хочется, ты понимаешь?

Самый малокровный вариант - класс с соответствующими полями как аналог типа?

Можешь сделать интерфейс IFormOptions, и сделать так, чтобы класс (в данном случае — форма) его реализовывала. У самой же формы сделать Get-only свойство, возвращающее Me. Такой вариант кажется мне лучше, потому что не нужен левый класс, не нужно два объекта, не нужно в форме хранить ссылку на вспомогательный объект, а во вспомогательном — на форму.

[anian]

Почему такой код не делает то, чего тебе хочется, ты понимаешь?

Не понимаю. Приведенный эквивалентный код работает прекрасно, как и Property Get.

По сути: таких (разного наполнения) UDT у меня уже 3, и будет еще парочка, минимум - а пихать все в одну кучу не кошерно, потому как еще и области видимости у них должны быть разные. По поводу лишних объектов и ссылок - я же могу объявить экземпляр класса как публичный для всего проекта, и читать-писать его отовсюду...Бог с ними, с пропертями формы - переживу уж как-нибудь. Одно плохо - и интерфейсов, и классов придется создавать по количеству UDT...

[Хакер]

Не понимаю. Приведенный эквивалентный код работает прекрасно, как и Property Get.

Он работает, но изменений изменения происходят в переменной tmp.

По поводу лишних объектов и ссылок - я же могу объявить экземпляр класса как публичный для всего проекта, и читать-писать его отовсюду...

И какой смысл в этом? Какой смысл в одном публичном экземпляре, приходящемся на несколько экземпляров форм? При изменении свойств публичного экземпляра, к какому из экземляров формы будут относиться изменения.

и интерфейсов, и классов придется создавать по количеству UDT...

Ты не прочувствовал разницу между созданием класса-саталита и реализацией формой ещё одного интерфейса?

[Vi]

В Form2:

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

Private Sub cmdMovable_Click()
    ' Работает
    MsgBox CStr(frmMain.FormOptions.Movable)

    ' Не работает. Почему-то идет в Property Get, ну и ничего не меняет, соответственно.
    frmMain.FormOptions.Movable = True
End Sub


Я где-то лопухаюсь или невозможно в принципе?

Нужно использовать Property Let и присваивать через переменную типа TFormOptions, раз свойство такого типа. Напрямую поля структуры недоступны.

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

Dim tmp as TFormOptions
tmp = frmMain.FormOptions
tmp.Movable =  True
frmMain.FormOptions = tmp


[anian]

Он работает, но изменений изменения происходят в переменной tmp.

Получение проперти работает? Работает. Изменение проперти не работает? Не работает - потому что это не возможно в принципе, как вы и сказали.

И какой смысл в этом? Какой смысл в одном публичном экземпляре, приходящемся на несколько экземпляров форм? При изменении свойств публичного экземпляра, к какому из экземпляров формы будут относиться изменения.

Не-не-не, форма только одна. И меняются её параметры из другой формы, которая тоже одна.

Ты не прочувствовал разницу между созданием класса-сателлита и реализацией формой ещё одного интерфейса?

Видимо, я толком не объяснил: форме нужен только один UDT, остальные либо для других форм, либо вообще используются в модулях. Но даже если форме нужно 3 UDT - надо создавать 3 интерфейса.

[anian]

Нужно использовать Property Let и присваивать через переменную типа TFormOptions, раз свойство такого типа. Напрямую поля структуры недоступны.

Да, работает. Пожалуй, лучший вариант Вот только почему я сам не допёр..."абыдно, да?!"

Пожалуй, закроем тему.