Page 95 - 6735
P. 95

Рисунок 3.8 – Модель Part1



















           Рисунок 3.9 – Результати виконання програми – креслення з трьома
                                        видами
              Модуль класу DrawingData:
           'дані класу
           Public Sheets As Collection
           Public Name As String
           Private Sub Class_Initialize() 'процедура ініціалізації
           Name = "drawingData"
           Set Sheets = New Collection
           End Sub

              Модуль класу DrawingSheet:

                                          95
   90   91   92   93   94   95   96   97   98   99   100