Классы и 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.

Решение задачи: «Классы и 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5