Классы и Public WithEvents - VB
Формулировка задачи:
Excel VBA
Убедительно прошу помочь. Все что я мог сделал. Но квалифицированного советника у меня нет.
Создал класс с именем OBFlexGrid
В нем:
Public WithEvents FlexBox As MSFlexGrid
Public WithEvents Layer As MSForms.frame
Public WithEvents Text_box As MSForms.TextBox
Из этих трех объектов, при объявлении в Форме нового объекта OBFlexGrid методом этого класса Add создается элемент управления, которым можно управлять методами и свойствами, описанными в этом же классе. Все это работает.
Но раз все WithEvents обьявлени как Public, то они видны извне. А когда их объявляю как Private, то оно ни видны в самом модуле класса. Что и как нужно сделать, чтобы извне виделись только мои методы и свойства? И вообще правилно ли это у меня организовано.
На всякий случай приведу фрагмент кода в модуле класса OBFlexGrid.
Убедительно прошу помочь. Все что я мог сделал. Но квалифицированного советника у меня нет.
Создал класс с именем OBFlexGrid
В нем:
Public WithEvents FlexBox As MSFlexGrid
Public WithEvents Layer As MSForms.frame
Public WithEvents Text_box As MSForms.TextBox
Из этих трех объектов, при объявлении в Форме нового объекта OBFlexGrid методом этого класса Add создается элемент управления, которым можно управлять методами и свойствами, описанными в этом же классе. Все это работает.
Но раз все WithEvents обьявлени как Public, то они видны извне. А когда их объявляю как Private, то оно ни видны в самом модуле класса. Что и как нужно сделать, чтобы извне виделись только мои методы и свойства? И вообще правилно ли это у меня организовано.
На всякий случай приведу фрагмент кода в модуле класса OBFlexGrid.
Решение задачи: «Классы и Public WithEvents»
textual
Листинг программы
<font color="blue">Dim</font> <font color="blue">WithEvents</font> m_FlexBox <font color="blue">As</font> MSFlexGrid ... <font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> FlexBox <font color="blue">As</font> MSFlexGrid <font color="blue">Set</font> FlexBox = m_FlexMox <font color="blue">end</font> <font color="blue">property</font>