• Maksim
  • Восстановленный участник
  • На форуме с 8 февраля 2005г.
  • Сообщений: 5
  • Спасибо: 0

Тема: Не работает Property Get

Вот часть описания класса объекта:
Private dblStartAngle As Double
Public Property Get StartAngle() As Double
StartAngle = dblStartAngle
End Property
В процедуре другого класса обращаюсь к свойству объекта:
With Arc(3)
.Radius = dblRadius + Width - Offset
.StartAngle = Smallest ' не равно 0 точно.
.EndAnlge = Smallest + Medium
.center = coorCenter
.Draw
End With
value=Arc(3).StartAngle
Получается, что value=0. Почему?

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Не работает Property Get

> Maksim
А почему вы уверены, что value=0 ? Может, при выводе значения этой переменной произошло округление ? Или ноль у вас всё-таки в отладчике ?

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: Не работает Property Get

Возможно не правильно задано
Property Set StartAngle
или  неверно определена переменная
value

  • Maksim
  • Восстановленный участник
  • На форуме с 8 февраля 2005г.
  • Сообщений: 5
  • Спасибо: 0

Re: Не работает Property Get

Если я не объявляю value, то она является variant по умолчанию. Значит, она не теряет точности при округлении.

  • Vadim
  • Восстановленный участник
  • На форуме с 27 марта 2005г.
  • Сообщений: 10
  • Спасибо: 0

Re: Не работает Property Get

Добавь Property Let

Private dblStartAngle As Double
Public Property Get StartAngle() As Double
StartAngle = dblStartAngle
End Property
[b]Public Property Let StartAngle(a As Double)
dblStartAngle=a
End Property[/b]