Out of stack space

[onerrorgoto]

Hi
I'm developing a "Flashing Led"-ocx using a timer and a shape.
I created this property:

Public Property Get Flashing() As Boolean
    tmrLed.Enabled = Flashing
End Property

Public Property Let Flashing(ByVal NewFlashing As Boolean)
    Flashing = NewFlashing
    PropertyChanged "Flashing"
End Property

but when I try to change this property while debugging, I get a "Out of stack space"-error.

I need to be able to turn the timer on/off.

What am I doing wrong?

Edited by onerrorgoto on 02-23-2000 at 06:25 AM

[Crazy D]

Not sure if it's the solution for your problem, but the usual property get/let is like this:

Public Property Get MyProp() As Datatype
    MyProp = MyVariableForThisProperty
End Property

Public Property Let MyProp(New_MyProp As Datatype)
    MyVariableForThisProperty = New_MyProp
    PropertyChanged "MyProp"
End Propery

The Get returns the value (so in your case, the Get should return the current state of the timer (enabled or not)
The Let is to assign a new value, so in your case, you should turn the timer on or off in that property handler.
Hope this helps.

[onerrorgoto]

Thank you
I hope I understood you right because this code is working.

Public Property Get Flashing() As Boolean
    Flashing = bolFlashing
End Property

Public Property Let Flashing(ByVal NewFlashing As Boolean)
    bolFlashing = NewFlashing
    tmrLed.Enabled = bolFlashing
    PropertyChanged "Flashing"
End Property

Now I just have to set the property to the correct state when initializing my ocx.