Page 44 - 6735
P. 44

'процедура присвоєння властивості 'x' значення дійсного
           типу
           Public Property Let x(ByVal vNewValue As Variant)
           If Not IsNumeric(vNewValue) Then 'якщо не числове дане, то
               RaiseEvent notNumber(vNewValue) ' викликати подію
               Exit Property ' вийти
           End If
           arg = vNewValue 'присвоїти arg нове значення
           End Property

           'метод класу (функція) 'y' з параметром 's'
           Public Function y(s As Variant)
           y = z * arg ^ s
           End Function
































                                          44
   39   40   41   42   43   44   45   46   47   48   49