А как static property делать в классе?
Хочу общую проперть на все экземпляры класса, только для чтения снаружи.
У мну не получается, или вообще нельзя?
- Код: Выделить всё
'Private Static lID As Long 'Здесь ругань :о/ (ожидается тока процедуры, функции, проперти)
Public Sub Class_Initialize()
lID = lID + 1
End Sub
Public Static Property Get ID()
ID = lID
End Property