Не работает Property Get в VBA for AutoCAD

17.05.2011, 13:24. **Показов** 1780. **Ответов** 5

Вот часть описания класса объекта:

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. Почему?

Johny Walker · 17.05.2011, 16:02

Может, get должен работать в паре с set?

17.05.2011, 16:20

Думаю, что нет, т.к. letget используется для работы со значением double.

Johny Walker · 17.05.2011, 16:29

Не, ну ты сам подумай.
Написал get, который возвращает значение не StartAngle, a dblStartAngle - отдельной переменной. По умолчанию она 0. Я классами в VBA не занимался, но, насколько помню из паскаля, подобные методы должны быть парными - get/set, load/save и т.д.
Попробуй опиши свойство set, в котором присваиваешь dblStartAngle переданное значение. Кстати, классы для того и придуманы, чтобы не разрешить пользователю класса напрямую обращаться к данным. Ты же можешь не просто присвоить значение, но и проверочку соорудить, например, больше 0.

19.05.2011, 12:33

Ты же присваиваешь значение свойству, оно обрабатывается Property Let. А для того чтобы получить значение этого Свойства используется Get

19.05.2011, 12:35

Блин, не до конца прочитал

. А как стереть/исправить пост? Возможно переменная dblStartAngle, где-нить в коде изменяется?

Max005
		1
	Не работает Property Get в VBA for AutoCAD 17.05.2011, 13:24. Показов 1780. Ответов 5 Метки нет (Все метки) Вот часть описания класса объекта: 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. Почему? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Johny Walker 1 / 1 / 1 Регистрация: 10.04.2011 Сообщений: 415
	17.05.2011, 16:02	2
	Может, get должен работать в паре с set? 0

Max005
	17.05.2011, 16:20	3
	Думаю, что нет, т.к. letget используется для работы со значением double.

Johny Walker 1 / 1 / 1 Регистрация: 10.04.2011 Сообщений: 415
	17.05.2011, 16:29	4
	Не, ну ты сам подумай. Написал get, который возвращает значение не StartAngle, a dblStartAngle - отдельной переменной. По умолчанию она 0. Я классами в VBA не занимался, но, насколько помню из паскаля, подобные методы должны быть парными - get/set, load/save и т.д. Попробуй опиши свойство set, в котором присваиваешь dblStartAngle переданное значение. Кстати, классы для того и придуманы, чтобы не разрешить пользователю класса напрямую обращаться к данным. Ты же можешь не просто присвоить значение, но и проверочку соорудить, например, больше 0. 0

snov
	19.05.2011, 12:33	5
	Ты же присваиваешь значение свойству, оно обрабатывается Property Let. А для того чтобы получить значение этого Свойства используется Get

snov
	19.05.2011, 12:35	6
	Блин, не до конца прочитал . А как стереть/исправить пост? Возможно переменная dblStartAngle, где-нить в коде изменяется?

Опции темы